2017-02-20 6 views
-3

VBAマクロでワードを作成するときに問題があります。VBA-ワードドキュメント内の各セクションのヘッダーをリセット

私の文書では、多くのセクションがあり、各セクションのヘッダーをリセットする必要があります。セクション1では 、我々は、セクション2において画像1 を追加し、我々は、画像2

を追加しかし、セクション2に我々が設定されている間、現在、画像1 &画像2の両方がセクション1に添加される:LinkToPrevious = Falseの

私たちは何をすべきか、またはこの問題の解決策を教えてください。 p_appWord.Selection.Sections(p_appWord.Selection.Sections.count).Headers(wdHeaderFooterPrimary).LinkToPrevious = Falseの p_appWord.Selection.Sections(p_appWord.Selection.Sections.count): は、ここでは、私のSRCを

+0

こんにちは、ありがとうございます。あなたの問題を再現するための質問に[最小限で完全で検証可能な例](http://stackoverflow.com/help/mcve)を含めてください。他の人があなたのことを理解して助けてくれるようにしてください。 –

+0

私は同じような音で作業していました問題。私はおそらく解決策を持っていますが、私はそれを書き留めるために自分の時間を使う前にあなたがしたことを見たいと思います。私が通知されるようにコメントに私を言及することを確認してください。 – Daniel

+0

親愛なるDaniel、ここに私のsrc: –

答えて

0

をありがとう.Headers(wdHeaderFooterPrimary).Range.Delete

sh003_Logo.Shapes("LOGO_ENG").Copy 
Set hdr = sec.Headers(wdHeaderFooterPrimary) 
hdr.Range.PasteSpecial Placement:=wdFloatOverText, DataType:=wdPasteMetafilePicture 
hdr.Range.ParagraphFormat.Alignment = wdAlignParagraphRight 
hdr.Range.ParagraphFormat.LineSpacingRule = wdLineSpaceExactly 
hdr.Range.ParagraphFormat.LineSpacing = 18 
hdr.Range.InsertAfter "P-PageNumber" & vbLf & p_docNo 
hdr.Range.Fields.Add Range:=hdr.Range.Words(3), Type:=wdFieldEmpty, Text:="PAGE", PreserveFormatting:=False 
hdr.Range.Words(5).Font.Bold = True 
hdr.Range.Words(5).Font.Size = 18 
関連する問題