From: Alan <nuh-uh@nope.com>
Newsgroups: alt.politics.trump,alt.politics.liberalism,alt.politics.democrats,alt.politics.usa.republican,alt.fan.rush-limbaugh,can.politics
Subject: Re: LOL... Stupid Democrat Got Laughed Off Twitter, Because She Was
Date: Fri, 15 Nov 2024 13:15:48 -0800
Organization: A noiseless patient Spider
On 2024-11-15 13:11, AlleyCat wrote:
>
> On Fri, 15 Nov 2024 12:51:55 -0800, Alan says...
>
>>
>> On 2024-11-15 12:48, AlleyCat wrote:
>>>
>>> On Fri, 15 Nov 2024 11:48:32 -0800, Alan says...
>>>
>>>>
>>>> On 2024-11-15 11:37, AlleyCat wrote:
>>>>>
>>>>> Do Nazi's wear JERUSELUM crosses?
>>>>>
>>>>> REALLY?
>>>>>
>>>>> https://pbs.twimg.com/media/GcXXgUKWYAATQWa?format=jpg&name=large
>>>>
>>>> Why do you deliberately break your URLs?
>>>
>>> LOL... that's one of my macros. Sorry.
>
>> Riiiiiiiiiight.
>
> Thanks for understanding. I knew you'd get it.
>
> Find the "&" to "and"... win a prize.
So where did you copy that from?
>
> ' Macro recorded 8/25/2016 by AlleyCat ' ... Selection.WholeStory Selection.Delete Unit:=wdCharacter, Count:=1 Selection.PasteSpecial
> Datatype:=wdPasteText ' Selection.TypeText Text:="PRINT SOMETHING" With Selection.find .Text = "~" .Replacement.Text = "~" .Forward = True
> .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False
> .MatchAlefHamza = False .MatchControl = False .MatchByte = False .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike
> = False .MatchWildcards = False .MatchFuzzy = False End With Selection.find.Execute Replace:=wdReplaceAll Selection.WholeStory '
> Application.Run MacroName:="Test" With Selection.find .Text = """" .Replacement.Text = """" .Forward = True .Wrap = wdFindContinue .Format
> = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl =
> False .MatchByte = False .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False
> .MatchFuzzy = False End With Selection.find.Execute Replace:=wdReplaceAll With Selection.find .Text = vbTab .Replacement.Text = "" .Forward
> = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False
> .MatchAlefHamza = False .MatchControl = False .MatchByte = False .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike
> = False .MatchWildcards = False .MatchFuzzy = False End With Selection.find.Execute Replace:=wdReplaceAll Selection.find.ClearFormatting
> Selection.find.Replacement.ClearFormatting With Selection.find .Text = "," .Replacement.Text = "," .Forward = True .Wrap = wdFindContinue
> .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False
> .MatchControl = False .MatchByte = False .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards
> = False .MatchFuzzy = False End With Selection.find.Execute Replace:=wdReplaceAll With Selection.find .Text = """" .Replacement.Text =
> """" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False
> .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchByte = False .CorrectHangulEndings = False .MatchAllWordForms
> = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With Selection.find.Execute Replace:=wdReplaceAll With
> Selection.find .Text = "-" .Replacement.Text = "-" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False
> .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchByte = False
> .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With
> Selection.find.Execute Replace:=wdReplaceAll With Selection.find .Text = "-" .Replacement.Text = "-" .Forward = True .Wrap = wdFindContinue
> .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False
> .MatchControl = False .MatchByte = False .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards
> = False .MatchFuzzy = False End With Selection.find.Execute Replace:=wdReplaceAll With Selection.find .Text = " - " .Replacement.Text = " -
> " .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics
> = False .MatchAlefHamza = False .MatchControl = False .MatchByte = False .CorrectHangulEndings = False .MatchAllWordForms = False
> .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With Selection.find.Execute Replace:=wdReplaceAll With
> Selection.find .Text = " - " .Replacement.Text = " - " .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False
> .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchByte = False
> .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With
> Selection.find.Execute Replace:=wdReplaceAll With Selection.find .Text = "-" .Replacement.Text = "-" .Forward = True .Wrap = wdFindContinue
> .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False
> .MatchControl = False .MatchByte = False .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards
> = False .MatchFuzzy = False End With Selection.find.Execute Replace:=wdReplaceAll With Selection.find .Text = "..." .Replacement.Text =
> "..." .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False
> .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchByte = False .CorrectHangulEndings = False .MatchAllWordForms
> = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With Selection.find.Execute Replace:=wdReplaceAll With
> Selection.find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord
> = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchByte = False
> .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With
> Selection.find.Execute Replace:=wdReplaceAll With Selection.find .Text = "," .Replacement.Text = "," .Forward = True .Wrap = wdFindContinue
> .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False
> .MatchControl = False .MatchByte = False .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards
> = False .MatchFuzzy = False End With Selection.find.Execute Replace:=wdReplaceAll With Selection.find .Text = "..." .Replacement.Text =
> "... " .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False
> .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchByte = False .CorrectHangulEndings = False .MatchAllWordForms
> = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With Selection.find.Execute Replace:=wdReplaceAll With
> Selection.find .Text = "'" .Replacement.Text = "'" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False
> .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchByte = False
> .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With
> Selection.find.Execute Replace:=wdReplaceAll With Selection.find .Text = "'" .Replacement.Text = "'" .Forward = True .Wrap = wdFindContinue
> .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False
> .MatchControl = False .MatchByte = False .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards
> = False .MatchFuzzy = False End With Selection.find.Execute Replace:=wdReplaceAll With Selection.find .Text = "'~" .Replacement.Text =
> "'" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False
> .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchByte = False .CorrectHangulEndings = False .MatchAllWordForms
> = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With Selection.find.Execute Replace:=wdReplaceAll ' Start
> "Title" Paste With Selection.find .Text = "n" .Replacement.Text = "n" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase =
> False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchByte =
> False .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End
> With Selection.find.Execute Replace:=wdReplaceAll With Selection.find .Text = "'" .Replacement.Text = "'" .Forward = True .Wrap =
> wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza =
> False .MatchControl = False .MatchByte = False .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike = False
> .MatchWildcards = False .MatchFuzzy = False End With Selection.find.Execute Replace:=wdReplaceAll ' Selection.WholeStory ' Dim oRng As
> Word.Range ' Set oRng = Selection.Range ' If oRng.Characters.Last = Chr(13) Or oRng.Characters.Last = Chr(11) Then ' oRng.End = oRng.End -
> 1 ' End If ' oRng.Text = Replace(Replace(oRng.Text, Chr(11), " "), Chr(13), " ") ' lbl_Exit: With Selection.find .Text =
> "'~" .Replacement.Text = "'" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False
> .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchByte = False .CorrectHangulEndings =
> False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With Selection.find.Execute
> Replace:=wdReplaceAll With Selection.find .Text = "'" .Replacement.Text = "'" .Forward = True .Wrap = wdFindContinue .Format = False
> .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False
> .MatchByte = False .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy =
> False End With Selection.find.Execute Replace:=wdReplaceAll With Selection.find .Text = "'" .Replacement.Text = "'" .Forward = True .Wrap =
> wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza =
> False .MatchControl = False .MatchByte = False .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike = False
> .MatchWildcards = False .MatchFuzzy = False End With Selection.find.Execute Replace:=wdReplaceAll With Selection.find .Text =
> "..." .Replacement.Text = "..." .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False
> .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchByte = False .CorrectHangulEndings =
> False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With Selection.find.Execute
> Replace:=wdReplaceAll With Selection.find .Text = "-" .Replacement.Text = "-" .Forward = True .Wrap = wdFindContinue .Format = False
> .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False
> .MatchByte = False .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy =
> False End With Selection.find.Execute Replace:=wdReplaceAll With Selection.find .Text = """ .Replacement.Text = """" .Forward = True .Wrap
> = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza
> = False .MatchControl = False .MatchByte = False .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike = False
> .MatchWildcards = False .MatchFuzzy = False End With Selection.find.Execute Replace:=wdReplaceAll With Selection.find .Text =
> """ .Replacement.Text = """" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False
> .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchByte = False .CorrectHangulEndings =
> False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With Selection.find.Execute
> Replace:=wdReplaceAll With Selection.find .Text = "-" .Replacement.Text = "-" .Forward = True .Wrap = wdFindContinue .Format = False
> .MatchCase = True .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False
> .MatchByte = False .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy =
> False End With Selection.find.Execute Replace:=wdReplaceAll With Selection.find .Text = "A " .Replacement.Text = "A " .Forward = True .Wrap
> = wdFindContinue .Format = False .MatchCase = True .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza =
> False .MatchControl = False .MatchByte = False .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike = False
> .MatchWildcards = False .MatchFuzzy = False End With Selection.find.Execute Replace:=wdReplaceAll With Selection.find .Text = "At
> " .Replacement.Text = "At " .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = True .MatchWholeWord = False .MatchKashida
> = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchByte = False .CorrectHangulEndings = False
> .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With With Selection.find .Text = "wy
> " .Replacement.Text = "wy " .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = True .MatchWholeWord = False .MatchKashida
> = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchByte = False .CorrectHangulEndings = False
> .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With Selection.find.Execute Replace:
> =wdReplaceAll With Selection.find .Text = "'" .Replacement.Text = "'" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase =
> False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchByte =
> False .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End
> With Selection.find.Execute Replace:=wdReplaceAll With Selection.find .Text = "'" .Replacement.Text = "'" .Forward = True .Wrap =
> wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza =
> False .MatchControl = False .MatchByte = False .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike = False
> .MatchWildcards = False .MatchFuzzy = False End With Selection.find.Execute Replace:=wdReplaceAll With Selection.find .Text =
> "-" .Replacement.Text = "-" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida
> = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchByte = False .CorrectHangulEndings = False
> .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With Selection.find.Execute Replace:
> =wdReplaceAll With Selection.find .Text = ""'s" .Replacement.Text = "'s" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase
> = True .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchByte =
> False .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End
> With Selection.find.Execute Replace:=wdReplaceAll Selection.find.Execute Replace:=wdReplaceAll With Selection.find .Text =
> ""'t" .Replacement.Text = "'t" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = True .MatchWholeWord = False
> .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchByte = False .CorrectHangulEndings =
> False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With Selection.find.Execute
> Replace:=wdReplaceAll With Selection.find .Text = "LOL" .Replacement.Text = "LOL" .Forward = True .Wrap = wdFindContinue .Format = False
> .MatchCase = True .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False
> .MatchByte = False .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy =
> False End With Selection.find.Execute Replace:=wdReplaceAll ' End "Title" Paste With Selection.find .Text = "'~" .Replacement.Text =
> "'" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False
> .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchByte = False .CorrectHangulEndings = False .MatchAllWordForms
> = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With Selection.find.Execute Replace:=wdReplaceAll With
> Selection.find .Text = "=large" .Replacement.Text = "=large" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False
> .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchByte = False
> .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With
> Selection.find.Execute Replace:=wdReplaceAll With Selection.find .Text = "=large" .Replacement.Text = "=large" .Forward = True .Wrap =
> wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza =
> False .MatchControl = False .MatchByte = False .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike = False
> .MatchWildcards = False .MatchFuzzy = False End With Selection.find.Execute Replace:=wdReplaceAll With Selection.find .Text = " I
> " .Replacement.Text = " I " .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida
> = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchByte = False .CorrectHangulEndings = False
> .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With Selection.find.Execute Replace:
> =wdReplaceAll With Selection.find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase =
> False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchByte =
> False .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End
> With Selection.find.Execute Replace:=wdReplaceAll Selection.find.ClearFormatting Selection.find.Replacement.ClearFormatting With
> Selection.find .Text = "'" .Replacement.Text = "'" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False
> .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchByte = False
> .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With
> Selection.find.Execute Replace:=wdReplaceAll With Selection.find .Text = "/" .Replacement.Text = "/" .Forward = True .Wrap = wdFindContinue
> .Format = False .MatchCase = True .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False
> .MatchControl = False .MatchByte = False .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards
> = False .MatchFuzzy = False End With Selection.find.Execute Replace:=wdReplaceAll With Selection.find .Text = "" .Replacement.Text =
> "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchKashida = False .MatchDiacritics =
> False .MatchAlefHamza = False .MatchControl = False .MatchByte = False .CorrectHangulEndings = False .MatchAllWordForms = False
> .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With Selection.find.Execute Replace:=wdReplaceAll With
> Selection.find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord =
> False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchByte = False .CorrectHangulEndings
> = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With Selection.find.Execute
> Replace:=wdReplaceAll With Selection.find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True
> .MatchCase = True .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False
> .MatchByte = False .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy =
> False End With Selection.find.Execute Replace:=wdReplaceAll With Selection.find .Text = " the " .Replacement.Text = " the " .Forward = True
> .Wrap = wdFindContinue .Format = True .MatchCase = True .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False
> .MatchAlefHamza = False .MatchControl = False .MatchByte = False .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike
> = False .MatchWildcards = False .MatchFuzzy = False End With Selection.find.Execute Replace:=wdReplaceAll Selection.find.ClearFormatting
> Selection.find.Replacement.ClearFormatting With Selection.find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue
> .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False
> .MatchControl = False .MatchByte = False .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards
> = False .MatchFuzzy = False End With Selection.find.Execute Replace:=wdReplaceAll With Selection.find .Text = "" .Replacement.Text =
> "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics
> = False .MatchAlefHamza = False .MatchControl = False .MatchByte = False .CorrectHangulEndings = False .MatchAllWordForms = False
> .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With Selection.find.Execute Replace:=wdReplaceAll With
> Selection.find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord
> = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchByte = False
> .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With
> Selection.find.Execute Replace:=wdReplaceAll With Selection.find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue
> .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False
> .MatchControl = False .MatchByte = False .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards
> = False .MatchFuzzy = False End With Selection.find.Execute Replace:=wdReplaceAll With Selection.find .Text = "" .Replacement.Text =
> "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics
> = False .MatchAlefHamza = False .MatchControl = False .MatchByte = False .CorrectHangulEndings = False .MatchAllWordForms = False
> .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With Selection.find.Execute Replace:=wdReplaceAll With
> Selection.find .Text = " " .Replacement.Text = " " .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord
> = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchByte = False
> .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With
> Selection.find.Execute Replace:=wdReplaceAll With Selection.find .Text = " " .Replacement.Text = " " .Forward = True .Wrap = wdFindContinue
> .Format = True .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False
> .MatchControl = False .MatchByte = False .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards
> = False .MatchFuzzy = False End With Selection.find.Execute Replace:=wdReplaceAll Selection.find.Execute With Selection.find .Text = "
> " .Replacement.Text = " " .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchKashida =
> False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchByte = False .CorrectHangulEndings = False
> .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With Selection.find.Execute Replace:
> =wdReplaceAll With Selection.find .Text = "..." .Replacement.Text = "..." .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase
> = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchByte =
> False .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End
> With Selection.find.Execute Replace:=wdReplaceAll With Selection.find .Text = "with e" .Replacement.Text = "with e" .Forward = True .Wrap =
> wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza =
> False .MatchControl = False .MatchByte = False .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike = False
> .MatchWildcards = False .MatchFuzzy = False End With Selection.find.Execute Replace:=wdReplaceAll With Selection.find .Text =
> 'the" .Replacement.Text = 'the" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = True
> .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchByte = False .CorrectHangulEndings =
> False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With Selection.find.Execute
> Replace:=wdReplaceAll Selection.find.ClearFormatting Selection.find.Replacement.ClearFormatting With Selection.find .Text =
> "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida =
> False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchByte = False .CorrectHangulEndings = False
> .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With Selection.find.Execute Replace:
> =wdReplaceAll ' Selection.WholeStory ' Dim oRng As Word.Range ' Set oRng = Selection.Range ' If oRng.Characters.Last = Chr(13) Or
> oRng.Characters.Last = Chr(11) Then ' oRng.End = oRng.End - 1 ' End If ' oRng.Text = Replace(Replace(oRng.Text, Chr(11), " "), Chr(13), "
> ") ' lbl_Exit: With Selection.find .Text = ". " .Replacement.Text = ". " .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase
> = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchByte =
> False .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End
> With Selection.find.Execute Replace:=wdReplaceAll With Selection.find .Text = "..." .Replacement.Text = "..." .Forward = True .Wrap =
> wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza =
> False .MatchControl = False .MatchByte = False .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike = False
> .MatchWildcards = False .MatchFuzzy = False End With Selection.find.Execute Replace:=wdReplaceAll Selection.find.ClearFormatting
> Selection.find.Replacement.ClearFormatting Selection.find.Execute With Selection.find .Text = " " .Replacement.Text = " " .Forward = True
> .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False
> .MatchAlefHamza = False .MatchControl = False .MatchByte = False .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike
> = False .MatchWildcards = False .MatchFuzzy = False End With Selection.find.Execute Replace:=wdReplaceAll With Selection.find .Text =
> "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida =
> False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchByte = False .CorrectHangulEndings = False
> .MatchAllWordForms = False .MatchSoundsLike = False .MatchFuzzy = False .MatchWildcards = True End With Selection.find.Execute Replace:
> =wdReplaceAll With ActiveDocument.PageSetup .LineNumbering.Active = False .Orientation = wdOrientPortrait .TopMargin = InchesToPoints(0.5)
> .BottomMargin = InchesToPoints(0.5) .LeftMargin = InchesToPoints(0.5) .RightMargin = InchesToPoints(0.5) .Gutter = InchesToPoints(0)
> .HeaderDistance = InchesToPoints(0.5) .FooterDistance = InchesToPoints(0.5) .PageHeight = InchesToPoints(11) .PageWidth = InchesToPoints
> (8.5) .FirstPageTray = wdPrinterDefaultBin .OtherPagesTray = wdPrinterDefaultBin .SectionStart = wdSectionNewPage
> .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False .VerticalAlignment = wdAlignVerticalTop .SuppressEndnotes =
> True .MirrorMargins = False .TwoPagesOnOne = False .BookFoldPrinting = False .BookFoldRevPrinting = False .BookFoldPrintingSheets = 1
> .GutterPos = wdGutterPosLeft .SectionDirection = wdSectionDirectionLtr .LayoutMode = wdLayoutModeDefault
> ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitFullPage End With Selection.find.ClearFormatting
> Selection.find.Replacement.ClearFormatting Selection.WholeStory ' Remove Indent Dim p As Word.Paragraph Dim I As Long Dim rng As Word.Range
> For Each p In ActiveDocument.Paragraphs Set rng = p.Range.Characters.First 'Test for a space or TAB character If rng.Text = " " Or rng.Text
> = Chr(9) Then I = rng.MoveEndWhile(" " + Chr(9)) Debug.Print I rng.Delete End If Next p ' Remove Indent End Selection.Cut
> ActiveDocument.Save ActiveDocument.Close Application.Quit End Sub
>
> =====
>
> Trump WINS!
>
> Donald Trump is the 47th U.S. president, defeating Vice President Kamala Harris.
>
> Republican Donald Trump was elected President of the United States in the 2024 election, defeating Vice President Kamala Harris.
>
> Trump, 78, will begin his second term early next year.
>
> Donald Trump will be inaugurated as the U.S. President on Monday, January 20, 2025, on the West Front of the U.S. Capitol in Washington,
> D.C.
>
> A Second Trump Administration