Programmgesteuertes Einfügen von Text in Word-Dokumente

Artikel
06/19/2023

Es gibt drei Hauptmethoden zum Einfügen von Text in Microsoft Office Word-Dokumente:

Fügen Sie Text in einen Bereich ein.
Ersetzen Sie Text in einem Bereich durch neuen Text.
Verwenden Sie die TypeText -Methode eines Selection -Objekts, um Text an der Cursor- oder Auswahlposition einzufügen.

Hinweis

Sie können auch Text in Inhaltssteuerelemente und Lesezeichen einfügen. Weitere Informationen finden Sie unter Inhaltssteuerelemente und Lesezeichensteuerelemente.

Gilt für: Die Informationen in diesem Thema gelten für Projekte auf Dokumentebene und VSTO-Add-In-Projekte für Word. Weitere Informationen finden Sie unter features available by Office-App lication and project type.

Hinweis

Möchten Sie Lösungen entwickeln, die die Office-Erfahrung auf mehreren Plattformen erweitern? Schauen Sie sich das neue Office-Add-Ins-Modell an. Office-Add-Ins haben im Vergleich zu VSTO-Add-Ins und -Lösungen einen geringen Platzbedarf, und Sie können diese mithilfe nahezu jeder Webprogrammiertechnologie erstellen, z. B. HTML5, JavaScript, CSS3 und XML.

Einfügen von Text in einen Bereich

Verwenden Sie die Text -Eigenschaft eines Range -Objekts, um Text in ein Dokument einzufügen.

So fügen Sie Text in einen Bereich ein

Geben Sie einen Bereich am Anfang eines Dokuments an, und fügen Sie den Text New Textein.

Das folgende Codebeispiel kann in einer Anpassung auf Dokumentebene verwendet werden.

object start = 0; 
object end = 0; 

Word.Range rng = this.Range(ref start, ref end); 
rng.Text = "New Text";

Dim rng As Word.Range = Me.Range(Start:=0, End:=0)
rng.Text = " New Text "

Das folgende Codebeispiel kann in einem VSTO-Add-In verwendet werden. In diesem Code wird das aktive Dokument verwendet.

Word.Range rng = this.Application.ActiveDocument.Range(0, 0);
rng.Text = "New Text";

Dim rng As Word.Range = Me.Application.ActiveDocument.Range(Start:=0, End:=0)
rng.Text = " New Text "

Wählen Sie das Range -Objekt aus, das von einem Zeichen auf die Länge des eingefügten Texts erweitert wurde.
- C#
- VB
```
rng.Select();
```
```
rng.Select()
```

Ersetzen von Text in einem Bereich

Wenn der angegebene Bereich Text enthält, wird der gesamte Text im Bereich durch den eingefügten Text ersetzt.

So ersetzen Sie Text in einem Bereich

Erstellen Sie ein Range -Objekt, das aus den ersten 12 Zeichen des Dokuments besteht.

Das folgende Codebeispiel kann in einer Anpassung auf Dokumentebene verwendet werden.
- C#
- VB
```
object start = 0; 
object end = 12; 

Word.Range rng = this.Range(ref start, ref end);
```
```
Dim rng As Word.Range = Me.Range(Start:=0, End:=12)
```
Das folgende Codebeispiel kann in einem VSTO-Add-In verwendet werden. In diesem Code wird das aktive Dokument verwendet.
- C#
- VB
```
Word.Range rng = this.Application.ActiveDocument.Range(0, 12);
```
```
Dim rng As Word.Range = Me.Application.ActiveDocument.Range(Start:=0, End:=12)
```
Ersetzen Sie diese Zeichen durch die Zeichenfolge New Text.
- C#
- VB
```
rng.Text = "New Text";
```
```
rng.Text = " New Text "
```
Wählen Sie den Bereich aus.
- C#
- VB
```
rng.Select();
```
```
rng.Select()
```

Einfügen von Text mithilfe von TypeText

Durch die TypeText -Methode wird Text an der Auswahlposition eingefügt. Je nach den auf dem Benutzercomputer festgelegten Optionen verhält sichTypeText unterschiedlich. Durch den Code in der folgenden Prozedur wird eine Selection -Objektvariable deklariert und die Overtype -Option deaktiviert, sofern sie aktiviert war. Wenn die Overtype -Option aktiviert ist, wird sämtlicher Text neben dem Cursor überschrieben.

So fügen Sie Text mithilfe der TypeText-Methode ein

Deklarieren Sie eine Selection-Objektvariable.

Word.Selection currentSelection = Application.Selection;

Dim currentSelection As Word.Selection = Application.Selection

Deaktivieren Sie die Overtype -Option, falls sie eingeschaltet ist.

if (Application.Options.Overtype) 
{ 
    Application.Options.Overtype = false; 
}

If Application.Options.Overtype Then
    Application.Options.Overtype = False
End If

Überprüfen Sie, ob es sich bei der aktuellen Auswahl um eine Einfügemarke handelt.

Falls ja, fügt der Code einen Satz mithilfe von TypeTextund dann eine Absatzmarke mithilfe der TypeParagraph -Methode ein.

// Test to see if selection is an insertion point.
if (currentSelection.Type == Word.WdSelectionType.wdSelectionIP) 
{ 
    currentSelection.TypeText("Inserting at insertion point. ");
    currentSelection.TypeParagraph(); 
}

With currentSelection

    ' Test to see if selection is an insertion point.
    If .Type = Word.WdSelectionType.wdSelectionIP Then
        .TypeText("Inserting at insertion point. ")
        .TypeParagraph()

Durch den Code im ElseIf -Block wird überprüft, ob die Auswahl eine normale Auswahl ist. Falls ja, wird durch einen anderen If -Block überprüft, ob die ReplaceSelection -Option aktiviert ist. Wenn dies der Fall ist, verwendet der Code die Collapse -Methode, um die Auswahl auf eine Einfügemarke am Anfang des ausgewählten Textblocks zu reduzieren. Fügen Sie den Text und eine Absatzmarke ein.

else 
    if (currentSelection.Type == Word.WdSelectionType.wdSelectionNormal)
    { 
        // Move to start of selection.
        if (Application.Options.ReplaceSelection)
        { 
            object direction = Word.WdCollapseDirection.wdCollapseStart;
            currentSelection.Collapse(ref direction);
        }
        currentSelection.TypeText("Inserting before a text block. ");
        currentSelection.TypeParagraph();
    }

ElseIf .Type = Word.WdSelectionType.wdSelectionNormal Then
    ' Move to start of selection.
    If Application.Options.ReplaceSelection Then
        .Collapse(Direction:=Word.WdCollapseDirection.wdCollapseStart)
    End If
    .TypeText("Inserting before a text block. ")
    .TypeParagraph()

Wenn die Auswahl keine Einfügemarke oder kein Block mit markierten Text ist, wird vom Code im Else -Block keine Aktion ausgeführt.

else
{
    // Do nothing.
}

Else
    ' Do nothing.
End If

Sie können auch die TypeBackspace Methode des Selection Objekts verwenden, die die Funktionalität der Rücktaste auf der Tastatur nachahmt. Wenn es jedoch um das Einfügen und Bearbeiten von Text geht, bietet Ihnen das Range -Objekt mehr Steuerungsmöglichkeiten.

Das folgende Beispiel enthält den vollständigen Code. Wenn Sie dieses Beispiel verwenden möchten, führen Sie den Code von der ThisDocument -Klasse oder ThisAddIn -Klasse im Projekt aus.

private void SelectionInsertText() 
{ 
    Word.Selection currentSelection = Application.Selection; 

    // Store the user's current Overtype selection
    bool userOvertype = Application.Options.Overtype;

    // Make sure Overtype is turned off.
    if (Application.Options.Overtype) 
    { 
        Application.Options.Overtype = false; 
    } 

    // Test to see if selection is an insertion point.
    if (currentSelection.Type == Word.WdSelectionType.wdSelectionIP) 
    { 
        currentSelection.TypeText("Inserting at insertion point. ");
        currentSelection.TypeParagraph(); 
    } 
    else 
        if (currentSelection.Type == Word.WdSelectionType.wdSelectionNormal)
        { 
            // Move to start of selection.
            if (Application.Options.ReplaceSelection)
            { 
                object direction = Word.WdCollapseDirection.wdCollapseStart;
                currentSelection.Collapse(ref direction);
            }
            currentSelection.TypeText("Inserting before a text block. ");
            currentSelection.TypeParagraph();
        }
        else
        {
            // Do nothing.
        }

    // Restore the user's Overtype selection
    Application.Options.Overtype = userOvertype;
}

Friend Sub SelectionInsertText()
    Dim currentSelection As Word.Selection = Application.Selection

    ' Store the user's current Overtype selection
    Dim userOvertype As Boolean = Application.Options.Overtype

    ' Make sure Overtype is turned off.
    If Application.Options.Overtype Then
        Application.Options.Overtype = False
    End If

    With currentSelection

        ' Test to see if selection is an insertion point.
        If .Type = Word.WdSelectionType.wdSelectionIP Then
            .TypeText("Inserting at insertion point. ")
            .TypeParagraph()

        ElseIf .Type = Word.WdSelectionType.wdSelectionNormal Then
            ' Move to start of selection.
            If Application.Options.ReplaceSelection Then
                .Collapse(Direction:=Word.WdCollapseDirection.wdCollapseStart)
            End If
            .TypeText("Inserting before a text block. ")
            .TypeParagraph()

        Else
            ' Do nothing.
        End If
    End With

    ' Restore the user's Overtype selection
    Application.Options.Overtype = userOvertype
End Sub

Freigeben über

Programmgesteuertes Einfügen von Text in Word-Dokumente

Einfügen von Text in einen Bereich

So fügen Sie Text in einen Bereich ein

Ersetzen von Text in einem Bereich

So ersetzen Sie Text in einem Bereich

Einfügen von Text mithilfe von TypeText

So fügen Sie Text mithilfe der TypeText-Methode ein

Zusätzliche Ressourcen

Freigeben über

Programmgesteuertes Einfügen von Text in Word-Dokumente

Einfügen von Text in einen Bereich

So fügen Sie Text in einen Bereich ein

Ersetzen von Text in einem Bereich

So ersetzen Sie Text in einem Bereich

Einfügen von Text mithilfe von TypeText

So fügen Sie Text mithilfe der TypeText-Methode ein

Zugehöriger Inhalt

Zusätzliche Ressourcen