【Word VBA/マクロ】ハイパーリンク一覧作成

Oct 23, 2023

カテゴリ：Word VBA

追記：2023年12月4日
マクロの記事は下記のサイトで書くことにしました。
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

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)

.Style = "表 (格子)"
.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

お気に入りの記事を「いいね！」で応援しよう

Last updated Dec 4, 2023 10:16:34 AM
コメント(0) | コメントを書く

[Word VBA] カテゴリの最新記事