pictures not going to bookmark location when .dotm file is opened by double click ?

[sarveshspace]

Hello all!

I have a document with bookmark 'pretestpics' on page 4 where i would like to bulk insert my photos in table.
I have the code such that whenever i open the .dotm file , i will get pop ups of userforms to fill data.
ie sub document_new()
userform1.show
userform2.show

'and so on and so forth
end sub

When i right click on the .dotm document and open it , i can run the userform and the pictures will go to the bookmark location.
However, when i double click on the .dotm document and the userforms pop up and i select the pics, they will not go to my bookmark but go to the very beginning of the document. How can i fix this ? does it have anything to do with inlineshapes and shapes ? I would like the pics to go to the bookmark location.
here is the code . I have also attached the zip file which contains the .dotm file. Please take a look at userform3 , insert pretest pictures button code .
here it is -

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False
Dim i As Long, j As Long, c As Long, r As Long, NumCols As Long
Dim oTbl As Table, TblWdth As Single, StrTxt As String, RwHght As Single
On Error GoTo ErrExit
NumCols = 3
RwHght = CSng(3.8)
On Error GoTo 0
'Select and insert the Pics
With Application.FileDialog(msoFileDialogFilePicker)
  .Title = "Select image files and click OK"
  .Filters.Add "Images", "*.gif; *.jpg; *.jpeg; *.bmp; *.tif; *.png"
  .FilterIndex = 2
  .AllowMultiSelect = True
  If .Show = -1 Then
    'Add a 3-row by NumCols-column table to take the images
    Set oTbl = Selection.Tables.Add(Range:=Selection.Range, NumRows:=2, NumColumns:=NumCols)
    Dim orng As Word.Range
    Set ornge = ActiveDocument.Range.Bookmarks("pretestpics").Range
    ActiveDocument.Bookmarks.Add "pretestpics", oTbl.Range
    With ActiveDocument.PageSetup
      TblWdth = .PageWidth - .LeftMargin - .RightMargin - .Gutter
    End With
    With oTbl
      .Borders.Enable = True
      .AutoFitBehavior (wdAutoFitFixed)
      .Columns.Width = InchesToPoints(2.2)
    End With
    CaptionLabels.Add Name:="Picture"
    For i = 1 To .SelectedItems.Count Step NumCols
      r = ((i + 1) / NumCols + 1) * 2 - 1
      'Format the rows
      Call FormatRows3(oTbl, r, RwHght)
      For c = 1 To NumCols
        j = j + 1
        'Insert the Picture
        ActiveDocument.InlineShapes.AddPicture _
          FileName:=.SelectedItems(j), LinkToFile:=False, _
          SaveWithDocument:=True, Range:=oTbl.Cell(r, c).Range

        ' is the problem here? do i need to convert inlineshapes to shapes ? how to do it?
        'Get the Image name for the Caption
        With oTbl.Cell(r - 1, c).Range
          .InsertBefore vbCr
          .Characters.First.InsertCaption _
            Label:="Picture", Title:=StrTxt, _
            Position:=wdCaptionPositionBelow, ExcludeLabel:=False
          .Characters.First = vbNullString
          .Characters.Last.Previous = vbNullString
        End With
        'Exit when we're done
        If j = .SelectedItems.Count Then Exit For
      Next
      'Add extra rows as needed
      If j < .SelectedItems.Count Then
        oTbl.Rows.Add
        oTbl.Rows.Add
      End If
    Next
  Else
  End If
End With
ErrExit:
Application.ScreenUpdating = True
End Sub
'
Sub FormatRows3(oTbl As Table, x As Long, Hght As Single)
With oTbl
  With .Rows(x - 1)
    .Height = CentimetersToPoints(0.5)
    .HeightRule = wdRowHeightExactly
    .Shading.BackgroundPatternColor = wdColorBlack

    With .Range
      .Style = "Normal"
      With .ParagraphFormat
        .SpaceBefore = 0
        .SpaceAfter = 0
      End With
    End With
  End With
  With .Rows(x)
    .Height = CentimetersToPoints(Hght)
    .HeightRule = wdRowHeightExactly
    With .Range
      .Style = "Normal"
      With .ParagraphFormat
        .SpaceBefore = 0
        .SpaceAfter = 0
      End With
    End With
  End With
  End With
End Sub

thank you so much for your help!

[macropod]

Take a look at what your code is doing here:

    Set oTbl = Selection.Tables.Add(Range:=Selection.Range, NumRows:=2, NumColumns:=NumCols)
    Dim orng As Word.Range
    Set ornge = ActiveDocument.Range.Bookmarks("pretestpics").Range
    ActiveDocument.Bookmarks.Add "pretestpics", oTbl.Range

you say you already have the bookmark, but you're not using it as the location to insert the table. You're evidently not using Option Explicit, either, as you Dim orng but Set ornge (both of which are unnecessary, anyway, as is the next line).

PS: When posting code, please post formatted code and use the code tags, indicated by the # button on the posting menu. Without them, your code loses much of whatever structure it had.

[sarveshspace]

Dear mr edstein,
Thank you very much for your reply. I am a noob when it comes to visual basic coding. I have copied the above code from some other post and have tweaked it a bit. To be honest I am not hundred percent sure I understand what you meant with your reply. I have no idea how to use option explicit command. I would greatly appreciate if you could help me solve this issue. I have also attached the zip file for your reference.
Again, thank you very much for your help mr edstein.

[macropod]

I have copied the above code from some other post and have tweaked it a bit.

Yes, I know - I wrote the underlying code.

Put simply, replace:

    Set oTbl = Selection.Tables.Add(Range:=Selection.Range, NumRows:=2, NumColumns:=NumCols)Dim orng As Word.Range
    Set ornge = ActiveDocument.Range.Bookmarks("pretestpics").Range
    ActiveDocument.Bookmarks.Add "pretestpics", oTbl.Range

with:

    With ActiveDocument
      Set oTbl = .Tables.Add(Range:=.Bookmarks("pretestpics").Range, NumRows:=2, NumColumns:=NumCols)
    End With

[sarveshspace]

thank you very much! this solved the issue!