Microsoft Office Forums - View Single Post - [Solved] Macro to list font and its size on each page

Thread: [Solved] Macro to list font and its size on each page

View Single Post

Old

04-24-2020, 06:30 AM

Ryhne

Ryhne is offline

Ryhne uses Windows 10

Windows 10 Ryhne uses Office 2013

Ryhne uses Office 2013

Office 2013

Novice

The original poster

Join Date: Apr 2020

Posts: 11

Ryhne is on a distinguished road

Default

I tried this:

Code:

Sub TestFonts() With ActiveDocument.Range  
 If .Font.Name = "" Then .InsertBefore "Check Font Name" & vbCr
 End With
 End Sub

and nothing happens.

Reply With Quote