folgendes Problem besitze ich und habe keinen Ansatzpunkt.
Ich habe eine Write-Datei was als Vorlage dient, über DDE-Felder mit einer Calc-Datei Verknüpft ist. Diese Write-Datei wird über die Calc-Datei mittels eines Makros per Ausführung dieses Makros selbstständig aktualisiert und unter einen anderen Namen abgespeichert. Nun ist mein Problem:
* wenn man die abgespeicherte Write-Datei, die mit dem Makro erzeugt wurde öffnet, aktualisiert sich ja die Datei gleich automatisch.
Dies soll aber nicht geschehen, da sich nur die eine Write-Datei (die als Vorlage dient) immer wieder aktualisieren darf, und nicht die abgespeicherte Datei.
Daher meine Frage: Ist es möglich per Makro die Verknüpfungen zu löschen bzw. zu deaktivieren und dan abzuspeichern, so das sich die Write-Datei, die als Vorlage dient noch aktualisieren lässt, aber nicht die Datei die unter ein anderen Namen abgespeichert wird.
Hoffe es findet sich eine Lösung. Ist zwar nicht einfach aber schonmal Danke
Gruß
KingEisbaer
Zum besseren Verstehen hier der Macro-Code
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)
Dim sFileName1 as String
Dim sFileName2 as String
Dim sDatum as String
Dim sDatum2 as String
Dim sNeuerName as String
dim dummy()
sFileName1 = "Wochenarbeitsplan von "
sFileName2 = " bis "
sDatum = DateValue(thisComponent.Sheets(0).getCellRangeByName("C8").String)
sDatum2 = DateValue(thisComponent.Sheets(0).getCellRangeByName("E8").String)
sNeuerName = "E:\" & sFileName1 & sDatum & sFileName2 & sDatum2 & ".odt"
print sNeuerName
dateiurl = converttourl(sNeuerName)
odoc.storeAsURL(dateiurl,dummy())
oDoc.close (true)
End Sub
