用VBA实现将Excel表格粘贴到Word

mayejuejiang

各位老师好：        小弟现在有个问题，想将Excel中的一个表格（已做好）粘贴到Word中的指定位置，
    由于不知道怎么用Excel VBA实现对Word的操作，特此请教大家，
    具体需求说明：
    利用Excel宏程序将Word文件打开，并将附件中Excel的表格粘贴到附件中Word的第7行。    还望各位大神指点，多谢！

dongfgdwdjg

楼主用到行这个概念，但word中的行很复杂，引用守柔版主的原话：“Word 2003及其以后版本中，是有“页”和“行”对象的，即“Page"和“Line“，它们也可以与Range对象关联起来，但尽量不要使用这些对象，如果程序要通过页和行来解决问题时，应该检讨一下程序的设计思路是否存在问题，在使用“页”特别是“行”对象时，请慎用。
3楼复制到文末（文件共6段)，估计也是避免用行以免造成麻烦。
但如果不是为了实用，为了研究学习，用行其实也未尝不可，我下面提供的代码最终按楼主要求粘贴到第7行，但也准备了按段粘贴的一个代码备楼主参考学习（第3段在文即第7行)，楼主要用，把前边单引号去掉可以直接使用。
以上纯属个人见解，如果不对，请原谅，如果对了，请赏花。
Dim dpath, Filename As String
    Dim wdapp As Word.Application
    Dim wddocument As Word.Document
    dpath = ThisWorkbook.Path
    Set wdapp = New Word.Application
    Application.ScreenUpdating = False
    Filename = Dir(dpath & "\Q-Word.docx")
    Set wddocument = wdapp.Documents.Open(dpath & "\" & Filename)
       Sheet1.Range("B2:E7").Copy
       With wdapp.Application
            .Selection.MoveDown Unit:=wdLine, Count:=6 '从头下移6行，实际上就是第7 行
            .Selection.Paste
       End With
        'wddocument.Paragraphs(3).Range.Paste'复制到word文件的第3段
    Application.ScreenUpdating = True

mayejuejiang

还需补充一点：开始的时候只打开Excel，在宏程序中打开Word，谢谢！

131409166

Sub 生成()

Dim appWD, doc As Object



Set appWD = CreateObject("Word.Application")
appWD.Visible = True
Set appWD = GetObject(, "Word.Application")
Set doc = GetObject(ThisWorkbook.Path & "\模板.docx")
appWD.Visible = True


Application.CutCopyMode = False
ThisWorkbook.Activate
Range("e5:j20").Select
Selection.Copy
appWD.Visible = True


appWD.Selection.Paste




MsgBox "OK"
End Sub

dongfgdwdjg

附件。楼主可能需要打开引用，即先在VBE中:工具----引用--Microsoft Word 11.0 Object Library (就是引用word 对象，不同的版本，Word 11.0会不同，有的是Word 9.0，我现在用的是2003版本)或Microsoft Word 14.0 Object Library

jiminyanyan

dongfgdwdjg 发表于 2016-8-26 19:35
附件。楼主可能需要打开引用，即先在VBE中:工具----引用--Microsoft Word 11.0 Object Library (就是引用wo ...

我倒是觉得，先在WORD中做好表格，EXCEL中的数据写入，这样无论是表格的格式还是定位都好控制些。。。。

dongfgdwdjg

jiminyanyan 发表于 2016-8-26 20:43
我倒是觉得，先在WORD中做好表格，EXCEL中的数据写入，这样无论是表格的格式还是定位都好控制些。。。。

严重同意，那样速度也快。但前提是表格样式要提前知道。如果行和列动态变化，大约提前做好表格有难度。

dongfgdwdjg

jiminyanyan 发表于 2016-8-26 20:43
我倒是觉得，先在WORD中做好表格，EXCEL中的数据写入，这样无论是表格的格式还是定位都好控制些。。。。

我其实也不懂，接触VBA太晚。
有个问题想请教一下：我想把WORD文档中每段末的非文字内容删除（包括标点符号、空格、其他符号等)，在excel中能做到吗？我本意是想把每段末都统一为句号，需要先删除其他非文字内容。

dongfgdwdjg

我5楼代码中With ……End With部分是指定位置粘贴，这四行代码实质上与下面一行代码wddocument.Paragraphs(3).Range.Paste作用相同。
其中.Selection.MoveDown Unit:=wdLine, Count:=6 是指定粘贴位置的，我把这句替换为其他代码，得到不同效果。因为我也是初学，理论很肤浅，主要靠反复调试代码学一点东西，知其然不知其所以然，如果说的不对，请老师们斧正，要是凑巧说对了，希望能给大家一点帮助，当然，大家能赏花更好，呵呵。替换代码及说明如下：
①.Selection.Sections.Item (1)
复制到word文件的第1节开始位置，如果文件有多节，括号里的1可以换为其他节数，但超过节数就报错。如本例中只有一节，填写任何大于1的数值都报错；
②.Selection.HomeKey Unit:=wdLine
复制到文件开始位置，代码中没有行数（Count:=）；
③.Selection.MoveUp Unit:=wdLine, Count:=10
复制到文件开始位置，与上边那句代码效果相同，不知道具体区别何在，希望明白的人指教。代码中有行数（Count:=），但行数似乎不影响效果，我测试时把10换成1或2或5均没有区别；
④.Selection.MoveEnd Unit:=wdLine, Count:=10'复制并替换前10行
感到这一句很奇葩，居然有替换（覆盖）功能，我测试时，用Count:=1时仅替换第一行，用Count:=2时替换前2行，用Count:=5时替换前5行，不是插入是覆盖，实际上不好玩；
⑤ .Selection.EndKey Unit:=wdLine
这一句更奇葩，当初我的想法是复制到文档最后，但经反复测试，不能复制到文档末尾，而是复制到文件第一行和第二行之间，并把第一行变为第一段，即在第一行后增加一个段落标记后插入复制，什么原理不太明白。

dongfgdwdjg

。。。。。。。。。。。。。。。。。与楼上重了，怎么删除？呵呵呵