Copy of Styles used in document

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I know I can print out a copy of the styles used in my document by going to
File, Print and under Print What say styles. It prints out perfectly. I
want a copy of this that I can keep on my computer (without just scanning in
the output.) If I select the save to file option, it comes out as a fairly
meaningless .prn file and there does not appear to be a way to make this
appear as a .doc file.

Does anyone know how I can get an electronic version of this printout to
occur?

Or alternatively, is there any way I can copy and paste style information
from elsewhere in the document? Don't seem to be able to select the
information from Styles and Formatting.
 
Deborah said:
I know I can print out a copy of the styles used in my document by going to
File, Print and under Print What say styles. It prints out perfectly. I
want a copy of this that I can keep on my computer (without just scanning in
the output.) If I select the save to file option, it comes out as a fairly
meaningless .prn file and there does not appear to be a way to make this
appear as a .doc file.

Does anyone know how I can get an electronic version of this printout to
occur?

Or alternatively, is there any way I can copy and paste style information
from elsewhere in the document? Don't seem to be able to select the
information from Styles and Formatting.
Click to expand...

Hi Deborah,

This macro generates a document containing the same text, minus the
bold formatting of the style names and the indenting of the
descriptions. Start it while the cursor is in a new blank document.

Public Sub ListAllStyles()
Dim oStyle As Style

For Each oStyle In ActiveDocument.Styles
With ActiveDocument.Range
.InsertAfter oStyle.NameLocal & vbCr
.InsertAfter oStyle.Description & vbCr & vbCr
End With
Next oStyle
End Sub

If you need installation instructions, see
http://www.gmayor.com/installing_macro.htm.
 
The trick in using Save to File is to select a Generic/Text Only printer.

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA

Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.
 
Back
Top