|
|
#4
05-08-2018, 08:48 PM
|
||||
|
||||
All you really need to test for uniformity is something like:
Code:
Sub TestFonts() With ActiveDocument.Range If .Font.Name = "" Then .InsertBefore "Check Font Name" & vbCr If .Font.Size = 9999999 Then .InsertBefore "Check Font Size" & vbCr End With End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] 
|
| Tags |
| macro vba word |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Same selection of font..different sizes... | Garyz | Word | 8 | 02-02-2016 09:13 AM |
| Change font sizes in template | Calab | PowerPoint | 1 | 12-23-2013 09:29 AM |
| Reply: huge font sizes... | Uli | Outlook | 3 | 09-19-2012 06:57 PM |
| Font sizes in Outlook 2003 | peterandrew | Outlook | 3 | 09-18-2012 04:26 AM |
| Changing all different font sizes by a value | Puffin617 | Word VBA | 6 | 05-21-2009 08:23 AM |
Windows 7 64bit 
Office 2010 32bit
Threaded Mode