StarOffice 8 - finding all different font types in a Writer file

Question

Hello,
I am currently using StarOffice 8 on a Windows XP system.
I frequently transfer a large Writer (.odt) file between different computer systems as I constantly update the file with new information. As part of the updates, I use different fonts. As I install a particular font on one machine, this font may not be installed on another machine when I add new information to the file on that particular machine.
When I open the Writer file on a machine that has some font not installed, the WYSIWYG appears incorrectly (since the proper font is not installed on that computer, of course) but if you highlight the incorrectly-displayed info, it says what the font type should be (ie, "WP Hebrew David" font). I then go online to download that specific font type for this the computer. Then the data is displayed correctly.
When you have many, many different font types used in a file, it is hard to keep track of all different fonts used. Before anyone questions me on using so many different fonts in a file, it is important for my file to visually display the correct data, and this means using a quantity of fonts.
What I am wondering is the following:
Is there a way from within StarOffice 8 to scan a particular file and then let the user know every different font name used in that file?
That way, if the file contains a font which was used on another machine but not currently installed on the current machine -- when I am updating information in the file -- I can then see a list of fonts used and then install new fonts accordingly after checking to see if they are installed (by checking the Fonts folder in C:/Windows)
I hope this makes sense, or is it "clear as mud"?
Please excuse my bad English grammar as I am not a native English speaker, but have picked it up living in Canada for the last 20 years :-)
Cheers & thanks in advance for any help !
David
Edited by: Broad_Arrow on May 18, 2009 11:18 PM

Answer 1

May 20 2009
There is a Fonts Used macro writer_printAllFonts.sxw Further checking this is the wrong StarBasic macro. The one I use came from an OOo forum I think. I use it with SO7, SO8 and SO9.
It is at the end of this message. To install it:
[1] Copy the macro below to the clipboard
[2] Go to Tools>Macros>Organize Macros>Basic>Standard
Select New. Highlight what is there, paste, and close.
[3] Go to Tools>Customize>Menus>Tools
Highlight Word Count, then go to Add>Macros>My Macros>Standard>Module1
Highlight FontsUsed, Click Add, Close, Ok
Phil
REM ***** BASIC *****
Sub Main
End Sub
Sub FontsUsed 'Version 1 John Vigor 4/25/06
'List fonts used in Writer document. Appears to work in normal text,
'Sections, normal Tables, and Frames. Will currently crash on a Table
'within a Table.
oDoc = ThisComponent
Dim fonts as Integer: Dim aFonts(1)
oTC = oDoc.Text.createTextCursor
oTC.goRight(1,true) : CurrentFont = oTC.charFontName
fonts = fonts + 1 : aFonts(fonts) = CurrentFont
REM Do "normal" text.
partEnum = oDoc.Text.createEnumeration
PartEnumerator(partEnum,CurrentFont,fonts,aFonts())
REM Do Frames.
oFrames = oDoc.getTextFrames
If oFrames.Count > 0 then
fonts = fonts + 1 : ReDim Preserve aFonts(fonts)
aFonts(fonts) = "NEW FONTS, IF ANY, FOUND IN FRAMES:"
For I = 0 to oFrames.Count - 1
thisFrame = oFrames.getByIndex(I)
partEnum = thisFrame.createEnumeration
PartEnumerator(partEnum,CurrentFont,fonts,aFonts())
Next
EndIf
REM Prepare list.
For I = 1 to fonts
s = s & aFonts(I) & Chr(10)
Next
iAns = MsgBox(s,4,"FONTS FOUND. Create font list document?")
If iAns = 7 then
End
Else
NewDoc = StarDesktop.loadComponentFromURL("private:factory/swriter"," blank",O,Array())
oVC = NewDoc.CurrentController.getViewCursor
oVC.String = s : oVC.collapseToEnd
EndIf
End Sub
Sub PartEnumerator(partEnum,CurrentFont,fonts,aFonts())
While partEnum.hasMoreElements
thisElement = partEnum.nextElement
If thisElement.supportsService("com.sun.star.text.Paragraph") then
portionEnum = thisElement.createEnumeration
PortionEnumerator(portionEnum,CurrentFont,fonts,aFonts())
ElseIf thisElement. supportsService ("com.sun.star.text.TextTab le") then
Cols = thisElement.getColumns.Count - 1
Rows = thisElement.getRows.Count - 1
For C = 0 to Cols
For R = 0 to Rows
thisCell = thisElement.getCellByPosition(C,R)
cellEnum = thisCell.createEnumeration
While cellEnum.hasMoreElements
thisPara = cellEnum.nextElement
portionEnum = thisPara.createEnumeration
PortionEnumerator(portionEnum,CurrentFont,fonts,aFonts())
Wend
Next
Next
EndIf
Wend
End Sub
Sub PortionEnumerator(portionEnum,CurrentFont,fonts,aFonts())
Dim found as Boolean
While portionEnum.hasMoreElements
thisPortion = portionEnum.nextElement
thisFont = thisPortion.charFontName
If thisFont <> CurrentFont then
For I = 1 to fonts
If aFonts(I) = thisFont then found = true: Exit For
Next
If found then
CurrentFont = thisFont : found = false Else
fonts = fonts + 1 : ReDim Preserve aFonts(fonts)
aFonts(fonts) = thisFont : CurrentFont = thisFont
EndIF
EndIf
Wend
End Sub