Word VBA質問箱 IV

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

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


40 / 801 ←次へ | 前へ→

【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

694 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 発言[未読]

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