Hi Gmayor
Once again, perfect work - thx very much.
As I wrote in my last two posts, I have a folder with many wordfiles ... I create the following code:
Quote:
Sub SetDocPropsPlusFooter()
'
' SetDocPropsPlusFooter Makro
'
Dim dd1 As Document
Dim dokupfad As String, endung As String, dateiname As String
dokupfad = "C:\Users\CGL-TEAM1\Desktop\Test Ordner\" '*path, where all the word files are
endung = "*.docx" '*doc-file
dateiname = Dir(dokupfad & endung)
'loop starts here
Do While dateiname <> ""
Set dd1 = Documents.Open(FileName:=dokupfad & dateiname) 'opens the document
ChangeLogo (????????????)
'save document
dd1.Save
'close document
dd1.Close
Set dd1 = Nothing
'next word file
dateiname = Dir 'next file
Loop
End Sub
|
How and where can I now start your function ChangeLogo? It needs a document ... but I'm not able to do it ... have you any advise for me?
Thx for your answer.