在宅仕事日記：楽天ブログ

Oct 24, 2023

【Word VBA/マクロ】蛍光マーカー（ハイライト）リスト作成

カテゴリ：Word VBA

追記：2023年12月4日
マクロの記事は下記のサイトで書くことにしました。
Word VBA/マクロ備忘録

Sub GetMarkerList()

'蛍光マーカー（ハイライト）の一覧を作成します。

Dim rng As Range, mkrList As String, dcNew As Document

Set rng = ActiveDocument.Range(0, 0)

With rng.Find

.Highlight = True

End With

With rng

Do While .Find.Execute = True

mkrList = mkrList & rng.Information(wdActiveEndPageNumber) _

& vbTab & rng.Text & vbCrLf

.SetRange .End, .End

Loop

End With

If mkrList = "" Then

MsgBox "ハイライトはありませんでした。"

Exit Sub

End If

Set dcNew = Documents.Add

With dcNew.PageSetup

.TopMargin = MillimetersToPoints(30)

.BottomMargin = MillimetersToPoints(30)

.LeftMargin = MillimetersToPoints(30)

.RightMargin = MillimetersToPoints(30)

End With

dcNew.Range(0, 0).InsertBefore mkrList

With Selection

.WholeStory

.ConvertToTable Separator:=wdSeparateByTabs, NumColumns:=2, _

AutoFitBehavior:=wdAutoFitFixed

.InsertRowsAbove 1

.TypeText Text:="ページ"

.MoveRight Unit:=wdCell

.TypeText Text:="ハイライト"

With .Tables(1)

.Style = "表 (格子)"

.ApplyStyleHeadingRows = True

.PreferredWidthType = wdPreferredWidthPercent

.PreferredWidth = 100

.Columns(1).PreferredWidth = 10

.Columns(2).PreferredWidth = 90

End With

End Sub

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

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