Thread: [Solved] MAcro to List all the Font & its size in a word document
View Single Post
 
Old 01-29-2013, 09:34 PM
macropod's Avatar
macropod macropod is offline Windows 7 64bit Office 2010 32bit
Administrator
  
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,382
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default
You can easily enough test for all fonts, including Arial, by deleting the 'If sTempName <> "Arial" Then' test (and its 'End If').

Testing by font size introduces a major overhead, as a font can be anywhere from 1pt to 1638pt, in 0.5pt increments. Testing all (or even a significant range of these) possibilities will slow your code down quite dramatically. Suppose, for example, you only want to test for all sizes from 6pt to 24pt, inclusive. That will make the code take about 37 times longer to run than it now takes.

PS: When posting code, please use the code tags. They're on the 'Go Advanced' tab.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote