Move full stops to other end of a citation

Guessed · #7 07-04-2017, 04:28 PM

I've done some testing and worked out the find/replace doesn't seem possible so I think a macro solution is going to be required.

Code:

Sub RelocateCitations()
  Dim aFld As Field, aRng As Range
  For Each aFld In ActiveDocument.Fields
    If InStr(1, LCase(aFld.Code), "citation") Then
      Set aRng = aFld.Result
      aRng.Collapse wdCollapseStart
      aRng.MoveEnd Unit:=wdCharacter, Count:=-1   'to get in front of CC
      aRng.MoveStart Unit:=wdCharacter, Count:=-2
      If aRng.Text = ". " Then
        aRng.Text = " "
        Set aRng = aFld.Result
        aRng.Collapse wdCollapseEnd
        aRng.MoveStart Unit:=wdCharacter, Count:=2   'to get after CC
        aRng.InsertAfter "."
      End If
    End If
  Next aFld
End Sub

In my version of Word 2016, the citations are all fields inside Content Controls. The CCs add a level of complexity that require extra lines of code to move the ranges. If your document doesn't also have the CCs then you may need to adjust the macro slightly to work.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Word 2014: WPerfect 6.x full-justification "stops working"	dan_1	Word	12	01-24-2017 12:43 PM
Insert Citation	truepharaoh	Word	3	12-03-2016 01:35 AM
How to display the full citation in footnotes/endnotes	chakyt22	Word	1	09-29-2015 03:37 AM
Why are full stops appearing in between every word I type??	richards_jacqui@sky.com	Outlook	1	04-01-2015 10:40 PM
Citation within a Caption	Wes	Word	1	05-29-2012 10:29 AM