ワード2007、ヘッダーのマクロでフォントサイズを変更したい。
windows7、word2007
ヘッダーにファイル名、ページ数、作成日を表示させるマクロを”マクロの記録”で作りました。
夫々にはフィールドを指定してあります。
Sub header()
'
' header Macro
'
'
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
"FILENAME \* DBCHAR ", PreserveFormatting:=True
Selection.TypeText Text:=vbTab
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
"PAGE \* ArabicDash ", PreserveFormatting:=True
Selection.TypeText Text:=vbTab & " "
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
"CREATEDATE \@ ""作成日 :ggge年M月d日"" ", PreserveFormatting:=True
Selection.TypeParagraph
Selection.TypeText Text:=vbTab & vbTab & " "
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
"SAVEDATE \@ ""更新日 :ggge年M月d日"" ", PreserveFormatting:=True
WordBasic.GoToFooter
Selection.TypeText Text:=vbTab
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
"PAGE ", PreserveFormatting:=True
Selection.TypeText Text:="/"
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
"NUMPAGES ", PreserveFormatting:=True
End Sub
文書本文の文字サイズは13ptですがフッター部は9ptにしたいと思います。
修正する方法を教えて貰えるとありがたいです。
よろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
最後の行に以下の3行を入れればよいです。
そうしたら、フッターは変わります。ただ、ヘッダー側にも変えるなら、 WordBasic.GoToFooter の手前に、同じく3行入れないと行けないはずです。
Selection.HomeKey Unit:=wdStory
Selection.EndKey Unit:=wdStory, Extend:=wdExtend
Selection.Font.Size = 9
End Sub
Wendyさま 早速にご回答頂きましてまことにありがとうございました。
見事9Ptで表示することができました。
ヘッダーの方も教えて頂いた通りWordBasic.GoToFooter の手前に3行挿入してフォントサイズを変更することができました。
これまでもやもや、イライラしていたのが一挙解決すっきりしました。
これでまた一歩前進できます。
ほんとうにありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) データのある範囲を選択するVBAについて 2 2022/09/03 00:20
- Visual Basic(VBA) マクロで最終行を取得してコピーしたい 3 2022/04/06 19:07
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/02/22 08:53
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/20 14:46
- Visual Basic(VBA) VBA シート上にドロップダウンリストを作り、予め指定値をセットしたいのですが 1 2023/03/25 15:15
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/02/17 11:59
- Excel(エクセル) このコードに追記事項の仕方を教えて下さい。 以下のコード内容に出てくる。セルH3が空白の場合、エラー 4 2023/08/03 00:22
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/21 13:29
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのVBAで自動的にVBE画...
-
VBAを禁止している会社って...
-
マクロプログラムを修正するマクロ
-
Wordをマクロ有効にするには
-
Microsoft Word(β版)のエラー
-
PERSONAL..XLSを削...
-
texの数式番号の形式の変更の仕...
-
Word2007でファイルを開いたと...
-
Word文書に必須入力項目を設けたい
-
お願いいたします。
-
WORD2003 網掛け濃さの...
-
Word2013: コピー、切り取り、...
-
(実行時エラー5852)Excelデータ...
-
Wordのコメントを一括削除...
-
[Word]条件により表示・非表示...
-
Access2010マクロ メッセージ...
-
ワードのマクロで、蛍光ペンの...
-
他者の作ったVBAマクロを改...
-
Wordの「レ」チェックボックス...
-
Excelのマクロは管理者でないと...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
(実行時エラー5852)Excelデータ...
-
Access2010マクロ メッセージ...
-
Word文書に必須入力項目を設けたい
-
Excelのマクロは管理者でないと...
-
Excelのシートを印刷不可(禁止...
-
VBAを禁止している会社って...
-
Excelのマクロのショートカット...
-
画像判定の出来るマクロツール
-
Wordのマクロを有効にする方法
-
フリーソフト(電子印鑑)をイ...
-
今まで実行できていたマクロが...
-
エクセルのVBAで自動的にVBE画...
-
ThisWorkbook Moduleとは??
-
Excel2003 GET.CELL関数を使う...
-
KingsoftのOffice2013でExcelの...
-
EXCELのマクロを有効にする
-
WORDのマクロでNG文字がある場...
-
texの数式番号の形式の変更の仕...
-
マクロのアイコンを消したい
-
MS-Projectの使い方(マクロを...
おすすめ情報