OpenOffice.org: Replacing dingbats
I _really_ should have blogged this when I first wrote it. That would’ve saved me time writing it again!
Sub ReplaceDingbats(optional doc)
oDocument = IIf(IsMissing(doc), ThisComponent, doc)
oSearchDesc = oDocument.createSearchDescriptor
for i = 1 to 9
oSearchDesc.searchString = "(;; )?\(" + i + "\)"
oSearchDesc.searchRegularExpression = true
mFound = oDocument.findFirst(oSearchDesc)
do while not isNull(mFound)
mFound.string = chr(&HF08B + i)
mFound.CharFontName = "Wingdings"
mFound = oDocument.findNext(mFound.End, oSearchDesc)
loop
next i
End Sub
It’s a macro for OpenOffice.org – replaces the widgets I use in formatting the book chapter…
Short URL: http://sachachua.com/blog/p/5035-
http://knusper.says.it Knusper
I'm 


