Word插入的自动编号后面有制表符，有无宏删除？

johnmmy

Word插入的自动编号后面有制表符，我知道手动删除方法，有无宏自动删除？或是在插入的时候就自动插入不带制表符的编号。

不需要每次都设置一下，

就像有宏，在插入图表題注时数字前面的空格自动删除一样。

谢谢。

limonet

limonet

Sub a()
    Dim i%
    For i = ActiveDocument.Paragraphs.Count To 1 Step -1
        With ActiveDocument.Paragraphs(i)
            If .Range.ListFormat.ListString <> "" Then
                .Range.Text = .Range.ListFormat.ListString & .Range.Text
            End If
        End With
    Next i
End Sub

johnmmy

limonet 发表于 2022-5-28 22:01
Sub a()
    Dim i%
    For i = ActiveDocument.Paragraphs.Count To 1 Step -1

谢谢。是先插入编号再用宏是吧。但是用后后面就不自动编号了吧。

limonet

johnmmy 发表于 2022-5-29 09:00
谢谢。是先插入编号再用宏是吧。但是用后后面就不自动编号了吧。

是的。先编号完，再用宏。

johnmmy

limonet 发表于 2022-5-29 09:22
是的。先编号完，再用宏。

如果点后再加空格，修改哪呢？

limonet

.Range.Text = .Range.ListFormat.ListString &" "& .Range.Text