☰

So konvertieren Sie Tabulatoren in Einzüge in Microsoft Word

tag-icon • tag-icon microsoft-word vba text-formatting
So konvertieren Sie Tabulatoren in Einzüge in Microsoft Word

Wenn ich Text aus einem anderen Editor in Microsoft Word kopiere und einfüge, werden Absätze am Anfang mit Tabulatoren versehen. Wie kann ich diese in Absatzeinzüge umwandeln, um eine bessere Formatierung zu erhalten?

Antwort1

Der beste Weg, dies zu tun, bestand meiner Meinung nach darin, ein VBA-Makro zu schreiben.

Es ist wahrscheinlich nicht auf Leistung optimiert, aber es erfüllt seinen Zweck. =)

Sub ConvertLeadingTabsToIndents()
    On Error GoTo Error

    Application.ScreenUpdating = False

    Dim found As Boolean

    found = FindNextTab()
    While (found)
        Selection.MoveRight Unit:=wdCharacter, Count:=1
        Selection.TypeBackspace
        Selection.Paragraphs.Indent

        found = FindNextTab()
    Wend

    MsgBox "Success!", vbInformation

Exit_Sub:
    Exit Sub

Error:
    Application.ScreenUpdating = True
    ' Regenerate original error.
    Dim intErrNum As Integer
    intErrNum = Err
    Err.Clear
    Err.Raise intErrNum
End Sub

Function FindNextTab()
    With Selection.Find
        .Text = "^p^t"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
    End With
    FindNextTab = Selection.Find.Execute
End Function

verwandte Informationen