PR
Keyword Search
▼キーワード検索
Calendar
tanpopo3416
わたしのブログへようこそ
Comments
Freepage List
Oct 23, 2023
カテゴリ： Word VBA
追記：2023年12月4日
マクロの記事は下記のサイトで書くことにしました。
Word VBA/マクロ 備忘録
ハイパーリンクの一覧（ページ、表示文字列、アドレス）を作成します。
.PreferredWidthType = wdPreferredWidthPercent
マクロの記事は下記のサイトで書くことにしました。
Word VBA/マクロ 備忘録
ハイパーリンクの一覧（ページ、表示文字列、アドレス）を作成します。
Sub GetHyperlinkList()
Dim hpLink As Hyperlink, hprList As String
Dim dcNew As Document
If ActiveDocument.Hyperlinks.Count = 0 Then
MsgBox "ハイパーリンクはありません"
Exit Sub
End If
For Each hpLink In ActiveDocument.Hyperlinks
hprList = hprList & hpLink.Range.Information(wdActiveEndPageNumber) & vbTab & _
hpLink.TextToDisplay & vbTab & hpLink.Address & vbCrLf
Next
Set dcNew = Documents.Add
With dcNew.PageSetup
.TopMargin = MillimetersToPoints(20)
.BottomMargin = MillimetersToPoints(20)
.LeftMargin = MillimetersToPoints(20)
.RightMargin = MillimetersToPoints(20)
End With
dcNew.Range(0, 0).InsertBefore hprList
With Selection
.WholeStory
.ConvertToTable Separator:=wdSeparateByTabs, NumColumns:=3, _
NumRows:=3, AutoFitBehavior:=wdAutoFitFixed
.InsertRowsAbove 1
.TypeText Text:="ページ"
.MoveRight Unit:=wdCell
.TypeText Text:="表示文字列"
.MoveRight Unit:=wdCell
.TypeText Text:="アドレス"
With .Tables(1)
.PreferredWidthType = wdPreferredWidthPercent
.PreferredWidth = 100
.Columns(1).PreferredWidth = 5
.Columns(2).PreferredWidth = 35
.Columns(3).PreferredWidth = 60
End With
.Font.Size = 9
End With
End Sub
お気に入りの記事を「いいね！」で応援しよう
[Word VBA] カテゴリの最新記事
-
【Word VBA/マクロ】蛍光マーカー（ハイラ… Oct 24, 2023
-
【Word VBA/マクロ】本文、ヘッダーフッタ… Oct 23, 2023
-
【Word VBA/マクロ】スマートアート内の置… Oct 23, 2023
【毎日開催】
15記事にいいね！で1ポイント
© Rakuten Group, Inc.
