From: AlleyCat <katt@gmail.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 As Stupids As Lee Lee The Wee Wee Wrangler
Date: Fri, 15 Nov 2024 15:11:03 -0600
Organization: AlleyCat Computing, Inc.
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.
' 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