Word VBA質問箱 IV

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

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


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

124 / 886

←次へ　｜　前へ→


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

マナ - 13/6/15(土) 15:19 -


	引用なし

	パスワード

StoryRangesを使えばよかった?

参考にしたサイト
ht tp://word.mvps.org/faqs/customization/ReplaceAnywhere.htm
ht tp://www.relief.jp/itnote/archives/017995.php#extended

Sub test2()
　　Dim myRng As Range
　　
　　If ActiveDocument.Footnotes.Count < 1 Then Exit Sub
　　
　　Set myRng = ActiveDocument.StoryRanges(wdFootnotesStory)

　　With myRng.Find
　　　　.Text = "^f"
　　　　Do While .Execute
　　　　　　myRng.Font.Size = 16
　　　　　　myRng.Font.Name = "Courier New"
　　　　Loop
　　End With

End Sub

913 hits

▼

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