create a new page, using OOoBasic/Writer/pagesettings as a template.
Front page
Search
掲示板
Reload
Help
Browse Log
掲示板の使い方
OOo 掲示板３
OOo 掲示板２
OOo 掲示板
掲示板
雑談掲示板
New
List of pages
Recent changes
Backup
簡単ヘルプ
整形ルール
Start:
*ページ設定 [#rddb0016]
Writer のページ設定には全てページスタイルが使用されます。...
そこで，マクロからページ設定を変更する際にはページスタイ...
ページスタイルも一つのコンテナオブジェクトにまとめて管理...
#contents
**ページスタイルコンテナオブジェクト [#edb254bd]
ドキュメント中のページスタイル全てを管理している，ページ...
Sub pagestylecontainer
Dim oDoc As Object, oStyleFamilies As Object
Dim oPageStyles As Object
oDoc = ThisComponent
oStyleFamilies = oDoc.StyleFamilies
oPageStyles = oStyleFamilies.getByName("PageStyles")
End Sub
***スタイル名 [#g9f0edf7]
ページスタイルコンテナオブジェクトにどのようなスタイルが...
Sub pagestylescontainer_elements
Dim oDoc As Object, oStyleFamilies As Object
Dim oPageStyles As Object
Dim aStyleNames() As String
Dim i As Integer
oDoc = ThisComponent
oStyleFamilies = oDoc.StyleFamilies
oPageStyles = oStyleFamilies.getByName("PageStyles")
aStyleNames() = oPageStyles.getElementNames()
For i = 0 To UBound(aStyleNames())
MsgBox aStyleNames(i)
Next i
End Sub
***スタイルの存在確認 [#zcc7cfd3]
ある名前のスタイルが存在するかどうかは ''hasByName'' メソ...
**ページスタイル [#n94446d7]
個別のページスタイルはページスタイルコンテナオブジェクト...
Sub pagestyle
Dim oDoc As Object, oStyleFamilies As Object
Dim oPageStyles As Object, oPageStyle As Object
oDoc = ThisComponent
oStyleFamilies = oDoc.StyleFamilies
oPageStyles = oStyleFamilies.getByName("PageStyles")
oPageStyle = oPageStyles.getByName("Standard")
MsgBox oPageStyle.Name
End Sub
ここで取得したスタイル "Standard" はどのドキュメントにも...
**ページを横向きにする [#k5160053]
ページを横向きにするのは分かりにくいですが、自分で縦と横...
With oPageStyle
nTemp = oPageStyle.Width
.Width = oPageStyle.Height
.Height = nTemp
.IsLandscape = True
End With
** 背景画像の埋め込み [#t6dcdee2]
URL でのみ指定できるように見えますが次のようにして埋め込...
Sub EmbedImageIntoPageBackground
sURL = "file:///home/asuka/Documents/images/logo.png"
sName = "Logo"
oDoc = ThisComponent
oBitmapTable = oDoc.createInstance("com.sun.star.drawin...
If NOT oBitmapTable.hasByName(sName) Then
oBitmapTable.insertByName(sName, sURL)
End If
sInternalURL = oBitmapTable.getByName(sName)
oStyleFamilies = oDoc.getStyleFamilies()
oStyleFamily = oStyleFamilies.getByName("PageStyles")
oStyle = oStyleFamily.getByName("Standard")
oStyle.BackGraphicURL = sInternalURL
End Sub
End:
*ページ設定 [#rddb0016]
Writer のページ設定には全てページスタイルが使用されます。...
そこで，マクロからページ設定を変更する際にはページスタイ...
ページスタイルも一つのコンテナオブジェクトにまとめて管理...
#contents
**ページスタイルコンテナオブジェクト [#edb254bd]
ドキュメント中のページスタイル全てを管理している，ページ...
Sub pagestylecontainer
Dim oDoc As Object, oStyleFamilies As Object
Dim oPageStyles As Object
oDoc = ThisComponent
oStyleFamilies = oDoc.StyleFamilies
oPageStyles = oStyleFamilies.getByName("PageStyles")
End Sub
***スタイル名 [#g9f0edf7]
ページスタイルコンテナオブジェクトにどのようなスタイルが...
Sub pagestylescontainer_elements
Dim oDoc As Object, oStyleFamilies As Object
Dim oPageStyles As Object
Dim aStyleNames() As String
Dim i As Integer
oDoc = ThisComponent
oStyleFamilies = oDoc.StyleFamilies
oPageStyles = oStyleFamilies.getByName("PageStyles")
aStyleNames() = oPageStyles.getElementNames()
For i = 0 To UBound(aStyleNames())
MsgBox aStyleNames(i)
Next i
End Sub
***スタイルの存在確認 [#zcc7cfd3]
ある名前のスタイルが存在するかどうかは ''hasByName'' メソ...
**ページスタイル [#n94446d7]
個別のページスタイルはページスタイルコンテナオブジェクト...
Sub pagestyle
Dim oDoc As Object, oStyleFamilies As Object
Dim oPageStyles As Object, oPageStyle As Object
oDoc = ThisComponent
oStyleFamilies = oDoc.StyleFamilies
oPageStyles = oStyleFamilies.getByName("PageStyles")
oPageStyle = oPageStyles.getByName("Standard")
MsgBox oPageStyle.Name
End Sub
ここで取得したスタイル "Standard" はどのドキュメントにも...
**ページを横向きにする [#k5160053]
ページを横向きにするのは分かりにくいですが、自分で縦と横...
With oPageStyle
nTemp = oPageStyle.Width
.Width = oPageStyle.Height
.Height = nTemp
.IsLandscape = True
End With
** 背景画像の埋め込み [#t6dcdee2]
URL でのみ指定できるように見えますが次のようにして埋め込...
Sub EmbedImageIntoPageBackground
sURL = "file:///home/asuka/Documents/images/logo.png"
sName = "Logo"
oDoc = ThisComponent
oBitmapTable = oDoc.createInstance("com.sun.star.drawin...
If NOT oBitmapTable.hasByName(sName) Then
oBitmapTable.insertByName(sName, sURL)
End If
sInternalURL = oBitmapTable.getByName(sName)
oStyleFamilies = oDoc.getStyleFamilies()
oStyleFamily = oStyleFamilies.getByName("PageStyles")
oStyle = oStyleFamily.getByName("Standard")
oStyle.BackGraphicURL = sInternalURL
End Sub
Page:
