WORD 2010ヘッダーとフッターを編集するためのマクロ

Question

私は基本的なVBAの経験があり、以前のマクロのエクスプレッションは主にWORD 2003でした。 WORD 2010では、この（および他の多くの）コマンドはマクロに「記録」しません（レコードモードでは、フッタの編集機能に入ります）。

さまざまなVBSオプションの調査では、フッターを作成してマクロ内でグローバルフッター設定を変更するいくつかの方法を示しています。しかし、単純にフッター内の会社名を変更したい場合（たとえば）、マクロサブルーチン内でこれを行う方法はありません。

このサブルーチンは、メインマクロから呼び出され、フォルダ内の各ファイルをステップ実行しています（&サブフォルダ）。私はメインのマクロが機能しています。

WORD 2010 Macro-VBAは簡単な編集 - フッター機能を排除しますか？事前

で

おかげので、Issunのおかげで、ここに私の解決策は次のとおりです。ここで

` 
Sub Sub_FTR_0() 
' 
ActiveDocument.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter 

For i = 1 To ActiveDocument.Sections.Count 
'REM: INSERT Code from RECORD MACRO recorded when editing one Footer correctly 
    Selection. [[xxx]], etc. 

If i = ActiveDocument.Sections.Count Then GoTo Line1 

    ActiveDocument.ActiveWindow.ActivePane.View.NextHeaderFooter 

Line1: 
Next 

    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument 

End Sub 
` 

Answer 1

あなたがVBA経由で、ヘッダー/フッターにアクセスすることができる方法です。ここではそこのp

Sub EditHeadersAndFooters() 

Dim i As Long 

For i = 1 To ActiveDocument.Sections.Count 
    With ActiveDocument.Sections(i) 
     .Headers(wdHeaderFooterPrimary).Range.Text = "Foo" 
     .Footers(wdHeaderFooterPrimary).Range.Text = "Bar" 
    End With 
Next 

End Sub 

をフォルダ内のすべてのファイルのヘッダーを変更する方法の例のコードへのリンクです：あなたが見ることができるように、それはとても単純なものに取得するにはかなり複雑な構文は次のとおりです。それは別のアプローチを取ると私はそれを試したことはありませんが、あなたの参照のために：http://www.vbaexpress.com/kb/getarticle.php?kb_id=45

Answer 2

これは私のドキュメントのすべてのページの私のために働いた。

word.ActiveDocument.Sections（1）.Headers（1）.Range.Text = "ここでヘッダを入れ"