Thema Datum  Von Nutzer Rating
Antwort
Rot Word Fußzeile automatisch einfügen
11.09.2023 15:15:55 Simon
NotSolved
29.09.2023 20:08:59 Ben
NotSolved
29.09.2023 20:52:59 Simon
NotSolved
29.09.2023 20:54:07 Simon
NotSolved
30.09.2023 10:46:06 Ben
NotSolved
30.09.2023 15:16:37 Ben
Solved
30.09.2023 18:38:13 Gast47108
NotSolved
30.09.2023 19:52:30 Ben
NotSolved
04.10.2023 08:25:23 Simon
NotSolved
04.10.2023 08:37:35 Simon
NotSolved
04.10.2023 15:04:30 Ben
NotSolved
04.10.2023 15:18:29 Ben
NotSolved
05.10.2023 07:26:12 Simon
NotSolved
05.10.2023 14:50:15 Ben
NotSolved
06.10.2023 07:18:45 Simon
NotSolved
06.10.2023 07:36:40 Simon
NotSolved
06.10.2023 10:48:11 Ben
Solved
06.10.2023 11:22:49 Ben
Solved
06.10.2023 11:42:07 Simon
NotSolved
06.10.2023 14:13:38 Ben
Solved
09.10.2023 08:15:21 Simon
NotSolved
09.10.2023 23:36:28 Ben
Solved
10.10.2023 09:52:43 Simon
NotSolved
10.10.2023 13:58:02 Ben
Solved
10.10.2023 14:02:55 Ben
NotSolved
10.10.2023 14:42:10 Simon
NotSolved
10.10.2023 14:42:14 Simon
NotSolved

Ansicht des Beitrags:
Von:
Simon
Datum:
11.09.2023 15:15:55
Views:
823
Rating: Antwort:
  Ja
Thema:
Word Fußzeile automatisch einfügen

Ich habe mir ein VBA-Makro geschrieben, dass mir eine vorgegebene Fußzeile, je nach Hoch oder Querformat, automatisch in alle Dateien eines Ordners einfügt. Ich habe nun das Problem, dass die Fußzeile oft zu hoch eingefügt wird und sich dadurch der Inhalt verschiebt. Da ich es automatisieren wollte, weil es hier um mehrere tausend Dateien geht, wäre es zu aufwändig, anschließend jede Zeile von der Höhe her anzupassen.

Jetzt suche ich nach einer Lösung wie ich ins Makro einbauen kann, dass jede eingefügte Fußzeile automatisch auch noch in der Position formatiert wird.
Unter der Registerkarte Kopf- und Fußzeile im Reiter Position "Fußzeile von unten" wäre 0,2cm ideal, dass es in allen Dateien passt und sich der Inhalt nicht verschiebt.

 

Sub BearbeiteDateien()
    Dim folderPath As String
    Dim templatePathPortrait As String
    Dim templatePathLandscape As String
    Dim templateDocPortrait As Document
    Dim templateDocLandscape As Document
    Dim file As String

    ' Pfade anpassen
    folderPath = "C:\Users\sbutz\Desktop\Test docx neu\"  ' Passe den Pfad zum Ordner an, in dem sich die Dateien befinden
    templatePathPortrait = "C:\Users\sbutz\Desktop\Fußzeile Hochformat.docx"  ' Passe den Pfad zur Word-Datei mit der Fußzeile für Hochformat an
    templatePathLandscape = "C:\Users\sbutz\Desktop\Fußzeile Querformat.docx"  ' Passe den Pfad zur Word-Datei mit der Fußzeile für Querformat an

    ' Lade die Vorlagen
    Set templateDocPortrait = Documents.Open(templatePathPortrait)
    Set templateDocLandscape = Documents.Open(templatePathLandscape)

    ' Iteriere durch alle Word-Dokumente im angegebenen Ordner
    file = Dir(folderPath & "\*.doc*")
    Do While file <> ""
        ' Bearbeite Word-Dokument
        BearbeiteWordDatei folderPath & "\" & file, templateDocPortrait, templateDocLandscape
        file = Dir
    Loop

    ' Schließe die Vorlagen
    templateDocPortrait.Close SaveChanges:=False
    templateDocLandscape.Close SaveChanges:=False
    Set templateDocPortrait = Nothing
    Set templateDocLandscape = Nothing

    MsgBox "Fertig!"
End Sub

Sub BearbeiteWordDatei(filePath As String, templateDocPortrait As Document, templateDocLandscape As Document)
    Dim doc As Document
    Dim orientation As String

    ' Lade das Word-Dokument
    Set doc = Documents.Open(filePath)

    ' Bestimme die Ausrichtung des Dokuments
    orientation = doc.PageSetup.orientation
    
    ' Füge die entsprechende Fußzeile ein
    If orientation = wdOrientPortrait Then
        templateDocPortrait.Sections(1).Footers(wdHeaderFooterPrimary).Range.Copy
    ElseIf orientation = wdOrientLandscape Then
        templateDocLandscape.Sections(1).Footers(wdHeaderFooterPrimary).Range.Copy
    End If

    doc.Sections(1).Footers(wdHeaderFooterPrimary).Range.Paste

    ' Speichere das aktualisierte Dokument
    doc.Save
    doc.Close SaveChanges:=False
    Set doc = Nothing
End Sub

 

 

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Word Fußzeile automatisch einfügen
11.09.2023 15:15:55 Simon
NotSolved
29.09.2023 20:08:59 Ben
NotSolved
29.09.2023 20:52:59 Simon
NotSolved
29.09.2023 20:54:07 Simon
NotSolved
30.09.2023 10:46:06 Ben
NotSolved
30.09.2023 15:16:37 Ben
Solved
30.09.2023 18:38:13 Gast47108
NotSolved
30.09.2023 19:52:30 Ben
NotSolved
04.10.2023 08:25:23 Simon
NotSolved
04.10.2023 08:37:35 Simon
NotSolved
04.10.2023 15:04:30 Ben
NotSolved
04.10.2023 15:18:29 Ben
NotSolved
05.10.2023 07:26:12 Simon
NotSolved
05.10.2023 14:50:15 Ben
NotSolved
06.10.2023 07:18:45 Simon
NotSolved
06.10.2023 07:36:40 Simon
NotSolved
06.10.2023 10:48:11 Ben
Solved
06.10.2023 11:22:49 Ben
Solved
06.10.2023 11:42:07 Simon
NotSolved
06.10.2023 14:13:38 Ben
Solved
09.10.2023 08:15:21 Simon
NotSolved
09.10.2023 23:36:28 Ben
Solved
10.10.2023 09:52:43 Simon
NotSolved
10.10.2023 13:58:02 Ben
Solved
10.10.2023 14:02:55 Ben
NotSolved
10.10.2023 14:42:10 Simon
NotSolved
10.10.2023 14:42:14 Simon
NotSolved