01-04-2011, 07:19 PM
use selection object for this like SelectionObject.Font.Name
e.g
e.g
Code:
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
Print objSelection.Font.Name
Print objSelection.Font.Size