DOCX序号转文字 v1.0.0

jack98

从https://www.52pojie.cn/forum.php ... 06&pid=55224365
收到需求@raycalhui

测试后

百度链接: https://pan.baidu.com/s/1PJRj0BaWKnZgx_USZCV5Nw?pwd=ihhp

SpockX

这个需求也可以直接在word文档“查找和替换”功能中，将“制表符”直接替换成“空”即可实现。

arkila

在word里建个宏就行：
Sub 全文编号转文本()

'将文档中全部自动编号转成正常文本。

ActiveDocument.Range.ListFormat.ConvertNumbersToText

End Sub
Sub 注释转文本()
Sub ConvertNotesToText()
    ' 将脚注和尾注编号转为普通文本并取消链接
    Dim doc As Document
    Set doc = ActiveDocument
    Dim i As Long
    Dim refRange As Range
    Dim noteNum As String
    Dim content As String

    ' 处理脚注（从后往前遍历避免位置变动）
    For i = doc.Footnotes.Count To 1 Step -1
        With doc.Footnotes(i)
            Set refRange = .Reference.Duplicate    ' 获取引用位置
            noteNum = refRange.Text                ' 获取原始编号
            content = Trim(.Range.Text)            ' 获取注释内容
            
            ' 替换为普通文本并取消上标格式
            refRange.Text = noteNum
            refRange.Font.Superscript = False
            
            ' 在编号后插入注释内容（可根据需要修改格式）
            refRange.InsertAfter " [" & content & "]"
            .Delete                                ' 删除原脚注
        End With
    Next i

    ' 处理尾注（同理）
    For i = doc.Endnotes.Count To 1 Step -1
        With doc.Endnotes(i)
            Set refRange = .Reference.Duplicate
            noteNum = refRange.Text
            content = Trim(.Range.Text)
            
            refRange.Text = noteNum
            refRange.Font.Superscript = False
            refRange.InsertAfter " [" & content & "]"
            .Delete
        End With
    Next i
End Sub '
' 注释转文本 宏
'
'
End Sub
Sub Main()
'
' Main 宏
'
'

End Sub
Sub 宏1()
'
' 宏1 宏
'
'
End Sub

yanchungang

可以    很好

q1wv

厉害  简单实用 能用就行~

bxf2080

测度很好用，在多的情况下很实用，可以减少劳动量和错误率，谢谢楼主分享。

风中飘雪

看起来不错，期待来个蓝奏盘

52up

这个小功能确实有需求，谢谢分享

doglove

支持大佬，能否完善一下，提示转换失败。

Tpipi

感谢分享

vivvon

很好用，解决了实际困扰。