PR
Keyword Search
▼キーワード検索
Calendar
tanpopo3416
わたしのブログへようこそ
Comments
Freepage List
Oct 24, 2023
カテゴリ： Word VBA
追記：2023年12月4日
マクロの記事は下記のサイトで書くことにしました。
Word VBA/マクロ 備忘録
Sub GetMarkerList()
マクロの記事は下記のサイトで書くことにしました。
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 With
End Sub
お気に入りの記事を「いいね！」で応援しよう
【毎日開催】
15記事にいいね！で1ポイント
© Rakuten Group, Inc.
