450错误消息

Question

我无法获得要打开的单词的原始副本。它只允许我只读副本。 Doc.Tables.Add ...似乎不起作用。

我最终会将一个数组传递给这个子例程，其中包含要写入#the表字段的数据。首先，我必须让它添加表格。我得到的#sense是我的＃34; Doc＆＃34;不被承认。任何帮助表示赞赏。

    Sub InsertTbl()
        Dim wd As Word.Application
        Dim Doc As Word.Document
        Dim fn As String

        fn = "H:\JailData\aaNEW\GTL_Receipts.docx"
        Set wd = New Word.Application
        wd.Visible = True
        Set Doc = wd.Documents.Open(fn)
        MsgBox Doc.Tables.Count
        Doc.Tables.Add Range:=Selection.Range, NumRows:=3, NumColumns:=4

        tblIndx = Doc.Tables.Count
        With Doc.Tables(tblIndx).Application
            .Left = 100
            .Top = 200
        End With
        Doc.Tables(tblIndx).Range.Font.Size = 8
    End Sub