Selection.InsertFile 方法 (Word)
插入指定文件的全部或一部分。
语法
expression。 InsertFile( _FileName_ , _Range_ , _ConfirmConversions_ , _Link_ , _Attachment_ )
expression 是必需的。 表示 Selection 对象的变量。
参数
| 名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| FileName | 必需 | String | 要插入的文件的路径及文件名。 如果没有指定路径，则 Word 假定文件位于当前文件夹中。 |
| Range | 可选 | Variant | 如果指定的文件是 Word 文档，则此参数代表书签。 如果该文件为其他类型（例如，Microsoft Excel 工作表），则此参数代表命名区域或单元格区域（例如，R1C1:R3C4）。 |
| ConfirmConversions | 可选 | Variant | 真 要让 Word 提示您确认时插入 Word 文档格式之外的其他格式文件的转换。 |
| Link | 可选 | Variant | 真 若要通过使用文本字段中插入该文件。 |
| 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
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。