利用word宏命令來自動化縮寫期刊名稱

投稿的時候往往需要調整參考文獻格式爲期刊需要的格式，並且往往期刊名稱爲縮寫的。
本文利用word的宏命令自動化縮寫參考文獻，只要提前設置好縮寫的模板，即可實現對期刊名稱的縮寫，宏腳本目前實現了

1. IEEE GRSL
2. IEEE TSP
3. IEEE TAES
4. 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