投稿的时候往往需要调整参考文献格式为期刊需要的格式,并且往往期刊名称为缩写的。
本文利用word的宏命令自动化缩写参考文献,只要提前设置好缩写的模板,即可实现对期刊名称的缩写,宏脚本目前实现了
- IEEE GRSL
- IEEE TSP
- IEEE TAES
- IEEE SPL
的缩写,其余期刊同理
Sub A缩写参考文献()
'
' 缩写参考文献 宏
' 可修改 IEEE GRSL TSP TAES SPL
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
' IEEE GRSL
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Italic = True
With Selection.Find
.Text = "IEEE Geoscience and Remote Sensing Letters"
.Replacement.Text = "IEEE Geosci. Remote Sens. Lett."
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
'IEEE TSP
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Italic = True
With Selection.Find
.Text = "IEEE Transactions on Signal Processing"
.Replacement.Text = "IEEE Trans. Signal Process."
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
' IEEE TAES
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Italic = True
With Selection.Find
.Text = "IEEE Transactions on Aerospace and Electronic Systems"
.Replacement.Text = "IEEE Trans. Aerosp. Electron. Syst."
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
' IEEE SPL
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Italic = True
With Selection.Find
.Text = "IEEE Signal Processing Letters"
.Replacement.Text = "IEEE Signal Process. Lett."
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
End Sub