Sandbox

Template:Code GMSLA A Jolly Contrarian owner’s manual™ Resources and navigation Template:M res GMSLATemplate:M nav GMSLA Paragraph 1 in a Nutshell™ Use at your own risk, campers! {{Nutshell Template:Shortcode GMSLA 1}} [[Template:Nutshell Template:Shortcode GMSLA 1|view template]] Full text of Paragraph 1 {{Template:Longcode GMSLA 1}} [[Template:Template:Longcode GMSLA 1|view template]] {{m comp Template:Shortcode GMSLA|1|{{{5}}}|Paragraph }} Tell me more Sign up for our newsletter — or just get in touch: for ½ a weekly 🍺 you get to consult JC. Ask about it here.

{{m comm {{{6}}}|Template:Shortcode GMSLA 1|Template:Prov GMSLA }}

See also

{{m sa Template:Shortcode GMSLA 1}}

[[Template:m sa Template:Shortcode GMSLA 1|Template]]

References

[[category:Template:Shortcode GMSLA ]]

Sub Wikifier
   With Selection.Find
       .Text = "{{{article}}}"
       .Replacement.Text = "{{{{{template}}}|{{{article}}}}}"
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = True
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Sub Wikifier definition 
 Selection.Find.ClearFormatting
   Selection.Find.Replacement.ClearFormatting
   With Selection.Find
       .Text = ChrW(8220) & "([a-z,A-Z,0-9, ]{1,})" & ChrW(8221)
       .Replacement.Text = ChrW(8220) & "'''{{nycsaprov|\1}}'''" & ChrW(8221 _
           )
       .Forward = True
       .Wrap = wdFindAsk
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchAllWordForms = False
       .MatchSoundsLike = False
       .MatchWildcards = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Sub Paragrapher()
   Selection.Find.ClearFormatting
   Selection.Find.Replacement.ClearFormatting
   With Selection.Find
       .Text = "Paragraph ([0-9\(\)][!.,;: ]{1,})"
       .Replacement.Text = "Paragraph {{nycsaprov|\1}}"
       .Forward = True
       .Wrap = wdFindAsk
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchAllWordForms = False
       .MatchSoundsLike = False
       .MatchWildcards = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
End Sub