word引文修改

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

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

[3]周振甫.周易译注[M].北京:中华书局, 199115-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