求VB将word中某一个区域的内容复制粘贴到另一word中的方法。比如我将word中某一单元格的内容复制到另外一个word中。
我写的代码如下，可是粘贴的东西总是空的：
Dim wordDoc As Word.Document
Dim WordApp As Object
   
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set wordDoc = WordApp.Documents.Open(App.Path + "\tiku.doc")

wordDoc.Activate
wordDoc.Tables(1).Cell(2, 2).Range.Select '选中tiku.doc中表格1的第2行第2列的单元格。
Selection.WholeStory
Selection.Copy ’复制其中的内容，可能包含图片。

Windows("shijuan.doc").Activate   ’粘贴到到shijuan.doc中去
Selection.PasteAndFormat (wdPasteDefault)

QQ:27999246  ，请高手解答 ，万分感谢！