Question

我已经在Excel中创建了一个userform，人们可以在其中填写某些信息，然后按一下按钮就可以创建Word文档。

这一切都很好，但是我还提供了将图片添加到该Word文档的选项，因此人们可以在某个时候选择图片。

将这些图片的文件路径放入数组中，并将userform中的所有信息添加到Word文档中之后，需要添加图片。这也可以，但是由于某种原因，它们被添加在文档的顶部，而不是底部。有什么方法可以指定我要添加到底部吗？

我现在拥有的代码是：

Set wrdApp = New Word.Application
Set wrdDoc = wrdApp.Documents.Add

With wrdDoc

For i = 1 To UBound(ImageArr)
        .InlineShapes.AddPicture Filename:=ImageArr(i)      
Next i

Answer 1

将内容添加到Word文档时，最好指定一个特定的目标Range。这是一个复杂的主题，创建Range ...

的选项通常不止一个

但是为了获得文档的结尾，我通常使用：

Dim rngEndOfDoc as Range
Set rngEndOfDoc = wrdDoc.Content
rngEndOfDoc.Collapse(0)  'Word enumeration: wdCollapseEnd

然后添加图片

wrdDoc.InlineShapes.AddPicture Filename:=ImageArr(i), Range:=rngEndOfDoc

在Word文档末尾添加图像

1 个答案: