OpenOffice.info

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

Du kannst z.B. durch eine Selektion loopen. Folgender Code loopt durch eine Selektion in Writer:

[code]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[/code]

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?