24/03/05 15:19:55.05 lrAkKyth0.net
>>22
具体的な用途がわからないけど、文書内の表のセルにただ入力したいだけなら文字列で書き込めばいいんじゃないかな
Sub 文書内のセルに転記()
Dim str As String
str = Cells(1, 1).Value
Dim doc As Object, i As Long
Set doc = Documents.Open(ThisWorkbook.Path & "\文書1.docm")
doc.Tables(1).Cell(1, 1).Range.Text = str
End Sub