Thema Datum  Von Nutzer Rating
Antwort
Rot Fußzeile per Makro ersetzen
 25.09.2013 13:10:06 Benjamin
NotSolved

Ansicht des Beitrags:
Von:
Benjamin		 Datum:
25.09.2013 13:10:06		 Views:
1381		 Rating:
     
Antwort:
  Ja
Thema:
Fußzeile per Makro ersetzen		 
Hallo,

ich habe folgenden Code:

Sub Fußzeile_ersetzen_aus_Zwischenspeicher()
    strPath = "C:\Dokumente und Einstellungen\juerrebe\Desktop\Bewerber\" 
    strExt = "*.dot"
    Dim strFile As String
    If strPath = "" Then
        Exit Sub
    Else
        strFile = Dir(strPath & strExt)
        Do While Len(strFile) > 0
            Documents.Open Filename:=strPath & strFile
	ActiveWindow.View.Type = wdPrintView
	ActiveWindow.View.SeekView = wdSeekCurrentPageFooter
    	Selection.WholeStory
    	Selection.PasteAndFormat (wdFormatOriginalFormatting)
            ActiveDocument.Close
            strFile = Dir() ' nächste Datei
        Loop
    End If
End Sub


Dieser ersetzt mir die Fußzeile in allen Dokumenten des gewählten Ordners durch die Fußzeile, die ich gerade im Zwischenspeicher habe.
Das funktioniert auch ganz gut.
Ich möchte allerdings, dass nur dort Fußzeilen eingesetzt werden, wo auch eine Fußzeile vorhanden ist.
Außerdem soll die Vorlage automatisch gespeichert werden, ohne dass ich immer bestätigen muss.

Vielleicht hat ja jemand eine idee?

Gruß Benjamin

 

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 Fußzeile per Makro ersetzen
 25.09.2013 13:10:06 Benjamin
NotSolved