Sandbox: Difference between revisions

From The Jolly Contrarian
Jump to navigation Jump to search
No edit summary
No edit summary
 
(54 intermediate revisions by the same user not shown)
Line 1: Line 1:
Doesn't


{{fullanat2|csa|Transferee|1995|Transferee|2016}}


{{fullanat2|csa|9(d)|1995|11(f)|2016}}
{{wikifier macro|template=nycsaprov|article=Posted Credit Support}}
{{wikifer definition macro|nycsa}}
{{wikifier paragrapher|nycsa}}

Latest revision as of 19:17, 23 February 2020

Doesn't


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