title image


Smiley Über Excel Word-Fußzeile ändern
hallo zusammen,

ich habe ziemlich lange im Netz gesucht, aber nix passendes gefunden.

Ich habe viele Word-Dateien, in denen meine Anschrift in der Fußzeile dieser Worddokumente steht. Jetzt muß aber die Fußzeile aufgrund einer Namnesänderung geändert werden. Folgendes Makro habe ich geschrieben, komme aber nicht recht weiter.



Sub fußzeile()

Dim dat As String

Dim word_doc As Object

Dim strFolder As String

Dim i As Integer

Dim objword As Object

Dim firma As String

Dim strasse As String



firma = Worksheets("Tabelle1").Cells(2, 2).Value

Application.ScreenUpdating = False

strFolder = GetAOrdner & "\"

Set objword = CreateObject("Word.Application")



With Application.FileSearch

.NewSearch

.LookIn = strFolder

.FileName = "*.doc"

.SearchSubFolders = True

If .Execute(SortBy:=msoSortByFileName, sortorder:=msoSortOrderAscending) _

> 0 Then

For i = 1 To .FoundFiles.Count

objword.documents.Open .FoundFiles(i)

hier hängt er sich auf : ActiveDocument.CurrentPageFooter.Range.Text = _

firma

Next i

End If

End With



Application.ScreenUpdating = True

objword.Application.Quit

Set objword = Nothing



End Sub





So soll(te) es funktionieren :

Beim Start geht erst das Verzeichnisfenster auf

ich suche das entsprechende Verzeichnis aus

excel sucht alle docs darin

öffnet eines nach dem anderen und ändert dann die Fußzeile wie angegeben

ich schließe das dokument wieder

das nächste wird aufgemacht



mit sicherheit ist das irgendwie umständlich, aber es fällt mir grad kein besserer Weg ein. Allerdimgs bin ich in Word die totale Niete.



Weiß jemand Rat für mich ?



Herzlichen Dank

Thomas

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: