Does anyone know how to add a picture at the end og and document (instead of the beginning). I have tried the tricks below and none seems to work.
Sub InsertPic()'' BarCode_Writer Macro' Macro created 11/13/2001 by mitikavumam''ActiveDocument.Select Const iTitle = "Open to End" Dim fName as string Dim lngRetVal as Long With Application.Dialogs(wdDialogFileOpen) lngRetVal = .Display fName = .Name End With If lngRetVal <> -1 then MsgBox prompt:="Operation Canceled", Title:=iTitle Exit Sub End If ' do not open the file 'Documents.Open FileName:=fName 'Selection.EndKey Unit:=wdStory MsgBox prompt:="document '" & fName & "' opened.", _ Title:=iTitle & " Complete" ' possibility 1 ' try the start of a document 'Select the top of the ddocument ActiveDocument.Bookmarks("\EndOfDoc").Select set oRange = _ ActiveDocument.Range(ActiveDocument.Bookmarks("\EndofDoc").Range.Start, _ End:=ActiveDocument.Bookmarks("\EndofDoc").Range.End) '(FileName:="C:\Program Files\Microsoft Office\Clipart\Popular\AGREE.WMF", 'ActiveDocument.Selection.Shapes.AddPicture(FileName:=fName, _ 'LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, _ 'Left:=0, Top:=0, Width:=100, Height:=100).Select ActiveDocument.Shapes.AddPicture (fName) 'LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, _ 'Left:=0, Top:=0, Width:=100, Height:=100).Select 'ExcelWorksheet1.ExcelWorksheet.Shapes.AddPicture( 'C:\MyBitmap.bmp', // filename 'msoFalse, // LinkToFile (true = make link to file, false = make copy of the file in document) 'msoCTrue, // SaveWithDocument (must be true if LinkToFile is false) '10, // Left '10, // Top '300, // Width '300); // Height End Sub

Sub InsertPic()'' BarCode_Writer Macro' Macro created 11/13/2001 by mitikavumam''ActiveDocument.Select Const iTitle = "Open to End" Dim fName as string Dim lngRetVal as Long With Application.Dialogs(wdDialogFileOpen) lngRetVal = .Display fName = .Name End With If lngRetVal <> -1 then MsgBox prompt:="Operation Canceled", Title:=iTitle Exit Sub End If ' do not open the file 'Documents.Open FileName:=fName 'Selection.EndKey Unit:=wdStory MsgBox prompt:="document '" & fName & "' opened.", _ Title:=iTitle & " Complete" ' possibility 1 ' try the start of a document 'Select the top of the ddocument ActiveDocument.Bookmarks("\EndOfDoc").Select set oRange = _ ActiveDocument.Range(ActiveDocument.Bookmarks("\EndofDoc").Range.Start, _ End:=ActiveDocument.Bookmarks("\EndofDoc").Range.End) '(FileName:="C:\Program Files\Microsoft Office\Clipart\Popular\AGREE.WMF", 'ActiveDocument.Selection.Shapes.AddPicture(FileName:=fName, _ 'LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, _ 'Left:=0, Top:=0, Width:=100, Height:=100).Select ActiveDocument.Shapes.AddPicture (fName) 'LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, _ 'Left:=0, Top:=0, Width:=100, Height:=100).Select 'ExcelWorksheet1.ExcelWorksheet.Shapes.AddPicture( 'C:\MyBitmap.bmp', // filename 'msoFalse, // LinkToFile (true = make link to file, false = make copy of the file in document) 'msoCTrue, // SaveWithDocument (must be true if LinkToFile is false) '10, // Left '10, // Top '300, // Width '300); // Height End Sub