kerrypnx
8/27/2018 - 3:13 AM

删除每条文献后面的空格

revise 8-27

layout_search_replace.jump_to_reference_section
Selection.MoveDown wdLine, 1
Set myrange = ActiveDocument.Range(Selection.Range.Start, ActiveDocument.Range.End)
Dim p As paragraph
For Each p In myrange.Paragraphs
    Do While p.Range.Characters.Last.Previous.Text = " "
       p.Range.Characters.Last.Previous.Text = ""
    Loop
Next