libra writer document

; by Capn Odin
;https://www.autohotkey.com/boards/viewtopic.php?f=5&t=16046


f1::
objServiceManager := ComObjCreate("com.sun.star.ServiceManager")

;'Create the CoreReflection service that is later used to create structs
objCoreReflection := objServiceManager.createInstance("com.sun.star.reflection.CoreReflection")

;'Create the Desktop
objDesktop := objServiceManager.createInstance("com.sun.star.frame.Desktop")

;'Open a new empty writer document
args := ComObjArray(VT_VARIANT := 12, 2)
objDocument := objDesktop.loadComponentFromURL("private:factory/swriter", "_blank", 0, args)

;'Create a text object
objText := objDocument.getText

;'Create a cursor object
objCursor := objText.createTextCursor

;'Inserting some Text
objText.insertString(objCursor, "The first line in the newly created text document.`n", 0)

;'Inserting a second line
objText.insertString(objCursor, "Now we're in the second line", 0)

;'Create instance of a text table with 4 columns and 4 rows
objTable := objDocument.createInstance( "com.sun.star.text.TextTable")
objTable.initialize( 4, 4)

;'Insert the table
objText.insertTextContent(objCursor, objTable, false)

;'Get first row
objRows := objTable.getRows()
objRow := objRows.getByIndex(0)

;'Set the table background color
objTable.setPropertyValue("BackTransparent", false)
objTable.setPropertyValue("BackColor", 13421823)

;'Set a different background color for the first row
objRow.setPropertyValue("BackTransparent", false)
objRow.setPropertyValue("BackColor", 6710932)

;'Fill the first table row
insertIntoCell("A1","FirstColumn", objTable) ;'insertIntoCell is a helper function, see below
insertIntoCell("B1","SecondColumn", objTable)
insertIntoCell("C1","ThirdColumn", objTable)
insertIntoCell("D1","SUM", objTable)

objTable.getCellByName("A2").setValue(22.5)
objTable.getCellByName("B2").setValue(5615.3)
objTable.getCellByName("C2").setValue(-2315.7)
objTable.getCellByName("D2").setFormula("sum ")

objTable.getCellByName("A3").setValue(21.5)
objTable.getCellByName("B3").setValue(615.3)
objTable.getCellByName("C3").setValue(-315.7)
objTable.getCellByName("D3").setFormula("sum ")

objTable.getCellByName("A4").setValue(121.5)
objTable.getCellByName("B4").setValue(-615.3)
objTable.getCellByName("C4").setValue(415.7)
objTable.getCellByName("D4").setFormula("sum ")

;'Change the CharColor and add a Shadow
objCursor.setPropertyValue("CharColor", 255)
;objCursor.setPropertyValue("CharShadowed", true)

;'Create a paragraph break
;'The second argument is a com::sun::star::text::ControlCharacter::PARAGRAPH_BREAK constant
objText.insertControlCharacter(objCursor, 0 , false)

;'Inserting colored Text.
objText.insertString(objCursor, " This is a colored Text - blue with shadow`n", false)

;'Create a paragraph break ( ControlCharacter::PARAGRAPH_BREAK).
objText.insertControlCharacter(objCursor, 0, false)

;'Create a TextFrame.
objTextFrame := objDocument.createInstance("com.sun.star.text.TextFrame")

;'Create a Size struct.
objSize := createStruct("com.sun.star.awt.Size") ;'helper function, see below
objSize.Width := 15000
objSize.Height := 5000
;objTextFrame.setSize(objSize)

;' TextContentAnchorType.AS_CHARACTER = 1
objTextFrame.setPropertyValue("AnchorType", 1)

;'insert the frame
objText.insertTextContent(objCursor, objTextFrame, false)

;'Get the text object of the frame
objFrameText := objTextFrame.getText()

;'Create a cursor object
objFrameTextCursor := objFrameText.createTextCursor()

;'Inserting some Text
objFrameText.insertString(objFrameTextCursor, "The first line in the newly created text frame.", false)
objFrameText.insertString(objFrameTextCursor, "`nWith this second line the height of the frame raises.", false)

;'Create a paragraph break
;'The second argument is a com::sun::star::text::ControlCharacter::PARAGRAPH_BREAK constant
objFrameText.insertControlCharacter(objCursor, 0 , false)

;'Change the CharColor and add a Shadow
objCursor.setPropertyValue("CharColor", 65536)
;objCursor.setPropertyValue("CharShadowed", false)

;'Insert another string
objText.insertString(objCursor, " That's all for now !!", false)


insertIntoCell(strCellName, strText, objTable){
	objCellText := objTable.getCellByName(strCellName)
	objCellCursor := objCellText.createTextCursor()
	objCellCursor.setPropertyValue("CharColor", 16777215)
	objCellText.insertString(objCellCursor, strText, false)
}

createStruct(strTypeName){
	Global objCoreReflection
	classSize := objCoreReflection.forName(strTypeName)
	aStruct := ComObjArray(VT_VARIANT := 12, 2)
	classSize.createObject(aStruct)
	Return := aStruct
}