Question

VB 向WORD 插入表格问题

用VB打开一个已经存在的Word（里面没有表格，只有若干行文本），现在想在文本的末尾插入一个表格，但每次插入的表格都是从第一行开始的。请问如何去做，请高手指点，谢谢。我的代码如下：
Dim WordApp As Word.Application
Dim wordDoc As Word.Document
Option Explicit

Private Sub Command1_Click()
Dim WordApp
Dim Word
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set Word = WordApp.Documents.Open(App.Path & "\1.doc")
Word.Content.InsertAfter vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf
'Selection.GoTo What:=wdGoToLine, Which:=wdGoToAbsolute, Count:=15 '此句可以控制，但我想直接在末尾加入表格，因为实现不知道Word中有几行文本
WordApp.ActiveDocument.Tables.Add Word.Application.Selection.Range, NumRows:=3, NumColumns:=4, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed

End Sub

Answer 1

这问题是有关编程的应该发到VB里去，这里都是解决应用问题的，所在很难解决你的问题。