查找域 相关内容 （脚注、尾注、）时要
先切换到域代码（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
