Macro problem - expert needed

MacroGuy · 07-08-2008, 08:22 AM

Hello,

I'm trying to make a macro to automatically put a signature in a word document. The signature needs to be in front of the text.

The code:

If ActiveDocument.Bookmarks.Exists("mysig") = True Then
Selection.GoTo What:=wdGoToBookmark, Name:="mysig"
Selection.InlineShapes.AddPicture FileName:= _
"C:\Documents and Settings\Global\My Documents\MyPictures\sig.png", _
LinkToFile:=False, SaveWithDocument:=True
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.InlineShapes(1).ConvertToShape.Select
Selection.ShapeRange.WrapFormat.Type = wdWrapNone

This is what my macro does:

- Seek the bookmark "mysig"
- Paste the picture on the bookmark
- Select the picture... at this point the picture is at the correct spot ...- Convert to shape
... the picture now 'jumps' to the start of the document, this is what i don't want it to do ...
- Set the picture in front of the text

Can anyone help me to stop the picture from jumping to the start?

David M58 · 07-08-2008, 11:45 AM

A quick workaround would be to reposition the picture. For example, you could find out where the bookmark is located with a line of code such as:

Code:

BookmarkPos = ActiveDocument.Bookmarks("mysig").Range.Information(wdVerticalPositionRelativeToPage)

Then you could reposition the picture with a line of code such as:

Code:

Selection.ShapeRange.Top = BookmarkPos

MacroGuy · 07-09-2008, 01:19 AM

Thanks that helped me a lot!

07-08-2008, 08:22 AM	#1 (permalink)
MacroGuy Registered User Join Date: Jul 2008 Posts: 2 OS: Windows	Macro problem - expert needed Hello, I'm trying to make a macro to automatically put a signature in a word document. The signature needs to be in front of the text. The code: If ActiveDocument.Bookmarks.Exists("mysig") = True Then Selection.GoTo What:=wdGoToBookmark, Name:="mysig" Selection.InlineShapes.AddPicture FileName:= _ "C:\Documents and Settings\Global\My Documents\MyPictures\sig.png", _ LinkToFile:=False, SaveWithDocument:=True Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend Selection.InlineShapes(1).ConvertToShape.Select Selection.ShapeRange.WrapFormat.Type = wdWrapNone This is what my macro does: - Seek the bookmark "mysig" - Paste the picture on the bookmark - Select the picture... at this point the picture is at the correct spot ...- Convert to shape ... the picture now 'jumps' to the start of the document, this is what i don't want it to do ... - Set the picture in front of the text Can anyone help me to stop the picture from jumping to the start? Last edited by MacroGuy; 07-08-2008 at 08:24 AM.

07-08-2008, 11:45 AM	#2 (permalink)
David M58 Registered User Join Date: May 2008 Location: Baltimore, Maryland Posts: 160 OS: Windows XP SP3	Re: Macro problem - expert needed A quick workaround would be to reposition the picture. For example, you could find out where the bookmark is located with a line of code such as: Code: BookmarkPos = ActiveDocument.Bookmarks("mysig").Range.Information(wdVerticalPositionRelativeToPage) Then you could reposition the picture with a line of code such as: Code: Selection.ShapeRange.Top = BookmarkPos

07-09-2008, 01:19 AM	#3 (permalink)
MacroGuy Registered User Join Date: Jul 2008 Posts: 2 OS: Windows	Re: Macro problem - expert needed Thanks that helped me a lot!