Seite 1 von 1
Writer-Dokument kopieren
Verfasst: Do, 19.02.2004 15:15
von Ein__Stadtmensch
Hallo,
kann man eine ganz neue Kopie von einem Writer-Dokument erzeugen, so dass man quasi das Dokument zweimal geöffnet hat. Das Problem dabei ist, dass das Originaldokument nicht unbedingt bereits gespeichert sein muss.
Geht das?
Verfasst: Fr, 20.02.2004 11:12
von openmind
Du kannst z.B. durch eine Selektion loopen. Folgender Code loopt durch eine Selektion in Writer:
Code: Alles auswählen
Function selection2Wiki
Dim selection as Object, oText as Object
Dim writerDoc as Object
Dim wiki as String
Dim elementCount as Integer
Dim oElement as Object
Dim oParagraphEnum as Object
Dim oParagraph as Object
Dim i as Integer
Dim sStyleName as String
wiki = ""
writerDoc = ThisComponent
selection = writerDoc.getCurrentSelection()
if ( Not IsNull( selection ) ) Then
elementCount = selection.count
oText = ThisComponent.Text
Dim sElementString as String
For i=0 to elementCount-1
oElement = selection.getByIndex( i )
If oElement.hasElements Then
oParagraphEnum = oElement.createEnumeration
while oParagraphEnum.hasMoreElements
oParagraph = oParagraphEnum.nextElement
' process paragraphs
if oParagraph.supportsService( "com.sun.star.text.Paragraph" ) Then
sStyleName = oParagraph.paraStyleName
' list or paragraph?
if oParagraph.NumberingIsNumber then
' ...
Else
' ...
End if
Else oParagraph.supportsService( "com.sun.star.text.TextTable" )
End If
Wend
End If
Next i
End If
selection2Wiki = wiki
End Function