Hi Peter, > but the document is frozen (no cursor, no scrolling, etc.) > Working with oo is possible with other documents furthermore.
this sounds pretty much like my problem we were talking about some weeks ago:
i print a document with my custom print dialog. after that a second document is
opened, parts of the first documents are copied and then printed too.
after closing this document the first document is frozen sometimes ...
till now i have no solution for this problem, but i can recover the frozen
document
using the macro below.
can you recover your the frozen document too ?
Regards
Oliver
Sub DocRescue()
Dim oDoc as Object
Dim oServiceManager as Object
Dim oDesktop as Object
Dim oComponents as Object
Dim oComponent as Object
Dim oFrame as Object
Dim sTitle as String
Dim mFileProps(0) as New com.sun.star.beans.PropertyValue
Dim oNull as Object
oDoc = ThisComponent
oServiceManager = GetProcessServiceManager()
oDesktop = oServiceManager.createInstance("com.sun.star.frame.Desktop")
oComponents = oDesktop.Components.CreateEnumeration
While oComponents.HasMoreElements()
oComponent = oComponents.NextElement
If Not EqualUnoObjects(oDoc, oComponent) Then
sTitle = oComponent.Title
If MsgBox("Dokument: """ & sTitle & """ retten?", 32+4,
"Dokument retten...") = 6 Then
oFrame =
oComponent.getCurrentController().getFrame()
oFrame.Title = "wird geschlossen..."
mFileProps(0).Name = "Model"
mFileProps(0).Value = oComponent
oDesktop.loadComponentFromURL("private:object",
"_blank", 0, mFileProps())
Wait(1000)
oComponent = oNull
oFrame.dispose()
oFrame = oNull
Exit Sub
EndIf
EndIf
Wend
End Sub
--
GnuPG key 0xCFD04A45: 8822 057F 4956 46D3 352C 1A06 4E2C AB40 CFD0 4A45
signature.asc
Description: OpenPGP digital signature
