写论文插入 引用文献 的上标数字，如何能转换为普通文本呢？

nwgale

写论文时，会以“插入尾注” 的形式，引用若干文献。（红框所示）
但是投稿时，提交到对方系统后，不能识别引用格式，具体地说，就是序号消失了（蓝框所示）


求助各位
在投稿前，想让上标的 “尾注” 转换成普通文本，有没有什么好办法？

(查了一下午没找到什么办法)

1）不能使用“无格式粘贴”，因为那样就丢了各种字体和上标格式；
2）不能手工替换，有几十条文献呢，手工会搞死人

Jason_WangSS

1. Sub 替换上标()
   
2. 
   
3.     Selection.Find.ClearFormatting
   
4.     Selection.Find.Replacement.ClearFormatting
   
5.     With Selection.Find.Replacement.Font
   
6.         .Superscript = False
   
7.         .Subscript = False
   
8.     End With
   
9.     With Selection.Find
   
10.         .Text = "(\[[0-9]{1,2}\])"
    
11.         .Replacement.Text = "\1"
    
12.         .Forward = True
    
13.         .Wrap = wdFindContinue
    
14.         .Format = True
    
15.         .MatchCase = False
    
16.         .MatchWholeWord = False
    
17.         .MatchByte = False
    
18.         .MatchAllWordForms = False
    
19.         .MatchSoundsLike = False
    
20.         .MatchWildcards = True
    
21.     End With
    
22.     Selection.Find.Execute Replace:=wdReplaceAll
    
23. End Sub

复制代码

nwgale

Jason_WangSS 发表于 2021-5-4 10:32

你好啊，这些代码具体怎么用呀？
我在vb和宏里试了一下，没搞明白

zhanglei1371

全选，Ctrl+shift+F9