Replace font size with macro

gmaxey · #4 02-27-2017, 04:34 AM

You will have to attach a document with a sample of your text, because it works fine here as does a recorded version:

Code:

Sub Macro1()
  Selection.Find.ClearFormatting
  Selection.Find.Font.Size = 12
  Selection.Find.Replacement.ClearFormatting
  Selection.Find.Replacement.Font.Size = 8
  With Selection.Find
    .Text = ""
    .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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
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
Character based Search and Replace font size	anacond11	Word	2	08-08-2013 08:10 AM
MAcro to List all the Font & its size in a word document	shaukat74	Word VBA	1	01-29-2013 09:34 PM
how change size font to inches size	kkepo	Word	4	08-28-2012 08:53 PM