Hi,

Looking for some help please... I'm trying to create a word macro which will insert a logo and address details into the 1st page header & bookmark them.
I can't use a template as we generate word documents from a DMS.

So far from using macro examples found on the internet I have...
Sub AddLogo()
Application.ScreenUpdating = False
ActiveDocument.PageSetup.DifferentFirstPageHeaderF ooter = True
Dim sh As Shape
Dim hdr As HeaderFooter
Dim rng As Range
Dim strPicture As String

strPicture = "Z:\Logo1.jpg"
For Each hdr In ActiveDocument.Sections(1).Headers
Set rng = hdr.Range


rng.Collapse wdCollapseEnd
Set sh = ActiveDocument.Shapes.AddPicture(strPicture, False, True, 0, 0, , , rng)
With sh
.Height = CentimetersToPoints(4.94)
.Width = CentimetersToPoints(3.58)
.LockAspectRatio = True
.Left = CentimetersToPoints(13.67)
.Top = CentimetersToPoints(-1.23)
.WrapFormat.AllowOverlap = True
.WrapFormat.Side = wdWrapNone
End With
Next hdr

strPicture = "Z:\Logo2.jpg"
For Each hdr In ActiveDocument.Sections(1).Headers
Set rng = hdr.Range
rng.Collapse wdCollapseEnd
Set sh = ActiveDocument.Shapes.AddPicture(strPicture, False, True, 0, 0, , , rng)
With sh
.Height = CentimetersToPoints(4.29)
.Width = CentimetersToPoints(4.84)
.LockAspectRatio = True
.Left = CentimetersToPoints(7.83)
.Top = CentimetersToPoints(-0.27)
.WrapFormat.AllowOverlap = True
.WrapFormat.Side = wdWrapNone
End With
Next hdr
End Sub

This adds a couple of logos into the header but for every page rather than the first page. I'm also not sure how to bookmark the image being added so I can hide it later on in a separate print macro.

Thanks for any help.

Your line
is looping through every header in the section, adding the logos to each.

You need to only do it to the first page header:

Thanks Cosmo, I played around with that a little before posting. Problem is if I change that line to
ActiveDocument.Sections(1).Headers(wdHeaderFooterF irstPage)

I get the message Object doesn't support this property or method.

Ok so I re wrote the macro to this and it seems to work...
Now I need to be able to bookmark these images being added for removal later if possible?

Sub TITLE()
Application.ScreenUpdating = False
Dim Shp As Shape

ActiveDocument.Sections(1).PageSetup.DifferentFirs tPageHeaderFooter = True
ActiveDocument.Sections(1).PageSetup.TopMargin = CentimetersToPoints(5)

With Selection.Sections(1)
Set Shp = .Headers(wdHeaderFooterFirstPage).Shapes.AddPictur e _
(FileName:="Z:\Logo1.jpg", LinkToFile:=False, SaveWithDocument:=True)
With Shp
.Height = CentimetersToPoints(4.94)
.Width = CentimetersToPoints(3.58)
.LockAspectRatio = True
.Left = CentimetersToPoints(13.67)
.Top = CentimetersToPoints(-1.23)
.WrapFormat.AllowOverlap = True
.WrapFormat.Side = wdWrapNone
End With

With Selection.Sections(1)
Set Shp = .Headers(wdHeaderFooterFirstPage).Shapes.AddPictur e _
(FileName:="Z:\Logo2.jpg", LinkToFile:=False, SaveWithDocument:=True)
With Shp
.Height = CentimetersToPoints(4.29)
.Width = CentimetersToPoints(4.84)
.LockAspectRatio = True
.Left = CentimetersToPoints(7.83)
.Top = CentimetersToPoints(-0.27)
.WrapFormat.AllowOverlap = True
.WrapFormat.Side = wdWrapNone
End With
End With
Set Shp = Nothing
Application.ScreenUpdating = True
End Sub

Thank you

You can't bookmark a shape object. You might bookmark its anchor but, better still, if you name the shape, you can use the name for future reference.
PS: When posting code, please use the code tags, indicated by the # button on the posting menu. Without them, your code loses much of whatever structure it had.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

That's great, thank you macropod, will use the # in future.

It turns out then inserting text as a picture file loses quite a bit of quality in the image, so when it prints it looks pretty bad.
Instead of inserting a picture using this method is it possible to insert a text box with text in it into the header and position it accordingly?

Thanks again.

The result you get with images depend on the file format of the image and whether you let Word compress the images. Vector images are uncompressible and retain whatever resolution they're created with. Bitmap images come in a variety of formats (e.g. JPG, TIFF, PNG, GIF) and some of these (e.g. JPG) really aren't suitable for high-resolution text reproduction; allowing Word to compress bitmaps reduces whatever quality they had.

That said, if all you're working with is text, you might consider adding that to a textbox or table cell, which simplifies identification of the range you want to work with.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Thanks again, I think as its just text it might be better to use textboxes.

I have managed to get a textbox added into the header and put in some 'test' text, how do I set the textbox to have no outline and set the font etc for the text?
and last thing, how would I go about hiding it for printing, I was using this to hide the logo..

You can hide the outline with:
.Line.Visible = False
(the macro recorder could show you that).

As for hiding the content a print time, you can do that without a macro. See, for example Show or hide instructions & graphics at print time in my Microsoft Word Date Calculation Tutorial, available at:
http://windowssecrets.com/forums/sho...ation-Tutorial
or:
http://www.gmayor.com/downloads.htm#Third_party

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Thanks again for your help.