Word VBA質問箱 IV

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

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


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

223 / 886

←次へ　｜　前へ→


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

りる - 10/5/5(水) 10:00 -


	引用なし

	パスワード

ポンタさん、こんにちは。
もう見ていないかもしれませんが、チェックしている人もいるようなので書いておきます。

>脚注のフォントサイズを調節する方法は、
>
>For i = 1 To ActiveDocument.Footnotes.Count
>　ActiveDocument.Footnotes.Item(i).Range.Font.Size=フォントサイズ
>Next i
>
>でできますが、これだと、脚注番号のフォントサイズは元のままです。
>
>脚注番号のフォントサイズも調節する方法はありますか？

それらしいObjectが見つけられませんでしたが、手動で選択すればなんとかなるので、マクロで選択して何とかしてみました。

Sub TEMPO()
　 Dim fn1 As Footnote, r1 As Range
　 '脚注の数だけループ
　 For Each fn1 In ActiveDocument.Footnotes
　　　Set r1 = fn1.Range
　　　r1.Select '脚注の文字列を選択
　　　Selection.MoveLeft　'一つ左に移動
　　　Selection.StartOf Unit:=wdLine, Extend:=wdExtend '脚注の数字を選択
　　　'選択後指定
　　　Selection.Font.Name = "Courier New" 'Courier Newに
　　　Selection.Font.Size = 16　　　　　 'サイズを16に
　 Next
　 '
　 Set r1 = Nothing
End Sub

1,083 hits

▼

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