Would love any help on how to copy/paste articles like the ones in the links below into Word and then run a macro that only preserves the text of the news article and changes it to a standard format (such as Arial font in size 11 in the color black - with paragraphs and spacing all consistent). The articles online are full of pictures, ads, columns, links, etc. and I just need to preserve the actual content of the article for 100+ pages every day. Also including what I've written so far for the macro below the article links. Would appreciate any help - thank you so much.


Analysis: Silicon Valley'''s greatest minds misread pandemic demand. Now their employees are paying for it. | CNN Business

UN Expert Group Proposes Rules for Net Zero Commitments - ESG Today

https://apnews.com/article/challenge...94f142fea26126

5 facts drivers need to know about tech-enabled safety features




Sub Macro1()
'
' Macro1 Macro
'
'
Selection.WholeStory
With Selection.Font
.Name = "Arial"
.Size = 11
.Italic = False
.Underline = wdUnderlineNone
.UnderlineColor = wdColorAutomatic
.StrikeThrough = False
.DoubleStrikeThrough = False
.Outline = False
.Emboss = False
.Shadow = False
.Hidden = False
.SmallCaps = False
.AllCaps = False
.Engrave = False
.Superscript = False
.Subscript = False
.Spacing = 0
.Scaling = 100
.Position = 0
.Animation = wdAnimationNone
.Ligatures = wdLigaturesNone
.NumberSpacing = wdNumberSpacingDefault
.NumberForm = wdNumberFormDefault
.StylisticSet = wdStylisticSetDefault
.ContextualAlternates = 0
End With
With Selection.ParagraphFormat
.LeftIndent = InchesToPoints(0)
.RightIndent = InchesToPoints(0)
.SpaceBefore = 0
.SpaceBeforeAuto = False
.SpaceAfter = 12
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpaceSingle
.Alignment = wdAlignParagraphLeft
.WidowControl = True
.KeepWithNext = False
.KeepTogether = False
.PageBreakBefore = False
.NoLineNumber = False
.Hyphenation = True
.FirstLineIndent = InchesToPoints(0)
.CharacterUnitLeftIndent = 0
.CharacterUnitRightIndent = 0
.CharacterUnitFirstLineIndent = 0
.LineUnitBefore = 0
.LineUnitAfter = 0
.MirrorIndents = False
.TextboxTightWrap = wdTightNone
.CollapsedByDefault = False
End With
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "( ){2,}"
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^m"


.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p^p"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^g"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

What about starting the process, by using the Firefox browser with a Ad Blocker, such as Ublock Origin and Adblock Plus, then hitting the Reader View button, which removes images and simplifies the page.
See screenshot.

Attached Images

snap.png (73.9 KB, 16 views)

This is helpful, thank you! Only thing is that it is my work computer, so I need to make sure I can do that on it. Will try. Thank you again!

If that fails, my next thought would be to save the webpage out first as a plain ol' text file. That alone would remove all styling and images. Of course, with 100 plus per day, that definitely would need to be automated.
I find myself recommending Python a lot for questions on this forum. Python has some great tools to do web scraping, and text processing. Not sure yet about doing it all from Word.

Why not just use the Paste as Text Only option?

Make sure the paragraph you are pasting into has the formatting you require. Simplest to create or modify a style to the settings you want and apply that first.

All this can be done without using any code.