当处理包含图形的长文档时,通常使用INCLUDEPICTURE字段将图形实际插入文档中。如果您的文档中包含大量这些字段,则可能需要一种方法来创建“艺术品列表”,其中包括文档中使用的图形文件的名称。

通过使用一个相对简单的宏,您可以逐步浏览文档中INCLUDEPICTURE字段的每个实例,并仅提取所引用文件的名称。然后可以将它们添加到新文档中,以便在完成宏后,新文档仅包含INCLUDEPICTURE字段中引用的文件列表。这是一个宏,将执行此操作:

Sub GetIncludePictures()

Dim oField As Field     Dim oCurrentDoc As Document     Dim oNewDoc As Document     Dim sFileName As String

Set oCurrentDoc = ActiveDocument     Set oNewDoc = Application.Documents.Add

For Each oField In oCurrentDoc.Fields         If oField.Type = wdFieldIncludePicture Then             sFileName = Replace(oField.Code, "INCLUDEPICTURE", "")

sFileName = Replace(sFileName, "MERGEFORMAT", "")

sFileName = Replace(sFileName, "\*", "")

sFileName = Replace(sFileName, "\d", "")

sFileName = Replace(sFileName, Chr(34), "")

sFileName = Replace(sFileName, "\\", "\")

sFileName = Trim(sFileName)

oNewDoc.Range.InsertAfter sFileName & vbCrLf         End If     Next oField

oNewDoc.Activate

Set oField = Nothing     Set oCurrentDoc = Nothing     Set oNewDoc = Nothing End Sub

请注意在宏中多次使用“替换”功能。此函数用其他文本替换出现在另一个字符串中的一个字符串。这听起来可能令人困惑,但这非常方便。例如,假设您有一个包含字符“ This is my string”的字符串(sMyString),并且使用以下命令:

SMyString = Replace(sMyString, "s", "X")

这导致sMyString中的每个小写字母“ s”被大写字母“ X”替换。结果是sMyString现在将包含“ ThiX iX my Xtring”。

对于GetIncludePictures宏,包含“替换”功能的几行用于从域代码中删除所有多余的字符,但图片的实际文件名除外。如果还希望删除其他内容,则可以添加更多行以删除这些元素。 (例如,如果您要删除存储图片的标准路径名。)

当宏运行完毕后,新文档中唯一的内容应该是图片名称,如以下示例所示:

C:\mypics\picture1.tif ..\graphics\chap01\fig03.gif

如果只需要文件名而不是完整路径名,则可以稍微修改GetIncludePictures宏以包含解析出该路径的代码。您可以通过在sFileName = Trim(sFileName)行之后将以下内容添加到宏中来执行此操作:

While Instr(sFileName, "\") > 0                 sFileName = Mid(sFileName, Instr(sFileName, "\") + 1)

Wend

注意:

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

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

(Microsoft Word是世界上最流行的文字处理软件。)本技巧(1296)适用于Microsoft Word 97、2000、2002和2003。您可以找到Word(Word 2007)的功能区界面的本技巧版本。和更高版本)在这里: