ここから質問投稿すると、最大4000ポイント当たる!!!! >>

お世話になっております。

WordVBAでフッター編集をしたところ次の事象が発生します。
 ・マクロ実行前のフォントと異なる
 ・マクロ実行前にフッターに線(図形)が表示していたが、マクロを実行すると消える

マクロ実行後、やりたい事は次の通りです。
 ・マクロ実行後のフォントは実行前と同じフォントで表示する
 ・マクロ実行後もフッターに線(図形)が表示されたままにする


フッター編集したときのロジックは次の通りです。
With Doc.Sections(1).Footers(wdHeaderFooterFirstPage)
 .Range.Text = .Range.Text & "aiueo"
End With

このロジックを実行するとフォントは10.5から10に変更され、フッターに表示されていた線も消えてしまいます。

マクロ実行前のフォントや線を残したままにするにはどの様にしたらよいでしょうか。

A 回答 (2件)

やりたいことは、こちら↓の最初のVBAと同じことですよね。


https://msdn.microsoft.com/ja-jp/VBA/word-vba/ar …(vbawd10.chm2394)%3Bk(TargetFrameworkMoniker-Office.Version%3Dv15)%26rd%3Dtrue

フッターの文字列の後ろに"aiueo"を追加するだけみたいなので。

With Doc.Sections(1).Footers(wdHeaderFooterFirstPage).Range
 .Collapse Direction:=wdCollapseEnd '選択範囲の末尾に
 .InsertAfter "aiueo" '特定の文字列を後ろ側に挿入
End With
    • good
    • 0
この回答へのお礼

ありがとうございました。出来ました。
大変助かりました。
次は、それぞれの使い方や意味を確認したいと思います。

因みにenunokokoroさんのWordVBAの勉強の仕方についても教えていただいてよろしいでしょうか。
一人での勉強ではなかなか難しいところがありますので、ご教示いただけると幸いです。

お礼日時:2018/08/06 07:30

No.1の回答者です。



私も独学ですよ。
他の回答者の回答や、Word VBA関連のサイトなどを探し、何となく
理解し始めているだけです。

私は、ここでの回答は10年ぐらいしています。
数年間は、VBA関係については苦手を理由に回答しませんでした。
それでも自分なりに調べたり、他の回答などを参考にして、勉強の
つもりで続けていました。
長年少しづつ蓄積したことで、何となく理解しているだけです。

私なりに参考になったものをいくつか紹介しておきます。

西上原 裕明様の著書
https://www.amazon.co.jp/%E8%A5%BF%E4%B8%8A%E5%8 …
私がWordを知るために参考にしたものです。

VBA関連のサイト
https://www.wordvbalab.com/
http://makoto-watanabe.main.jp/WordVba.html#start
https://msdn.microsoft.com/ja-jp/VBA/Word-VBA/ar …
https://wordmvp.com/FAQs/MacrosVBA/index.htm
    • good
    • 0
この回答へのお礼

ありがとう

お忙しいなか、ご回答ありがとうございます!
まずは、今回いただいた回答を理解するところからはじめます。
大変感謝しております。

お礼日時:2018/08/07 08:00

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング