Check uniform font size in each paragraph

RobiNew · #5 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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
VBA - Word how to globally change the font and font size in footnotes	thomasoj	Word VBA	3	01-15-2020 06:26 AM
Merging two Word documents: 2nd document not maintaining original font type and font size	Swarup	Word	31	08-28-2018 06:55 PM
Font size showing different (some superscripted??) but tools show its the same size?	mikkygee	PowerPoint	4	12-14-2015 11:21 PM
Looping Macro to Change Font, Font Size, and Give Heading 1	WH7262	Word VBA	1	08-26-2014 03:46 PM
Paragraph (carriage) return font size	revrossreddick	Word	2	12-28-2011 01:33 PM