摘要：
注意事项： 1、宏提前写好，保存在word模板中。 2、只适用于windows。 3、将该代码保存为.vbs文件，右键“打开”运行即可。运行结束，会弹窗“完成”。 阅读全文
摘要：
Sub 快速提取脚注内容() Dim oFootNote As Footnote, myRange As Range Dim BeforeName As String, BeforeSize As Single On Error Resume Next Application.ScreenUpdating = False For Each oFootNote In ActiveDocument.... 阅读全文
摘要：
Sub 脚注转换() Dim myRange As Range, NtRange As Range, strNT As String Application.ScreenUpdating = False Set myRange = ActiveDocument.Content NF: With myRange.Find .Text = "〖*〗" .MatchWildcards = True D... 阅读全文