在使用vba代码的词的桌以后的文本

我使用vba代码创buildword文档，并将一些数据从excel传输到我创build的单词表中。 我没有问题创build表，但我得到一个错误，以开始一个新的行/段后的表。

现在我的代码会select整个表格，但不会在表格后面开始新的文本，所以后面的内容被添加到我创build的表格中的单元格（1,1）。

我只是向您展示我的代码的结构，并在Selection.Collapse这行代码中出现错误。 错误是运行时错误438，对象不支持这个属性或方法。 我在网上做了一些研究，但没有帮助。

  Sub Word_Report() Dim objWord As Object Dim objDoc As Object Set objWord = CreateObject("Word.Application") objWord.Visible = True Set objDoc = objWord.Documents.Add() With objWord.Selection Set myTable = objDoc.Tables.Add(Range:=objWord.Selection.Range, NumRows:=7, NumColumns:=3) myTable.Borders.Enable = True ''' my table contents''' end with 'start new line after table objDoc.Range.InsertAfter Chr(13) & "Hello" .Font.Size = 11 .BoldRun End sub 

Answer 1

编辑

尝试以下操作：

  Sub Word_Report() Dim objWord As Object Dim objDoc As Object Set objWord = CreateObject("Word.Application") objWord.Visible = True Set objDoc = objWord.Documents.Add() With objWord.Selection Set myTable = objDoc.Tables.Add(Range:=objWord.Selection.Range, NumRows:=7, NumColumns:=3) myTable.Borders.Enable = True ''' my table contents''' End With 'start new line after table objDoc.Range.InsertAfter Chr(13) & "Hello" End Sub 

使用.Range而不是Selection