Regex tricks: Difference between revisions

From The Jolly Contrarian
Jump to navigation Jump to search
No edit summary
No edit summary
Line 8: Line 8:
   
   
     Dim objBookmark As bookmark
     Dim objBookmark As bookmark
 
     For Each objBookmark In ActiveDocument.Bookmarks
     For Each objBookmark In ActiveDocument.Bookmarks
   
   
Line 24: Line 24:


#. Now your tags are all continuous blue strings. So brace them:
#. Now your tags are all continuous blue strings. So brace them:
*Find: <([A-Z][a-z]{1,})> (use wildcards, font colour: blue)
*Find: <(?{1,})> (use wildcards, font colour: blue)
*Replace: {{wikitag|\1}} (font colour blue)
*Replace: {{wikitag|\1}} (font colour blue)



Revision as of 17:54, 6 April 2018

===Tagging evberything coloured blue

  1. search and destroy
  • double spaces
  • Fields (ctrl-shift-F9)
  • bookmarks - there's a cool macro for this:
Sub RemoveAllBookmarks()

    Dim objBookmark As bookmark

    For Each objBookmark In ActiveDocument.Bookmarks

        objBookmark.Delete

    Next

End Sub
  1. . Clear out all blue dashes - replace them with xxx
  2. . Clear out all blue apostrophes - replace them with yyy
  3. . Clear ot all blue spaces - replace them with qqq (this won't do the ones either side of the blue phrase)
  • Find: ([A-Z][a-z]{1,}) ([A-Z][a-z]{1,}) (use wildcards, font colour: blue)
  • Replace: \1qqq/2
  1. . Now your tags are all continuous blue strings. So brace them:
  • Find: <(?{1,})> (use wildcards, font colour: blue)
  • Replace: Template:Wikitag (font colour blue)

Now restore spaces, apostrophes and dashes.

Mwah.