Question

我有许多手动输入列表编号的文档，因此我的目的是删除那些手动列表编号以及后面的选项卡或空格。 e.g
1.文字1
1.1文本2
1.1.1文本3
1.1.1.1文本4

成为
文字1
文字2
文字3
文字4

我不确定如何使用vba执行此操作，我非常感谢您的帮助。

Answer 1

我已经通过使用以下代码找到了它：

Sub RemoveManualListNumber()
  Dim strInitialPar As String
  Dim intSpace As Integer, intTab As Integer
  Dim strFinalPar As String
  Dim iPar

    For iPar = 1 To ActiveDocument.Paragraphs.Count
    strInitialPar = ActiveDocument.Paragraphs(iPar).Range.Text
    intSpace = InStr(1, strInitialPar, " ")
    intTab = InStr(1, strInitialPar, Chr(9))

        Debug.Print "Paragraph " & iPar & ": " & "Index space = " & intSpace & ", Index tab = " & intTab

        If intTab > 0 And intTab < intSpace Then
              strFinalPar = Right(strInitialPar, Len(strInitialPar) - intTab)
              Else
              strFinalPar = Right(strInitialPar, Len(strInitialPar) - intSpace)
          End If

          ActiveDocument.Paragraphs(iPar).Range.Text = strFinalPar
    Next iPar
End sub

word vba - 删除手动输入的列表编号

1 个答案: