使用VBA将活动的Word文档复制并粘贴到活动的Excel文档中

Question

是否可以使用VBA将Word文档（打开的文档）的内容复制到活动的excel文档中？

我正在使用Excel / Word 2013

Answer 1

嗨，我找到了解决自己问题的方法。

在Excel工作簿中，您必须设置以下内容

“工具->引用-> Microsoft Forms 2.0对象库”，否则您将收到“编译错误：未定义用户定义的类型”

       Sub ClipboardToExcel()

       Dim MyData As DataObject
       Dim strClip As String


       Set MyData = New DataObject
       MyData.GetFromClipboard
       strClip = MyData.GetText

       Sheets("sheet2").Select
       Range("A1").Select
       ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= 
       _
       False, NoHTMLFormatting:=True

      End Sub