diff options
| author | Oliver Bolte <obo@openoffice.org> | 2004-09-08 13:20:18 +0000 |
|---|---|---|
| committer | Oliver Bolte <obo@openoffice.org> | 2004-09-08 13:20:18 +0000 |
| commit | 8f5e53fdf054c12684c6a161b04494b865b5f01d (patch) | |
| tree | 6277ba5a0dcd6d2a3aff9d9388c516f44db1cc11 /wizards/source | |
| parent | aff55ac0609e67b325fc086c6f40d62043d403cf (diff) | |
INTEGRATION: CWS qwizards2 (1.6.172); FILE MERGED
2004/06/16 12:02:39 bc 1.6.172.1: ##Service for presentationdocument added
Diffstat (limited to 'wizards/source')
| -rw-r--r-- | wizards/source/gimmicks/GetTexts.xba | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/wizards/source/gimmicks/GetTexts.xba b/wizards/source/gimmicks/GetTexts.xba index ed921a5e3948..af3ac041cb1e 100644 --- a/wizards/source/gimmicks/GetTexts.xba +++ b/wizards/source/gimmicks/GetTexts.xba @@ -72,7 +72,7 @@ Dim oCharStyles as Object GetWriterStrings() Case "scalc" GetCalcStrings() - Case "sdraw" + Case "sdraw", "simpress" GetDrawStrings() Case Else Msgbox("This macro only works with a Writer, Calc or Draw/Impress document.", 16, GetProductName()) @@ -518,4 +518,5 @@ Sub MakeLogHeadLine(HeadText as String) oLogText.insertString(oLogCursor,HeadText,False) oLogText.insertControlCharacter(oLogCursor,com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK,False) oLogCursor.CharStyleName = "Log Body" -End Sub</script:module>
\ No newline at end of file +End Sub +</script:module>
\ No newline at end of file |