Word VBA質問箱 IV

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

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


138 / 801 ←次へ | 前へ→

【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

911 hits

【680】脚注番号のフォントを調節するには? ポンタ 10/3/1(月) 1:11 質問[未読]
【686】Re:脚注番号のフォントを調節するには? りる 10/5/5(水) 10:00 回答[未読]
【786】Re:脚注番号のフォントを調節するには? マナ 13/6/13(木) 23:53 発言[未読]
【787】Re:脚注番号のフォントを調節するには? マナ 13/6/15(土) 15:19 発言[未読]

138 / 801 ←次へ | 前へ→
ページ:  ┃  記事番号:
194671
(SS)C-BOARD v3.8 is Free