使用VBA将Excel对象导出到MS-Word

我想创build一个Word文档的Excel结果，这样做我将使用VBA导出带有文本的形状。

我可以将Shape导出到word文档，但是一旦文字变为文字，文本就会丢失。 有人可以让我知道我做错了什么，或者需要添加到让我的形状包含文字，一旦它到达Word文档。

问题：一旦复制到单词上，我的形状上没有文字

Dim wrdApp As Word.Application Dim embedWord As oleObject Dim wordDocument As Object 

我的Word文档embedded到Excel中

 Set embedWord = ActiveWorkbook.Sheets("Sheet1").OLEObjects(1) embedWord.Verb Verb:=xlPrimary Set wordDocument = embedWord.Object wordDocument.SaveAs (ActiveWorkbook.Path & "\test1.docx") Set wrdApp = GetObject(, "Word.Application") wrdApp.Quit 

我保存word文档，然后将其分配给我的wrdApp

 Set wrdApp = CreateObject("Word.Application") wrdApp.Documents.Open ActiveWorkbook.Path & "\test1.docx" 

这是一个矩形，我可以得到复制到单词，但没有文字来与它。

 ThisWorkbook.Sheets("Sheet1").Shapes("Rectangle 8").Copy With wrdApp .Selection.Goto What:=wdGoToBookmark, Name:=Bookmark1 'Using a bookmark in the document .Selection.PasteAndFormat (wdPasteDefault) .Selection.TypeBackspace 'This is my error without this code it works fine, I think the words are selected and when this line is ran it deletes the text inside the shape. End With wrdApp.Visible = True wrdApp.Activate 

任何帮助将不胜感激。 如果这是可能的。

谢谢你，乔伊