word引文修改

查找域相关内容（脚注、尾注、）时要先切换到域代码（Alt+F9）

使用通配符时用 \[ 查找 [

[3]周振甫．周易译注[M]．北京：中华书局， 1991：15-18 ，31．

ISO 690标准下：

引文目录：

引文书目ctrl+shift+F9 转成静态文本

格式调整

"年, "替换成","

", 页 "替换成": "

"卷 "替换成""

"([0-9]{1,2}). "替换成"[^&]"（使用通配符）

". ]"替换成"]. "

换成IEEE标准下：

引文上标：" \[([0-9]){1,2}\]" 替换成上标（使用通配符）

Sub 引文目录()
'

'
'
Selection.Fields.Update
Selection.Fields.Unlink

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "年, "
.Replacement.Text = ","
.Forward = True
.Wrap = wdFindAsk
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll, Forward:=False

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ",页 "
.Replacement.Text = ":"
.Forward = True
.Wrap = wdFindAsk
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll, Forward:=False

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "卷 "
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll, Forward:=False

End Sub

Sub 引文转上标()
'
' 引文转上标宏
'

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Superscript = True
.Subscript = False
End With
With Selection.Find
.Text = " \[([0-9]){1,2}\]"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub