Anmerkung
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Fügt die gesamte oder einen Teil der angegebenen Datei ein.
Syntax
Ausdruck.
InsertFile( _FileName_ , _Range_ , _ConfirmConversions_ , _Link_ , _Attachment_ )
expression 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.