OpenOffice.org: Replacing dingbats
Posted on August 4th, 2008 by Sacha Chua
More posts about: geek Tags: openoffice.org // 2 Comments »
More posts about: geek Tags: openoffice.org // 2 Comments »
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…
![[me]](/blog/wp-content/themes/sacha-v3/images/face.png)
I'm 
