在文档中插入多个图形（Microsoft Word）

发表于： 2020年11月12日 2020年11月12日

John每周需要创建一个http://www.formville.com/C2_free-invoice-forms.html[invoice]并将几个扫描的文档插入Word文档。他想知道是否有办法将特定文件夹中的所有JPG图像都放入当前的Word文档中。

您可以通过两种方法来执行此操作。一种方法是简单地选择所有图形并一步插入它们：

。将插入点放在文档中要插入图形的位置。

。显示功能区的“插入”选项卡。

。单击图片工具。 Word将显示“插入图片”对话框。

。使用对话框中的控件找到包含图像的文件夹。

。按Ctrl + A。 Word选择文件夹中的所有文件。

。单击插入。

而已; Word将所有图形插入文档中。您将需要谨慎操作，因为如果有很多（例如超过100个）

文件夹中的图形，或者图形文件很大，则可以减慢Word的爬网速度或将其完全挂起。如果该文件夹不仅包含图形，或者只需要一些图形文件，则可以在按住鼠标键的同时按住Ctrl键，同时在步骤5中选择图形。要点是，无论您在步骤5中选择了什么文件，这些是Word插入文档中的文件。

此方法的一种变体涉及Windows的使用。请遵循以下一般步骤：

。将插入点放在文档中要插入图形的位置。

。最小化Word文档。

。在Windows中，显示图像所在的文件夹。

。为要插入到文档中的图像建立选择集。

。单击选择集中的任何单个图像，然后按住鼠标按钮。

。将选择集拖到任务栏上显示的文档上方。（暂时不要释放鼠标按钮。）

。 Windows显示Word文档（几秒钟后会显示）后，释放鼠标按钮。

此时，您在第4步中选择的所有图像都将插入到Word文档中，与以前的方法相同。

如果使用上述任何一种方法，则需要调整图像的大小并根据需要移动它们，以便您的文档以所需的方式显示。

当然，如果您需要例行插入整组图像，那么过一会儿，执行这些步骤可能会很累。

通常可以通过使用宏来释放Tedium，这种情况也不例外。以下宏可用于显示一个对话框（类似于早期方法中使用的对话框），您可以在其中选择所需的文件。关闭对话框时，在对话框中选择的所有图像都会插入到文档中，每个图像都有自己的段落。

Sub InsertImages()

Dim doc As Word.Document     Dim fd As FileDialog     Dim vItem As Variant     Dim mg1 As Range     Dim mg2 As Range

Set fd = Application.FileDialog(msoFileDialogFilePicker)

Set doc = ActiveDocument

With fd         .Filters.Add "Images", ".gif; .jpg; *.jpeg", 1         .FilterIndex = 1

If .Show = -1 Then             For Each vItem In .SelectedItems                 Set mg2 = ActiveDocument.Range                 mg2.Collapse wdCollapseEnd                 doc.InlineShapes.AddPicture _                   FileName:=vItem, _                   LinkToFile:=False, SaveWithDocument:=True, Range:=mg2                 Set mg1 = ActiveDocument.Range                 mg1.Collapse wdCollapseEnd

mg1.Text = vbCrLF & vbCrLf             Next vItem         End If     End With

Set fd = Nothing End Sub

如果不想麻烦选择文件夹或文件，则可以使用更简单的宏。以下内容从指定的文件夹中提取所有JPG文件，并将它们放置在当前文档中。每个图像都在其自己的段落中。

Sub GetPictures()

Dim sPic As String     Dim sPath As String

sPath = "c:\myfolder\"

sPic = Dir(sPath & "*.jpg")



Do While sPic <> ""

Selection.InlineShapes.AddPicture _           FileName:=sPath & sPic, _           LinkToFile:=False, SaveWithDocument:=True         sPic = Dir         Selection.TypeParagraph         Selection.TypeParagraph     Loop End Sub

要使用该宏，只需确保更改分配给sPath的值，使其代表所需的文件夹。

注意：

如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）中描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（10727）适用于Microsoft Word 2007、2010、2013和2016。您可以在这里找到适用于Word较旧菜单界面的本技巧的版本：

在文档中插入多个图形。