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…