Graham,
Tried your solution, but it's not working. Most likely because I am trying to avoid turning on the reference to Word, as I don't want to have the end user have to turn this reference on. Thus my documents are dimmed as Objects in the Excel VBA.
When I tried the code below, It put the lines
Set rng = wrdFromDoc.Sections(1).Hea
rng.MoveEnd wdCharacter, -1
rng.Copy
.Headers(2).Range.Paste
into the header as text.
Kind of strange. I see in the debugger that after Set rng = .... that rng is Nothing.
Main Topics
Browse All Topics





by: GrahamSkanPosted on 2009-06-30 at 15:39:43ID: 24750280
Define a range object for the source document header, and move the end back one character:
Select allOpen in new window