胡汉山又回来：重编题号出问题

weiyingde

问题描述：
      给打乱题目次序的题号重新编号出了问题了，原因是上一题以Word表格结尾，用“^13”无法定位
请大侠在源代码的基础上修改，先谢了。
Sub 重编题号()
With ActiveDocument.Content.Find
     Do While .Execute("^13[0-9]@[\.．、]", , , 1)
              n = n + 1
              With .Parent
                   .MoveStart 1, 1
                   .Text = n & "．"
                   .Font.Name = "Arial Black"
                   .Font.ColorIndex = 6
                   .Collapse
              End With
     Loop
End With
End Sub

cuanju

遍历所有表格，将所有表格后增加一个空段，最后再以下为去除表格后空段，迂回一下，
====================================================
Sub d1()
    Rem 所有表格后增加一个空段
    For Each Tbl In ActiveDocument.Tables
        Set tempRange = ActiveDocument.Range(Tbl.Range.End, Tbl.Range.End)
        tempRange.InsertAfter Chr(13)
    Next
    With ActiveDocument.Content.Find
        Do While .Execute("[^13|^9][0-9]@[\.．、]", , , 1)
            '换成 .Execute("[^13|^9][0-9]@[\.．、]", , , 1)也不也行
            '换成 .Execute("[^13|^7][0-9]@[\.．、]", , , 1)更出问题
            n = n + 1
            With .Parent
                .MoveStart 1, 1
                .Text = n & "．"
                .Font.Name = "Arial Black"
                .Font.ColorIndex = 6
                .Collapse
            End With
        Loop
    End With
    Rem **以下为去除表格后空段**
    For Each Tbl In ActiveDocument.Tables
        Set tempRange = Tbl.Range
        tempRange.Collapse 0
        tempRange.Delete
    Next
End Sub

weiyingde

cuanju 发表于 2020-5-23 11:28
遍历所有表格，将所有表格后增加一个空段，最后再以下为去除表格后空段，迂回一下，
==================== ...

谢谢回复。这也是个方法，也不错。
但增加空行这个方法我知道，我只想识别表格最后一个字符是什么。
若用正则处理这个问题，我也知道，就是不知道，应该怎样定位一个表格最后一个字符的位置。

thunor

你可以试试用域"{ SEQ.\* Arabic \* MERGEFORMAT}．"作为题号。

weiyingde

thunor 发表于 2020-5-25 23:16
你可以试试用域"{ SEQ.\* Arabic \* MERGEFORMAT}．"作为题号。

能不能给个实例。

thunor

就是将它用作每道题的题号啊。之后你的题想调前想调后，想删，想加，完成后，全选，右键，“更新域”所有的题号全按序排好了。