83,223
edits
Amwelladmin (talk | contribs) (Created page with "===Tagging evberything coloured blue *search and destroy **double spaces **Fields (ctrl-shift-F9) **bookmarks - there's a cool macro for this: <nowiki>Sub RemoveAllBookmarks(...") |
Amwelladmin (talk | contribs) No edit summary |
||
Line 1: | Line 1: | ||
===Tagging evberything coloured blue | ===Tagging evberything coloured blue | ||
#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 | |||
End Sub | |||
Next | |||
End Sub | |||
#. Clear out all blue dashes - replace them with xxx | |||
#. Clear out all blue apostrophes - replace them with yyy | |||
#. 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 | |||
#. Now your tags are all continuous blue strings. So brace them: | |||
*Find: <([A-Z][a-z]{1,})> (use wildcards, font colour: blue) | |||
*Replace: {{wikitag|\1}} (font colour blue) | |||
Now restore spaces, apostrophes and dashes. | |||
Mwah. | |||