diff options
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/gimmicks/AutoText.xba | 3 | ||||
| -rw-r--r-- | wizards/source/gimmicks/GetTexts.xba | 9 | ||||
| -rw-r--r-- | wizards/source/gimmicks/ReadDir.xba | 6 |
3 files changed, 1 insertions, 17 deletions
diff --git a/wizards/source/gimmicks/AutoText.xba b/wizards/source/gimmicks/AutoText.xba index a9534b5c531f..56e9f4ee047f 100644 --- a/wizards/source/gimmicks/AutoText.xba +++ b/wizards/source/gimmicks/AutoText.xba @@ -5,8 +5,7 @@ Option Explicit Dim oDocument as Object Dim sDocumentTitle as String -' Todo: Problem mit der Spaltenbreite lösen -' Internationale Vorlage für Überschrift + Sub Main() Dim oTable as Object Dim oRows as Object diff --git a/wizards/source/gimmicks/GetTexts.xba b/wizards/source/gimmicks/GetTexts.xba index 2e7d49649bcb..5d266adf17ef 100644 --- a/wizards/source/gimmicks/GetTexts.xba +++ b/wizards/source/gimmicks/GetTexts.xba @@ -1,15 +1,6 @@ <?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> <script:module xmlns:script="http://openoffice.org/2000/script" script:name="GetTexts" script:language="StarBasic">Option Explicit -' Option für doppelte Strings -' Alternativtexte, Namen usw für HTML-Seiten--> ist Anbindung an StarOfficeAPI geplant? -' Verlustanzeige "Wo ist Peggy?" -' Überschriften für Textfelder -' GetTextFrames mit Peter absprechen -' Ole - Objekte auch mit einbeziehen? -' Redimensionierung des LogArrays, wenn Implementierung so weit ist -' Namen von Notizenseiten mit Peter durchsprechen - ' Macro-Description: ' This Macro extracts the Strings out of the currently activated document und inserts them into a logdocument ' The aim of the macro is to provide the programmer an insight into the StarOffice API diff --git a/wizards/source/gimmicks/ReadDir.xba b/wizards/source/gimmicks/ReadDir.xba index b3edd8423753..c7dd1f7f44a2 100644 --- a/wizards/source/gimmicks/ReadDir.xba +++ b/wizards/source/gimmicks/ReadDir.xba @@ -1,12 +1,6 @@ <?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> <script:module xmlns:script="http://openoffice.org/2000/script" script:name="ReadDir" script:language="StarBasic">Option Explicit -' Todo: Capitalization of ReadDirDlg for CVS -' Verzeichnis StarOne überprüfen (letzte beiden Dateien) -' Ordnung nach Verzeichnis und dann die Dateien ( indem "AAAA" vor den Verzeichnisnamen gesetzt wird). -' Nicht-Verzeichnisnamen abfangen -'Public Const SBBASEWIDTH = 8000 -'Public Const SBBASEHEIGHT = 1000 Public Const SBPAGEX = 800 Public Const SBPAGEY = 800 Public Const SBRELDIST = 1.3 |