Writer-Dokument kopieren

[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?

[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