Beschreibung

Um Text unformatiert in Word einzufügen, kann man das folgende sehr einfache Word-Makro verwenden.
Die Funktion entspricht der gleichen Funktion, die über das Wordmenü (bis Word 2003) folgendermaßen zu erreichen ist: „Bearbeiten“ => „Inhalte einfügen…“ => „Unformatierten Text“.

---

Sourcecode

Public Sub TextUnformatiertEinfügen()
    ' Bei Fehlern wird zur Sprungmarke NoDocumentOpen gesprungen und damit die Funktion beendet.
    On Error GoTo NoDocumentOpen

    ' Falls keine Datei geöffnet ist, wird zur Sprungmarke NoDocumentOpen gesprungen und damit die Funktion beendet. Die Prüfung, ob eine Datei geöffnet ist, wird über die Länge des Dateinamens des aktiven Dokuments durchgeführt.
    If Len(ActiveDocument.Name) = 0 Then GoTo NoDocumentOpen

    ' Einfügen des unformatierten Textes
    Selection.PasteAndFormat (wdFormatPlainText)

NoDocumentOpen:
End Sub