OpenOffice.info

Code: Alles auswählen

sub tabellen_sel

Tabelle = thiscomponent.texttables().getbyindex(0)
control = thiscomponent.currentcontroller()

control.select( Tabelle )

table_to_text

end sub

'####___ Start Aufzeichnung____'######

sub table_to_Text
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Delimiter"
args1(0).Value = CHR$(9)   '###__Tabulator-taste

dispatcher.executeDispatch(document, ".uno:ConvertTableToText", "", 0, args1())

end sub

'#####___Ende der Aufzeichnung____#####

Code: Alles auswählen

'print " Hallo ich bin es, dein Makro ! "
'msgBox " pups "
testshit = testshit+1

        oDispatch.executeDispatch(oDocframe, ".uno:Copy", "", 0, Array())

Code: Alles auswählen

Option Explicit
Sub changetab2text_new1 ' korrigiert von Karolus

Dim oDoc as Object, oTable as Object, oCurs as Object, mytextCursor as Object, oPar as Object
Dim myViewCursor as Object, myCell as Object, oDispatch as Object, oDocframe as Object

Dim CellString as String
Dim oText 'Wird nirgends benutzt !!
Dim Anzahl as Integer, Anzahl2 as Integer, i as Integer 'Benutzt du die irgendwo wirklich?

oDoc = Thiscomponent
oCurs = oDoc.getCurrentController().getViewCursor()
oDispatch = createUnoService("com.sun.star.frame.DispatchHelper")
oDocframe = oDoc.CurrentController.Frame

Anzahl = oDoc.getTextTables().getCount

for i = Anzahl -1 to 0 step -1

    oTable = oDoc.getTextTables().getByIndex( i )
    myCell = oTable.getCellByPosition(1,0)
'   myCell = oTable.getCellByName("B1")
    CellString = myCell.string

    if CellString ="next Page " then 
        myCell.string = "ENDE" 
        odoc.getCurrentController().select(mycell)
        oCurs.gotoEnd(true)
        oCurs.CharColor = 12910603
        goto nextstep1
    end if


    oDoc.getCurrentController().select(mycell)
    oCurs.gotoEnd(true)
    oCurs.CharColor = 12910603
    oCurs.ParaLeftMargin = 499
    oCurs.ParaRightMargin = 499

	nextstep1:
    oDispatch.executeDispatch(oDocframe, ".uno:Copy", "", 0, Array())
    oCurs.gotoStart(True)
    oCurs.goleft(1,False)
    oTable.dispose

    oDoc.Text.insertControlCharacter(oCurs,com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK, false)
    oDispatch.executeDispatch(oDocframe, ".uno:Paste", "", 0, Array())

next

print " Fertig ! "

End Sub