title: 450 Error message
body: <p>I cannot get an original copy of word to open. It only allows me a read only copy. The Doc.Tables.Add... does not seem to work.  </p>
  
  <p>I will eventually pass an array to this sub routine, containing data to write to the fields of #the table.  First I have to get it to add tables. I get the #sense that my "Doc" is not recognized.  Any help is appreciated.</p>
  
  <pre><code>    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
  </code></pre>