Populating Word Bookmarks from Excel macro

Hi there, I have an excel spreadsheet that populates a word template.

One thing it does is add a logo....

With appWD.ActiveDocument.Bookmarks("Logo")
        appWD.Selection.InlineShapes.AddPicture FileName:=ThisWorkbook.Path & "\templates\" & strLogo, LinkToFile:=False, SaveWithDocument:=True
End With

This works fine, but when I try to add another logo it just places two image files in the first Bookmark...

With appWD.ActiveDocument.Bookmarks("Logo")
        appWD.Selection.InlineShapes.AddPicture FileName:=ThisWorkbook.Path & "\templates\" & strLogo, LinkToFile:=False, SaveWithDocument:=True
End With

With appWD.ActiveDocument.Bookmarks("LogoA")
        appWD.Selection.InlineShapes.AddPicture FileName:=ThisWorkbook.Path & "\templates\" & strLogo, LinkToFile:=False, SaveWithDocument:=True
End With

Hi Chris

The With...End With construct does not select and so you should not use Selection inside.

Try:

    With appWD.ActiveDocument.Bookmarks("Logo")
            .Range.InlineShapes.AddPicture Filename:=ThisWorkbook.Path & "\templates\" & strLogo, LinkToFile:=False, SaveWithDocument:=True
    End With

    With appWD.ActiveDocument.Bookmarks("LogoA")
            .Range.InlineShapes.AddPicture Filename:=ThisWorkbook.Path & "\templates\" & strLogo, LinkToFile:=False, SaveWithDocument:=True
    End With

HTH
lecxe