Dim wrdApp As Word.Application
    Dim wrdDoc As Word.Document, WrdRng As Word.Range
    Dim i As Integer
    Set wrdApp = CreateObject("Word.Application")
    wrdApp.Visible = True
    Set wrdDoc = wrdApp.Documents.Open(directory)
    With wrdDoc
        If .Bookmarks.Exists("g") Then
            Set WrdRng = .Bookmarks("g").Range
            .Tables.Add Range:=WrdRng, NumRows:=2, NumColumns:=2
            ' Reapply the bookmark to the table
            .Bookmarks.Add Name:="g", Range:=WrdRng
        End If
     End With