| |
出来てるかな？自信ありません。
Sub test()
Dim myRng As Range
If ActiveDocument.Footnotes.Count < 1 Then Exit Sub
With ActiveWindow.ActivePane.View
.Type = wdPrintView
.SeekView = wdSeekMainDocument
End With
With ActiveDocument.ActiveWindow.View
.SplitSpecial = wdPaneFootnotes
End With
ActiveWindow.Panes(2).Activate
Selection.HomeKey wdStory
Set myRng = Selection.Range
With myRng.Find
.Text = "^f"
Do While .Execute
myRng.Font.Size = 16
Loop
End With
ActiveDocument.ActiveWindow.View.SplitSpecial = wdPaneNone
End Sub
|
|
![[未読]](./data/word/image/read_icon.gif){kind=icon}
