1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
|
' This file is part of the LibreOffice project.
'
' This Source Code Form is subject to the terms of the Mozilla Public
' License, v. 2.0. If a copy of the MPL was not distributed with this
' file, You can obtain one at http://mozilla.org/MPL/2.0/.
Imports System
Imports com.sun.star.awt
Imports com.sun.star.beans
Imports com.sun.star.bridge
Imports com.sun.star.container
Imports com.sun.star.drawing
Imports com.sun.star.frame
Imports com.sun.star.lang
Imports com.sun.star.text
Imports com.sun.star.table
Imports com.sun.star.uno
Module WriterDemo
Sub Main()
' Connect to a running office
Dim context As XComponentContext = NativeBootstrap.bootstrap()
' Create a service manager of the remote office
Dim factory As XMultiComponentFactory = context.getServiceManager()
' Create the Desktop
Dim desktop_ As XDesktop = Desktop.create(context)
' Open a new empty writer document
Dim componentLoader As XComponentLoader = desktop_.query(Of XComponentLoader)()
Dim component As XComponent = componentLoader.loadComponentFromURL(
"private:factory/swriter", "_blank", 0, Array.Empty(Of PropertyValue)())
Dim textDocument As XTextDocument = component.query(Of XTextDocument)()
' Create a text object
Dim text As XText = textDocument.getText()
Dim simpleText As XSimpleText = text.query(Of XSimpleText)()
' Create a cursor object
Dim cursor As XTextCursor = simpleText.createTextCursor()
' Inserting some Text
text.insertString(cursor, "The first line in the newly created text document." & vbLf, False)
' Create instance of a text table with 4 columns and 4 rows
Dim textTableI As IQueryInterface = textDocument.query(Of XMultiServiceFactory)().createInstance("com.sun.star.text.TextTable")
Dim textTable As XTextTable = textTableI.query(Of XTextTable)()
textTable.initialize(4, 4)
text.insertTextContent(cursor, textTable, False)
' Set the table background color
Dim tablePropertySet As XPropertySet = textTableI.query(Of XPropertySet)()
tablePropertySet.setPropertyValue("BackTransparent", New Any(False))
tablePropertySet.setPropertyValue("BackColor", New Any(&HCCCCFF))
' Get first row
Dim tableRows As XTableRows = textTable.getRows()
Dim rowAny As Any = tableRows.query(Of XIndexAccess)().getByIndex(0)
' Set a different background color for the first row
Dim firstRowPropertySet As XPropertySet = rowAny.cast(Of XPropertySet)()
firstRowPropertySet.setPropertyValue("BackTransparent", New Any(False))
firstRowPropertySet.setPropertyValue("BackColor", New Any(&H6666AA))
' Fill the first table row
InsertIntoCell("A1", "FirstColumn", textTable)
InsertIntoCell("B1", "SecondColumn", textTable)
InsertIntoCell("C1", "ThirdColumn", textTable)
InsertIntoCell("D1", "SUM", textTable)
' Fill the remaining rows
textTable.getCellByName("A2").setValue(22.5)
textTable.getCellByName("B2").setValue(5615.3)
textTable.getCellByName("C2").setValue(-2315.7)
textTable.getCellByName("D2").setFormula("sum <A2:C2>")
textTable.getCellByName("A3").setValue(21.5)
textTable.getCellByName("B3").setValue(615.3)
textTable.getCellByName("C3").setValue(-315.7)
textTable.getCellByName("D3").setFormula("sum <A3:C3>")
textTable.getCellByName("A4").setValue(121.5)
textTable.getCellByName("B4").setValue(-615.3)
textTable.getCellByName("C4").setValue(415.7)
textTable.getCellByName("D4").setFormula("sum <A4:C4>")
' Change the CharColor and add a Shadow
Dim cursorPropertySet As XPropertySet = cursor.query(Of XPropertySet)()
cursorPropertySet.setPropertyValue("CharColor", New Any(255))
cursorPropertySet.setPropertyValue("CharShadowed", New Any(True))
' Create a paragraph break
simpleText.insertControlCharacter(cursor, ControlCharacter.PARAGRAPH_BREAK, False)
' Inserting colored Text.
simpleText.insertString(cursor, " This is a colored Text - blue with shadow" & vbLf, False)
' Create a paragraph break
simpleText.insertControlCharacter(cursor, ControlCharacter.PARAGRAPH_BREAK, False)
' Create a TextFrame.
Dim textFrameI As IQueryInterface = textDocument.query(Of XMultiServiceFactory)().createInstance("com.sun.star.text.TextFrame")
Dim textFrame As XTextFrame = textFrameI.query(Of XTextFrame)()
' Set the size of the frame
Dim size As Size = New Size(15000, 400)
textFrame.query(Of XShape)().setSize(size)
' Set anchortype
Dim framePropertySet As XPropertySet = textFrame.query(Of XPropertySet)()
framePropertySet.setPropertyValue("AnchorType", New Any(TextContentAnchorType.AS_CHARACTER))
' Insert the frame
text.insertTextContent(cursor, textFrame, False)
' Get the text object of the frame
Dim frameText As XText = textFrame.getText()
Dim frameSimpleText As XSimpleText = frameText.query(Of XSimpleText)()
' Create a cursor object
Dim frameCursor As XTextCursor = frameSimpleText.createTextCursor()
' Inserting some Text
frameSimpleText.insertString(frameCursor, "The first line in the newly created text frame.", False)
frameSimpleText.insertString(frameCursor, vbLf & "With this second line the height of the frame raises.", False)
' Create a paragraph break
simpleText.insertControlCharacter(frameCursor, ControlCharacter.PARAGRAPH_BREAK, False)
' Change the CharColor and add a Shadow
cursorPropertySet.setPropertyValue("CharColor", New Any(65536))
cursorPropertySet.setPropertyValue("CharShadowed", New Any(False))
' Insert another string
text.insertString(cursor, vbLf & " That's all for now !!", False)
End Sub
Private Sub InsertIntoCell(cellName As String, text As String, textTable As XTextTable)
Dim cell As XCell = textTable.getCellByName(cellName)
Dim simpleText As XSimpleText = cell.query(Of XSimpleText)()
simpleText.setString(text)
End Sub
End Module
|
