最北端で暮らすSEのknowhow

Dim styleFamilies As Object
Dim styles As Object
Dim style As Object
styleFamilies = ThisComponent.StyleFamilies
styles = styleFamilies.getByName("PageStyles")
style = styles.getByName("標準")
style.HeaderIsOn = false 'ヘッダーOFF
style.FooterIsOn = false 'フッターOFF
style.CenterHorizontally = true '横方向中央配置
style.Height = 25000 '用紙高さ250mm
style.Width = 17600 '用紙幅176mm
style.scaleToPages = 1 '1ページに収める

主なプロパティ

Dim document As Object
Dim dispatcher As Object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

Dim args(1) As new com.sun.star.beans.PropertyValue
args(0).Name = "Template"
args(0).Value = "標準"
args(1).Name = "Family"
args(1).Value = 8 'シートに適用する場合は8

dispatcher.executeDispatch(document, ".uno:StyleApply", "", 0, args())

コピー先ドキュメントを指定する場合は args(0).Value の箇所にTitleを指定する。TitleはgetArgs()メソッドで取得できる配列から取得する。※ドキュメントのウインドウタイトルとは異なるので注意

Dim newSheetName As String
newSheetName = "コピー先"
ThisComponent.Sheets.copyByName("コピー元シート名", newSheetName, 0)
ThisComponent.CurrentController.Select(ThisComponent.Sheets.getByName(newSheetName))
Dim document as Object
Dim dispatcher as Object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
Dim args(2) as new com.sun.star.beans.PropertyValue
args(0).Name = "DocName"
args(0).Value = ""
args(1).Name = "Index"
args(1).Value = 32767
args(2).Name = "Copy"
args(2).Value = false
dispatcher.executeDispatch(document, ".uno:Move", "", 0, args())

Dim title As String
Dim args As Object
args = ThisComponent.getArgs()
For i = 0 To Ubound(args)
    If args(i).Name = "Title" Then
        title = args(i).Value
        Exit For
    End if
Next i
MsgBox(title)

dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(ThisComponent.CurrentController.Frame, ".uno:JumpToNextUnprotected", "", 0, Array())

sheetSettings =CreateUnoService("com.sun.star.sheet.GlobalSheetSettings")
sheetSettings.MoveDirection = com.sun.star.sheet.MoveDirection.RIGHT

sheetSettings =CreateUnoService("com.sun.star.sheet.GlobalSheetSettings")
sheetSettings.MoveDirection = com.sun.star.sheet.MoveDirection.RIGHT

Dim document As Object

document = StarDesktop.loadComponentFromURL("private:factory/scalc", "_blank", 0, Array())
'document = StarDesktop.loadComponentFromURL(ConvertToUrl("C:\Users\hiro\Desktop\test.ods"), "_blank", 0, Array())

Dim sheet As Object
sheet = document.CurrentController.ActiveSheet
sheet.getCellByPosition(4, 4).setValue 2

document.storeAsURL(ConvertToUrl("C:\Users\user\Desktop\test.ods"), Array())

document.dispose