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

Question

是否可以使用VBA将word文档(已打开)的内容复制到活动的excel文档中？

我使用的是excel / word 2013

Answer 1

嗨，我找到了我自己问题的答案。

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

‘'Tools ->引用-> MicrosoftForms2.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