回答編集履歴
3
Sharedのプロパティーの使い方が中途半端だったので正しくしました。
test
CHANGED
|
@@ -6,8 +6,10 @@
|
|
|
6
6
|
|
|
7
7
|
oPageStyle=ThisComponent.StyleFamilies.getByName("PageStyles").getByName("Default")
|
|
8
8
|
oPageStyle.HeaderIsOn = True ' ヘッダーを付ける
|
|
9
|
-
oPageStyle.HeaderIsShared=True ' 左右のページで同じ内容
|
|
9
|
+
oPageStyle.HeaderIsShared=True ' 左右のページで同じ内容（ヘッダー）
|
|
10
|
-
oPageStyle.FirstPageHeaderIsShared=True ' 最初のページと同じ内容
|
|
10
|
+
oPageStyle.FirstPageHeaderIsShared=True ' 最初のページと同じ内容（ヘッダー）
|
|
11
|
+
oPageStyle.FooterIsShared=True ' 左右のページで同じ内容（フッター）
|
|
12
|
+
oPageStyle.FirstPageFooterIsShared=True ' 最初のページと同じ内容（フッター）
|
|
11
13
|
|
|
12
14
|
oHc=oPageStyle.RightPageHeaderContent
|
|
13
15
|
oHc.LeftText.String="上左"
|
|
@@ -24,11 +26,10 @@
|
|
|
24
26
|
end Sub
|
|
25
27
|
```
|
|
26
28
|
|
|
27
|
-
最初のページとか、左右で分ける場合は、FirstPageHeaderIsSharedとHeaderIsSharedで
|
|
29
|
+
最初のページとか、左右で分ける場合は、FirstPageHeaderIsSharedとHeaderIsSharedでヘッダー、
|
|
30
|
+
FirstPageFooterIsSharedとFooterIsSharedでフッターを制御して
|
|
28
31
|
FirstPageHeaderContent、FirstPageFooterContent
|
|
29
32
|
及び
|
|
30
33
|
LeftPageHeaderContent、LeftPageFooterContent
|
|
31
|
-
で、
|
|
34
|
+
で、設定する感じのようです。
|
|
32
35
|
|
|
33
|
-
|
|
34
|
-
|
2
最初のページとか、左右で分ける場合についての制御方法追記
test
CHANGED
|
@@ -1,29 +1,34 @@
|
|
|
1
|
-
まだまだ私もわからないことだらけですが。
|
|
2
|
-
|
|
3
|
-
|
|
4
1
|
```BASIC
|
|
5
2
|
Sub test()
|
|
6
3
|
Dim oPageStyle as Object
|
|
7
4
|
Dim oHC as Object
|
|
8
5
|
Dim oFC as Object
|
|
9
6
|
|
|
10
|
-
|
|
7
|
+
oPageStyle=ThisComponent.StyleFamilies.getByName("PageStyles").getByName("Default")
|
|
11
|
-
|
|
8
|
+
oPageStyle.HeaderIsOn = True ' ヘッダーを付ける
|
|
9
|
+
oPageStyle.HeaderIsShared=True ' 左右のページで同じ内容
|
|
10
|
+
oPageStyle.FirstPageHeaderIsShared=True ' 最初のページと同じ内容
|
|
11
|
+
|
|
12
|
+
oHc=oPageStyle.RightPageHeaderContent
|
|
13
|
+
oHc.LeftText.String="上左"
|
|
14
|
+
oHc.CenterText.String="上中"
|
|
15
|
+
oHc.RightText.String="上右"
|
|
16
|
+
oPageStyle.RightPageHeaderContent=oHc
|
|
17
|
+
|
|
18
|
+
oFC=oPageStyle.RightPageFooterContent
|
|
19
|
+
oFC.LeftText.String="下左"
|
|
20
|
+
oFC.CenterText.String="下中"
|
|
21
|
+
oFC.RightText.String="下右"
|
|
22
|
+
oPageStyle.RightPageFooterContent=oFC
|
|
12
23
|
|
|
13
|
-
oHc=oPageStyle.RightPageHeaderContent
|
|
14
|
-
oHc.LeftText.String="上左"
|
|
15
|
-
oHc.CenterText.String="上中"
|
|
16
|
-
oHc.RightText.String="上右"
|
|
17
|
-
oPageStyle.RightPageHeaderContent=oHc
|
|
18
|
-
|
|
19
|
-
oFC=oPageStyle.RightPageFooterContent
|
|
20
|
-
oFC.LeftText.String="下左"
|
|
21
|
-
oFC.CenterText.String="下中"
|
|
22
|
-
oFC.RightText.String="下右"
|
|
23
|
-
oPageStyle.RightPageFooterContent=oFC
|
|
24
|
-
|
|
25
|
-
end Sub
|
|
24
|
+
end Sub
|
|
26
25
|
```
|
|
27
26
|
|
|
27
|
+
最初のページとか、左右で分ける場合は、FirstPageHeaderIsSharedとHeaderIsSharedで制御して
|
|
28
|
+
FirstPageHeaderContent、FirstPageFooterContent
|
|
29
|
+
及び
|
|
28
|
-
|
|
30
|
+
LeftPageHeaderContent、LeftPageFooterContent
|
|
31
|
+
で、制御する感じのようです。
|
|
29
32
|
|
|
33
|
+
|
|
34
|
+
|
1
変数名おかしかったので修正
test
CHANGED
|
@@ -3,9 +3,10 @@
|
|
|
3
3
|
|
|
4
4
|
```BASIC
|
|
5
5
|
Sub test()
|
|
6
|
-
Dim oDoc as Object
|
|
7
6
|
Dim oPageStyle as Object
|
|
8
|
-
|
|
7
|
+
Dim oHC as Object
|
|
8
|
+
Dim oFC as Object
|
|
9
|
+
|
|
9
10
|
oPageStyle=ThisComponent.StyleFamilies.getByName("PageStyles").getByName("Default")
|
|
10
11
|
oPageStyle.HeaderIsOn = True
|
|
11
12
|
|
|
@@ -15,13 +16,13 @@
|
|
|
15
16
|
oHc.RightText.String="上右"
|
|
16
17
|
oPageStyle.RightPageHeaderContent=oHc
|
|
17
18
|
|
|
18
|
-
o
|
|
19
|
+
oFC=oPageStyle.RightPageFooterContent
|
|
19
|
-
o
|
|
20
|
+
oFC.LeftText.String="下左"
|
|
20
|
-
o
|
|
21
|
+
oFC.CenterText.String="下中"
|
|
21
|
-
o
|
|
22
|
+
oFC.RightText.String="下右"
|
|
22
|
-
oPageStyle.RightPageFooterContent=o
|
|
23
|
+
oPageStyle.RightPageFooterContent=oFC
|
|
23
24
|
|
|
24
|
-
end Sub
|
|
25
|
+
end Sub
|
|
25
26
|
```
|
|
26
27
|
|
|
27
28
|
「左右のページで同じ内容」になっていれば、これで全部のページに設定されると思います
|