用VBA把Excel中的表粘贴到Word？

来源：百度知道 编辑：UC知道 时间：2024/06/14 00:08:30
我想把Excel中的表格（比如A1：C3）粘贴到word中的指定位置（比如粘贴到“指定位置”这几个字之后），应该怎么做，请大家帮忙！
非常感谢，已经搞定了！
不过在直接用你的程序运行时提示
“appWD.Selection.PasteExcelTable False, False, False”
有错，我直接把“ExcelTable False, False, False”删了就没有报错了，但是不知道是什么原因。
不好意思，VB懂得太少！
再次感谢！

忘记说了，要加入word的Object library才行的。
方法：
在excel的vb编辑器菜单中，选“工具”---“引用”---在那列表中往下找“Microsoft Word 9.0 Object Library”，把它前面的框勾上，确定。
这样执行就没错了。

Sub Macro1()

Dim appWD As Word.Application, doc As Object
Range("A1:C3").Select
Selection.Copy

Set appWD = CreateObject("Word.Application")
appWD.Visible = True
Set appWD = GetObject(, "Word.Application")
Set doc = GetObject("D:\doc1.doc")
appWD.Visible = True

With appWD.Selection.Find
.Text = "指定位置"
.Wrap = wdFindContinue
End With
appWD.Selection.Find.Execute
appWD.Selection.MoveRight Unit:=wdCharacter, Count:=1
appWD.Selection.TypeParagraph
appWD.Selection.MoveLeft Unit:=wdCharacter, Count:=1
appWD.Selection.PasteExcelTable False, False, False
appWD.Quit (wdSaveChanges)
End Sub

直接复制粘贴就行啊