Microsoft Office Forums - View Single Post - Need help with a script with Selection and If for Font Size < 8?

Cendrinne · 06-04-2023, 08:48 PM

Found someting here

Code:

Sub CommentMania()
'found here in forum :https://www.msofficeforums.com/word-vba/38890-macro-font-names-sizes.html
'done by Guessed / Andrew Lockton 2018-06-13 at 9:00 am

  Dim aRng As Range, aPara As Paragraph
  Set aRng = ActiveDocument.Range

  For Each aPara In aRng.Paragraphs
      If aPara.Range.Font.Size < 7 Then
'          aPara.Range.Font.Name <> "Arial"
          aPara.Range.Font.Size = 8.5
      End If

  Next aPara
End Sub

it doesn't highlight, but maybe we can figure it out, but at least it's shorther

Note: with the single quote, I've just deactivated the original script. I often leave them in in case I need to tweek it for testing.
but later on, I remove them. ***I've just removed most of them to not confuse anyone

C