时间戳

首页 > 解决方案 > 将文字和图片复制到新的word文档中

vba - 将文字和图片复制到新的word文档中

问题描述

在活动 Word 文档中，我有一个宏，它从文档中提取文本字符串和所有图像。我想将这段文字和图片复制到一个新的空白word文档中。

我尝试了以下

Dim docNew As Document
Set docNew = Documents.Add

With ThisDocument    
                ...
                docNew.Content.Text = docNew.Content.Text & vbCrLf & sSentence
                For Each iShape In .InlineShapes
                    iShape.Select
                    Selection.CopyAsPicture
                    docNew.Content.Paste
                Next iShape
End With

当我执行此代码时，首先将文本正确复制到新的空白文档中。但是当粘贴图片时，它会覆盖文本，并且只有图片保留在文档中。

如何修改代码以包含文本和所有图片？

标签： vbams-word

解决方案

正如您在查看帮助文本 .Content时会发现的那样，它代表了文档的整个主体。

假设您要在文档末尾添加图片，请替换

docNew.Content.Paste

和

   With docNew.Content
      .InsertParagraphAfter
      .Paragraphs.Last.Range.Paste
   End With

推荐阅读