Move full stops to other end of a citation

Guessed · #16 11-30-2023, 08:16 PM

deepapme
The code from #14 on this thread works on my machine. You could post a sample document that the code doesn't work on if you want a quick answer otherwise we can go through a series of steps to find out what you actually have in your document.

deepapme@gmail.com · #17 12-01-2023, 05:43 PM

This is the sample file. Thanks

Guessed · #18 12-01-2023, 06:09 PM

That document is showing citations put in by a third party tool called Mendeley. This doesn't appear to use the built-in Microsoft citations feature and that is why the macro has no effect in that particular file.

So before developing an all-new solution for your problem, you should first determine whether the tool that created those 'citations' has a capability to perform the change that you require. If it doesn't then a completely different macro would need to work through the content controls that Mendeley has put there. This macro appears to work on your sample

Code:

Sub MoveMendeleyCitations()
  Dim aCC As ContentControl, aRng As Range
  For Each aCC In ActiveDocument.ContentControls
    If aCC.Tag Like "MENDELEY_CITATION*" Then
      Set aRng = aCC.Range
      aRng.Start = aRng.Start - 2
      aRng.End = aRng.End + 1
      Do While aRng.Characters.First = " "
        aRng.Start = aRng.Start - 1
      Loop
      aRng.Select
      If aRng.Characters.First Like "[?!:;.]" Then
        aRng.InsertAfter aRng.Characters.First
        aRng.Characters.First.Delete
        If aRng.Characters.First <> " " Then aRng.InsertBefore " "
      End If
    End If
  Next aCC
End Sub

deepapme@gmail.com · #19 12-01-2023, 09:15 PM

Thanks a lot. That works like a magic. I am grateful to you!!

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