JohnV
Administrator
Joined: 07 Mar 2003
Posts: 8982
Location: Lexinton, Kentucky, USA
|
 Posted: Sat Feb 12, 2011 9:05 am Post subject: Convert fields to text |
 |
|
The ability to quickly convert Writer fields of text is occasionally ask for. I've posted this code in response to such requests but, of course, can't easily find it so I'm sticking in Code Snippets this time.
| Code: | Sub FieldsToText 'Writer
Dim oDoc,oFields,oEnum,ThisField
oDoc = ThisComponent
oFields = oDoc.getTextFields
oEnum = oFields.createEnumeration
While oEnum.HasMoreElements
ThisField = oEnum.nextElement
ThisField.Anchor.String = ThisField.Anchor.String
Wend
End Sub |
|
|
