Group29.com - What did you expect?
  Create an account
:: Home  ::  Downloads  ::  Your Account  ::  Forums  ::
Google Adsense
Modules
  • Home
  • Downloads
  • ExpectationReviews
  • Forums
  • Group29 FAQ
  • MovieReviews
  • OtherReviews
  • Stories Archive
  • Submit News
  • Top 10
  • Topics
  • Web Links
  • New at Group29
    ·Movie Review: Star Wars: The Last Jedi [23]
    ·2017 USC vs UCLA preview
    ·Movie Review: IT (2017) [25]
    ·Forum Topic: Update your Facebook property
    ·2016 UCLA vs USC preview
    ·Expectation Review: Star Wars: The Force Awakens [29]
    ·Web Link: WEP Key Converter
    ·Expectation Review: Jupiter Ascending [25]
    ·Forum Topic: Why does my IPA file get saved as a zip file in IE?
    ·Web Link: BeyondCompare

    read more...
    TheForce.Net
    ·Rebelscum Breast Cancer Awareness Charity Patch
    ·BBC Interviews J.J. Abrams About Trek And Wars
    ·CEII: Jabba's Palace Reunion - Massive Guest Announcements
    ·Fathead's May the Fourth Be With You!
    ·Star Wars Night With The Tampa Bay Storm Reminder
    ·Stephen Hayford Star Wars Weekends Exclusive Art
    ·ForceCast #251: To Spoil or Not to Spoil
    ·New Timothy Zahn Audio Books Coming
    ·SDCC: Exclusive Black Series Boba Fett With Han In Carbonite Set
    ·Star Wars Art Exposition May 4th

    read more...
    Hot trends
    ·Group29.com

    read more...
    Group29 Discussion Board :: View topic - Microsoft Word Macro - Find Fonts in use in a document
    Log in Register Forum FAQ Memberlist Search
    Ratings, Links, Free Speech and more

    Group29 Discussion Board Forum Index -> Group29 Tech Tips -> Microsoft Word Macro - Find Fonts in use in a document
    Post new topic  Reply to topic View previous topic :: View next topic 
    Microsoft Word Macro - Find Fonts in use in a document
    PostPosted: Wed Dec 22, 2004 12:19 pm Reply with quote
    BB
    Regular
     
    Joined: Jun 23, 2004
    Posts: 340


      


    I found this macro (see below) to list all used fonts in a word document.

    Code:
    Sub ListAllUsedFonts()

    ' Subset of all installed fonts used in the currentdocument
    '
    Dim iFont      As Integer
    Dim iFontsUsed As Integer
    Dim sResult    As String
    Dim sList      As String
    Dim bFound     As Boolean

    iFontsUsed = 0
    sList = ""

    For iFont = 1 To FontNames.Count
       
        bFound = False
       
        Selection.Find.ClearFormatting
        With Selection.Find
            .Forward = True
            .Wrap = wdFindContinue
            .Font.Name = FontNames(iFont)
        End With
        bFound = Selection.Find.Execute

        If bFound Then
            iFontsUsed = iFontsUsed + 1
            sList = sList & FontNames(iFont) & vbCr
        End If

    Next iFont

    Select Case iFontsUsed
    Case 0
        sResult = "No fonts are used in the current document."
    Case 1
        sResult = "The following font is used in the current document:" & vbCrLf & vbCrLf
    Case Else
        sResult = "The following " & iFontsUsed & " fonts are used in the current document:" & vbCrLf & vbCrLf
    End Select

    sResult = sResult & sList & vbCr

    Selection.HomeKey Unit:=wdStory

    MsgBox sResult

    End Sub
    View user's profile Visit poster's website
    Microsoft Word Macro - Find Fonts in use in a document
      Group29 Discussion Board Forum Index -> Group29 Tech Tips
    You cannot post new topics in this forum
    You cannot reply to topics in this forum
    You cannot edit your posts in this forum
    You cannot delete your posts in this forum
    You cannot vote in polls in this forum
    All times are GMT - 6 Hours  
    Page 1 of 1  

      
      
     Post new topic  Reply to topic  


    Powered by phpBB © 2001-2003 phpBB Group
    Theme created by Vjacheslav Trushkin
    Forums ©
    Group29 Productions

    All logos and trademarks in this site are property of their respective owner. The comments are property of their posters, all the rest (c) 2006 by Group29 Productions.


    You can syndicate Group29 Productions news with an RSS Feeder using the file backend.php


    PHP-Nuke Copyright © 2005 by Francisco Burzi. This is free software, and you may redistribute it under the GPL. PHP-Nuke comes with absolutely no warranty, for details, see the license.
    Page Generation: 0.19 Seconds

    :: HeliusGray phpbb2 style by CyberAlien :: PHP-Nuke theme by www.nukemods.com ::