Selection.InsertFile-Methode (Word)
Fügt die gesamte oder einen Teil der angegebenen Datei ein.
Syntax
Ausdruck. InsertFile( _FileName_ , _Range_ , _ConfirmConversions_ , _Link_ , _Attachment_ )
Ausdruck: Erforderlich. Eine Variable, die ein Selection-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| FileName | Erforderlich | String | Der Pfad- und Dateiname der Datei, die eingefügt werden soll. Wenn kein Pfad angegeben wird, wird von Word davon ausgegangen, dass sich die Datei im aktuellen Ordner befindet. |
| Range | Optional | Variant | Wenn die angegebene Datei ein Word-Dokument ist, verweist dieser Parameter auf eine Textmarke. Ist die Datei ein anderer Typ (z. B. eine Microsoft Excel-Arbeitsblatt), dann verweist dieser Parameter auf einen benannten Bereich oder einen Zellbereich (z. B. R1C1:R3C4). |
| ConfirmConversions | Optional | Variant | True, wenn Sie beim Einfügen von Dateien, die nicht im Word-Dokumentformat vorliegen, von Word zum Bestätigen der Konvertierung aufgefordert werden möchten. |
| Link | Optional | Variant | True, um die Datei mithilfe eines INCLUDETEXT-Felds einzufügen. |
| Attachment | Optional | Variant | True , um die Datei als Anlage in eine E-Mail-Nachricht einzufügen. |
Beispiel
In diesem Beispiel wird zum Einfügen der Datei TEST.DOC an der Einfügemarke ein INCLUDETEXT-Feld verwendet.
Selection.Collapse Direction:=wdCollapseEnd
Selection.InsertFile FileName:="C:\TEST.DOC", Link:=True
In diesem Beispiel wird ein neues Dokument erstellt, und anschließend wird der Inhalt jeder Textdatei im Ordner C:\TMP in das neue Dokument eingefügt.
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
Siehe auch
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.