Word VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム

125 / 886

←次へ　｜　前へ→


	【786】Re:脚注番号のフォントを調節するには？

マナ - 13/6/13(木) 23:53 -


	引用なし

	パスワード

出来てるかな？自信ありません。

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

976 hits

▼

【680】脚注番号のフォントを調節するには？ ポンタ 10/3/1(月) 1:11