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较旧菜单界面的本技巧的版本: