☰

如何在 Microsoft Word 中將製表符轉換為縮排

tag-icon • tag-icon microsoft-word vba text-formatting
如何在 Microsoft Word 中將製表符轉換為縮排

將文字從另一個編輯器複製貼上到 Microsoft Word 時，段落開頭帶有製表符。如何將它們轉換為段落縮進，以獲得更好的格式？

答案1

我發現最好的方法是寫一個 VBA 巨集。

它可能沒有針對效能進行最佳化，但它可以完成工作。 =)

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

相關內容