Thread: Global value for Font.Size?
View Single Post
 
Old 06-27-2019, 08:40 PM
Guessed's Avatar
Guessed Guessed is offline Windows 10 Office 2016
Expert
  
Join Date: Mar 2010
Location: Canberra/Melbourne Australia
Posts: 3,977
Guessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant future
Default
Doing this for every word is ultra-slow but the basic principle would be
Code:
Sub ReplaceFontForOneDocument()
Dim objSingleWord As Range
For Each objSingleWord In ActiveDocument.Words
  objSingleWord.Font.SizeBi = objSingleWord.Font.Size
Next
End Sub
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia
Reply With Quote