将文字和图片复制到新的Word文档中

问题描述

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

我尝试了以下

   {% for mobile in mobiles %}
    <tr>
        <td>{{ forloop.id }}</td>
        <td>{{ mobile.brand }}</td>
        <td>${{ mobile.price }}</td>
        <td>{{ mobile.color }}</td>
        <td>{{ mobile.screen_size }}</td>
        <td>{{ mobile.os }}</td>
            <td><img src="{{ mobile.image.url }}" alt="No Photo"></td>
       </tr>
    {% endfor %}

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

我如何修改代码，以便包括文本以及所有图片？

解决方法

从查看the help text到.Content可以发现，它代表了文档的整个主体。

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

docNew.Content.Paste

使用

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