diff options
Diffstat (limited to 'wizards/source/gimmicks/AutoText.xba')
-rw-r--r-- | wizards/source/gimmicks/AutoText.xba | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/wizards/source/gimmicks/AutoText.xba b/wizards/source/gimmicks/AutoText.xba index 6950b830eb79..5d3cc18e5e13 100644 --- a/wizards/source/gimmicks/AutoText.xba +++ b/wizards/source/gimmicks/AutoText.xba @@ -25,7 +25,7 @@ Dim n, m, iAutoCount as Integer ' Open a new empty document oDocument = CreateNewDocument("swriter") If Not IsNull(oDocument) Then - oDocument.DocumentInfo.Title = sDocumentTitle + oDocument.DocumentProperties.Title = sDocumentTitle oDocuText = oDocument.Text ' Create The Character-templates @@ -94,4 +94,4 @@ Dim oCellCursor as Object oCellCursor.CharStyleName = sCellStyle oCell.Text.insertString(oCellCursor,sCellString,False) oDocument.CurrentController.Select(oCellCursor) -End Sub</script:module>
\ No newline at end of file +End Sub</script:module> |