请问如何用宏（VBA）把word的脚注去掉

o0star0o

请问如何用宏实现，把word的脚注去掉，上标还是按原顺序，[1]的格式还是用上标的格式。处理完正确的结果如第二页样式

如图所示，详情见附件，求VBA大神帮忙

o0star0o

怎么没有大神能实现吗，顶下

o0star0o

哎，看来这个问题是解决不了了

zpy2

o0star0o 发表于 2022-5-20 17:34
哎，看来这个问题是解决不了了

非要vba吗？

o0star0o

zpy2 发表于 2022-5-21 12:53
非要vba吗？

可以下这个也可以的，麻烦发下完整链接呢，谢谢！

zpy2

o0star0o 发表于 2022-6-13 20:12
可以下这个也可以的，麻烦发下完整链接呢，谢谢！

11楼在线sql

搜索 wordtool


docx文件名 要改成 2.docx压缩zip上传。 纯中文名 linux服务器暂时不支持。docx不能使用纯中文名。

守候_CJ

Word VBA：替换脚注保留序号

1. Sub 替换脚注保留序号()
   
2.     Dim fn As Footnote
   
3.     Dim fd As Field
   
4.    
   
5.     For Each fn In ActiveDocument.Footnotes
   
6.         fn.Range.Select
   
7.         fn.Reference.Select
   
8.         Set fd = ActiveDocument.Fields.Add(Selection.Range)
   
9.         With fd
   
10.             .Code.Text = "seq 文献标记 \n"
    
11.             ActiveDocument.Range(.Code.Start - 1, .Code.End + 1).Font.Superscript = True
    
12.             .Update
    
13.         End With
    
14.     Next
    
15.    
    
16.     Set fd = Nothing
    
17. End Sub

复制代码