Change Logo in Header in many Word-Documents

ika · #6 10-16-2016, 09:13 AM

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.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to Insert Logo in header on 1st page only and bookmark it.	youseeme	Word VBA	9	09-16-2016 05:25 AM
How to change logo /dates in numerous word documents without changing each one individually?	newi1	Word VBA	3	04-22-2016 07:02 PM
Can't change logo in Word 2007	jrasicmark	Word	5	04-12-2016 10:35 AM
How to print header logo only in 1st page	Shafraz Khahir	Word	1	11-29-2010 11:52 AM
Is there a way to change the header in a large amount of documents at one time?	ntsstaffing	Word	1	07-11-2009 12:12 PM