Range.InsertAfter-Methode (Word)

  • Artikel

Fügt den angegebenen Text am Ende eines Bereichs ein.

Syntax

Ausdruck. InsertAfter( _Text_ )

Ausdruck: Erforderlich. Eine Variable, die ein Range -Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
Text Erforderlich String Der einzufügende Text.

Hinweise

Nach Anwendung dieser Methode wird der Bereich erweitert, damit der neue Text einbezogen wird.

Mit der Visual Basic-Funktion Chr und der InsertAfter-Methode fügen Sie Zeichen wie Anführungszeichen, Tabstoppzeichen und geschützte Trennstriche ein. Sie können auch die folgenden Visual Basic-Konstanten verwenden: vbCr, vbLf, vbCrLf und vbTab.

Wenn Sie diese Methode mit einem Bereich verwenden, die sich auf einen ganzen Absatz bezieht, wird der Text nach der abschließenden Absatzmarke eingefügt (der Text wird am Anfang des nächsten Absatzes angezeigt). Wenn Sie Text am Ende eines Absatzes einfügen möchten, bestimmen Sie den Endpunkt, und subtrahieren Sie von dieser Position 1 (die Absatzmarke ist ein Zeichen), wie im folgenden Beispiel gezeigt.

Set doc = ActiveDocument 
Set rngRange = _ 
 doc.Range(doc.Paragraphs(1).Start, _ 
 doc.Paragraphs(1).End - 1) 
rngRange.InsertAfter _ 
 " This is now the last sentence in paragraph one."

Wenn der Bereich mit einer Absatzmarke endet, die gleichzeitig das Ende des Dokuments darstellt, wird keinen neuer Absatz am Ende des Dokuments von Microsoft Word erstellt, sondern der Text vor der letzten Absatzmarke eingefügt.

Auch wenn der Bereich aus einer Textmarke besteht, wird der angegebenen Text von Word eingefügt, der Bereich oder die Textmarke wird aber nicht erweitert, um den neuen Text aufzunehmen.

Beispiel

In diesem Beispiel wird am Ende des aktiven Dokuments Text eingefügt. Die Content-Eigenschaft gibt ein Range-Objekt zurück.

ActiveDocument.Content.InsertAfter "end of document"

In diesem Beispiel wird Text aus einem Eingabefeld als zweiter Absatz im aktiven Dokument eingefügt.

response = InputBox("Type some text") 
With ActiveDocument.Paragraphs(1).Range 
 .InsertAfter "1." & Chr(9) & response 
 .InsertParagraphAfter 
End With

Siehe auch

Range-Objekt

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.