Hallo,
Carmen Weber schrieb:
> Im WRITER kann ich keinen entsprechenden Befehl finden. Oder doch?
Nein.
Du könntest ein Makro verwenden, was Du Dir auf eine Schaltfläche legst
und bei bereits geöffneten (noch unveränderten) Dokument startest:
Sub mach_kopie()
Dim Dummy()
url = ThisComponent.URL
i=0
Do
i=i+1
x = Right(url,i)
Loop While LEFT(x,1)<>"/"
z = LEFT(url,LEN(url)-i+1) & "Kopie von " & Right(url,i-1)
ThisComponent.storeAsUrl(ConvertToUrl(z),Dummy())
End Sub
Dann ist anschließend eine Kopie des Dokumentes offen.
Brauchst Du das häufiger kannst Du das gleich beim Öffnen tun indem Du
Deinen eigenen Öffnen-Dialog verwendest und den nur noch davor
schaltest, so hier:
Sub oeffne_kopie()
Dim Dummy()
auswahl = createunoservice("com.sun.star.ui.dialogs.FilePicker")
With auswahl
.SetMultiselectionMode(False)
End With
antwort = auswahl.execute
if antwort <> 1 then
Exit Sub
end if
datei = auswahl.Files(0)
StarDesktop.LoadComponentFromURL(datei,"_blank", 0, Dummy())
url = ThisComponent.URL
i=0
Do
i=i+1
x = Right(url,i)
Loop While LEFT(x,1)<>"/"
z = LEFT(url,LEN(url)-i+1) & "Kopie von " & Right(url,i-1)
ThisComponent.storeAsUrl(ConvertToUrl(z),Dummy())
End Sub
Gruß
Jörg
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
