|
|
#2
06-27-2019, 08:40 PM
|
||||
|
||||
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 
|
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
 Merging two Word documents: 2nd document not maintaining original font type and font size
|
Swarup | Word | 31 | 08-28-2018 06:55 PM |
| Global formatting and changing title font | George Tang | OneNote | 0 | 02-05-2016 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 |
| Cursor size varies with font size | r_lewis@fuse.net | Word | 0 | 07-20-2011 06:11 PM |
Windows 10 
Office 2016
Threaded Mode