Makros anpassen
Verfasst: Di, 22.01.2013 10:35
Hallo allerseits,
Ich habe hier folgendes Makro:
Alles geschieht aus einem Calc-Dokument. Der erste Teil zum Öffnen eines Write-Dokument klappt soweit.
Das Problem besteht in folgenden Abschnitt des Makros:
Das Makro soll das Write-Dokument unter dem Namen "Wochenarbeitsplan" + Datum (was aus dem Calc-Dokument geholt wird) neu abgespeichert werden.
Das funktioniert leider nicht. Kann mir einer helfen, das Makro anzupassen.
Danke
Ich habe hier folgendes Makro:
Code: Alles auswählen
REM ***** BASIC *****
sub S_open_linked_Writer
thisComponent.store
dim args(0) as new com.sun.star.beans.PropertyValue
args(0).Name = "UpdateDocMode"
args(0).Value = 1
sFile = "E:\Arbeitsplan Vorlage.odt" ' Windows
sURL = ConvertToURL(sFile)
oDoc = StarDesktop.loadComponentFromURL(sURL, "_blank", 0, args)
'Speichern
dim dummy()
datei="E:\TEST.odt"
dateiurl=converttourl(datei)
odoc.storeasurl(dateiurl,dummy())
rem oder
rem odoc.storetourl(dateiurl,dummy())
Dim sFileName1 as String
Dim sDatum as String
sFileName1 = "Wochenarbeitsplan_"
sDatum = DateValue(thisComponent.Sheets(0).getCellRangeByName("B7").String)
Print sFileName1 & sDatum
oDoc.close (true)
End SubDas Problem besteht in folgenden Abschnitt des Makros:
Code: Alles auswählen
'Speichern
dim dummy()
datei="E:\TEST.odt"
dateiurl=converttourl(datei)
odoc.storeasurl(dateiurl,dummy())
rem oder
rem odoc.storetourl(dateiurl,dummy())
Dim sFileName1 as String
Dim sDatum as String
sFileName1 = "Wochenarbeitsplan_"
sDatum = DateValue(thisComponent.Sheets(0).getCellRangeByName("B7").String)
Print sFileName1 & sDatumDas funktioniert leider nicht. Kann mir einer helfen, das Makro anzupassen.
Danke