MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Word
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 14.10.2017, 20:12   #1
lhesse
MOF User
MOF User
Standard Word 2013 - Kopf Fußzeile aus Vorlage auf Dokumente übertragen

Guten Abend Forumgemeinde,

ich möchte folgendes Erreichen:

Vorlage in Anhang enthält eine Kopfzeile und eine Fußzeile. Diese möchte ich per VBA in die anderen Dokumente eines bestimmten Ordners kopieren.

Das Löschen der alten Kopf und Fußzeile klappt schon. Nur mit dem Kopieren der neuen Kopf und Fußzeile komme ich nicht zurecht. Kann mir hier jemand helfen?

Danke und Gruss
Angehängte Dateien
Dateityp: docm Vorlage_Kopf_Fuß.docm (31,8 KB, 4x aufgerufen)
lhesse ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.10.2017, 22:16   #2
Silentwolf
MOF User
MOF User
Standard

Hallo Ihesse,
also ich würde vielleicht folgenden Ansatz probieren..
Erstelle ein AddIn in dem Du all Deinen Code hinterlegst.. Dann eine dotm datei die in Kopf Und Fußzeilen Textmarken enthalten...
Dann könntest Du in Deiner Vorlage den Verweis zu den AddIn erstellen.
Wenn Du dann ein neues Dokument öffnest aus der Vorlage heraus werden die Kopf und Fußzellen vorbesetzt.

Würde das auf diese Art Dir weiterhelfen?

__________________

Gruß
Albert
Silentwolf ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.10.2017, 23:34   #3
Gerhard H
MOF Guru
MOF Guru
Standard

Hallo lhesse,

ich hab deinen Code mal ein bisschen erweitert und in zwei Punkten geändert:
Code:

'...
dim doku as document
'...
Do While Len(strFile) > 0
            Set doku = Documents.Open(FileName:=strPath & strFile)
    
                For Each Abschnitt In doku.Sections
                    For i = 1 To doku.Sections.Count '3
                        Abschnitt.Headers(i).Range.Delete
                        Abschnitt.Footers(i).Range.Delete
                        
                            Abschnitt.Headers(i).Range.FormattedText = _
                            ThisDocument.Sections(1).Headers(i).Range.FormattedText
                            
                            Abschnitt.Footers(i).Range.FormattedText = _
                            ThisDocument.Sections(i).Footers(i).Range
                    Next i
                Next Abschnitt
        
            doku.Save
            doku.Close
            strFile = Dir() ' nächste Datei
        Loop
Anmerkungen:
ThisDocument ist das Dokument, in dem das Makro steht, also deine Vorlage mit den neuen Kopf- und Fußzeilen. doku ist dasjenige Dokument, das sich grad in Bearbeitung befindet (bei dir ist das ActiveDocument). Das hab ich gemacht, damit es keine Probleme gibt, falls aus irgendeinem Grund ein anderes Dokument das aktive sein sollte.

Statt for i = 1 to 3 hab ich 1 to doku.sections.count genommen. Dann gibts auch keinen Fehler, wenn ein Dokument mal keine 3 Abschnitte haben sollte.

Im übrigen würde ich nicht versäumen, sämtliche Variablen zu deklarieren

__________________

Gruß
Gerhard
Gerhard H ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 15.10.2017, 14:01   #4
lhesse
Threadstarter Threadstarter
MOF User
MOF User
Standard Danke!

ich werde es versuchen!
lhesse ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 15.10.2017, 14:02   #5
lhesse
Threadstarter Threadstarter
MOF User
MOF User
Standard Danke!

Die Anpassung ist super jetzt läuft es wie ich es haben möchte
Danke dafür!
lhesse ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 16:38 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.