2017-02-20 8 views
-3

Wir haben Probleme, wenn Sie Word durch VBA-Makro erstellen.VBA-Reset-Header für jeden Abschnitt in Word-Dokument

In meinem Dokument haben wir viele Abschnitte und wir müssen Header für jeden Abschnitt zurücksetzen. In Abschnitt 1, fügen wir Bild 1. In Abschnitt 2 haben wir Bild 2.

Aber zur Zeit sowohl Bild 1 & Bild 2 wird zu Abschnitt 1, während in Abschnitt 2 setzen wir hinzufügen: LinkToPrevious = False

Was sollen wir tun oder irgendeine Lösung für diese Probleme? Danke,

+0

Hallo und Willkommen zu StackOverflow. Fügen Sie bitte ein [minimales, vollständiges und verifizierbares Beispiel] (http://stackoverflow.com/help/mcve) in die Frage ein, um Ihr Problem zu replizieren, damit andere Sie besser verstehen und Ihnen helfen können. –

+0

Ich arbeitete gerade an einem ähnlichen Sound Problem. Ich habe wahrscheinlich eine Lösung, aber ich würde gerne sehen, was du getan hast, bevor ich meine Zeit nutze, um es aufzuschreiben. Achte darauf, mich in einem Kommentar zu erwähnen, damit ich benachrichtigt werde. – Daniel

+0

Lieber Daniel, hier meine Quelle: –

Antwort

0

hier mein src: p_appWord.Selection.Sections (p_appWord.Selection.Sections.count) .Headers (wdHeaderFooterPrimary) .LinkToPrevious = False p_appWord.Selection.Sections (p_appWord.Selection.Sections.count) .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 
Verwandte Themen