提供程序，运行excelvba程序，打开word，在word文档最后一段插入3*3的表格

在Excel VBA中编写程序来通过宏操作Word文档，可以在Word中插入表格。以下是简单的步骤：

1. 打开Excel并进入VBA编辑器（按Alt + F11）。

2. 点击“插入”->“模块”，然后你会看到一个新的Module窗口，这是编写宏的地方。

3. 使用以下VBA代码作为模板（粘贴到模块中）：

Sub InsertTableInWord()
    Dim WordApp As Object
    Dim WordDoc As Object
    Dim LastPara As Range
    Dim StartRow As Long
    
    ' 创建Word应用程序实例
    Set WordApp = CreateObject("Word.Application")
    
    ' 隐藏Word启动提示
    WordApp.Visible = False

    ' 检查是否已打开Word文档，如果没有则创建新文档
    If WordApp.Documents.Count = 0 Then
        Set WordDoc = WordApp.Documents.Add
    Else
        Set WordDoc = WordApp.ActiveDocument
    End If
    
    ' 获取Word文档的最后一段落
    Set LastPara = WordDoc.Content.Paragraphs.Last
    
    ' 插入表格
    StartRow = LastPara.Range.Row + 1 ' 表格下一行开始
    WordDoc.Tables.Add(LastPara.Range, 3, 3) ' 3行3列的表格
    ' 可能需要调整表格位置和样式，这里省略了

    ' 保存并关闭Word文档
    WordDoc.SaveAs FileName:="C:\Temp\Output.docx" ' 替换为你希望保存的位置
    WordDoc.Close SaveChanges:=True
    WordApp.Quit ' 关闭Word应用程序

    ' 清理内存
    Set LastPara = Nothing
    Set WordDoc = Nothing
    Set WordApp = Nothing
End Sub

4. 将这段代码复制后，点击工具栏上的“立即运行”按钮（或F5），或者在VBA编辑器中选择“运行”>“运行全部”。

5. 完成上述操作后，会在指定路径（如"C:\Temp\Output.docx"）找到新的Word文档，其中会包含你在Word文档最后一段插入的3*3表格。