InsertFile 方法

插入指定文档的全部或部分。

expression   必需。该表达式返回一个 Range 或 Selection 对象。

FileName   String 类型，必需。需要插入的文档的路径及文件名。如果没有指定路径，则 Word 将文档路径设为当前路径。

Range   Variant 类型，可选。当指定的文档是 Word 文档时，此参数代表书签。当该文档为其他类型时（例如，Microsoft Excel 工作表），此参数代表已命名的区域或单元格区域（例如，R1C1:R3C4）。

ConfirmConversions   Variant 类型，可选。如果值为 True，则 Word 将在插入非“Word 文档”格式的文档时提示对转换进行确认。

Link   Variant 类型，可选。如果值为 True，则可用 INCLUDETEXT 域插入该文档。

Attachment   Variant 类型，可选。为 True 时将该文件作为附件插入电子邮件消息中。

示例

本示例用 INCLUDETEXT 域在插入点插入 TEST.DOC。

Selection.Collapse Direction:=wdCollapseEnd
Selection.InsertFile FileName:="C:\TEST.DOC", Link:=True

本示例先创建一个新文档，再将 C:\TMP 文件夹中全部文本文件的内容插入到新建文档。

Documents.Add
ChDir "C:\TMP"
myName = Dir("*.TXT")
While myName <> ""
    With Selection
        .InsertFile FileName:=myName, ConfirmConversions:=False
        .InsertParagraphAfter
        .InsertBreak Type:=wdSectionBreakNextPage
        .Collapse Direction:=wdCollapseEnd
    End With
    myName = Dir()
Wend