Microsoft Office Forums - View Single Post - Check uniform font size in each paragraph

RobiNew · 12-07-2023, 07:53 AM

I use this code to level out font size based on the first word of the paragraph. Is it possible to change the code so that uniformity is based on the majority of words in the paragraph? Thanks!

Code:

Sub FontSize()
Dim oPar As Paragraph
Dim iType As Integer
  For iType = 1 To 2
For Each oPar In ActiveDocument.StoryRanges(iType).Paragraphs
    If oPar.Range.Font.Size = wdUndefined Then
    varSz = oPar.Range.Characters.First.Font.Size
    oPar.Range.Font.Size = varSz
    End If
Next oPar
  Next iType
End Sub