Font of all headings in a Word Document

Question

Hi,

I am trying to retrieve the font name and size of all the headings from a word document. Any idea how to get it?

Answer 1

The most straight forward solution is to open the document in Word and access the object model. This is traditionally done using VBA, but you can also use .NET (e.g. C# og VB.NET) by using VSTO (Visual Studio Tools for Office). Personally I find C#/VB.NET much better languages than VBA.

Once you have access to the object model you will have to enumerate paragraphs in the document. When you find a heading (perhaps defined by the style) you will have to figure out the formatting of the heading.

Answer 2

This is what I got from a brief skim of the MSDN page on "HeadingStyles":

MsgBox ActiveDocument.HeadingStyles(1).Style

Answer 3

The basic structure will be something like below:

Public Sub ShowFontAndSize() Dim singleLine As Paragraph Dim lineText As String

For Each singleLine In ActiveDocument.Paragraphs
 Debug.Print singleLine.Range.Font.Name
 Debug.Print singleLine.Range.Font.Size
Next singleLine

End Sub

The catch will be that this won't sense if there are different fonts and sizes on the same line. If that's a possibility, you will need to add another loop with For Each singleCharacter In singleLine.Range.Characters inside of the paragraphs loop.

Edit: A trickier problem is what to do with this data once you've collected it. Building up an array seems like the natural fit, but VBA arrays are borderline useless, since basic methods like .append() require you to redim the whole array. See http://www.cpearson.com/excel/VBAArrays.htm for more info if you would like to go down that road.