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
|
#!/usr/bin/perl
# writer-example4 - Creates a sxw Writer document with page breaks and colored text
use ooolib;
# Set variables
$doc = new ooolib("sxw");
$doc->oooSet("builddir", ".");
$doc->oooSet("title", "Writer Styles");
$doc->oooSet("subject", "Writer Examples");
$doc->oooSet("comments", "Page breaks and colored text.");
$doc->oooSet("author", "ooolib examples");
$doc->oooSet("text-color", "blue");
$doc->oooData("default", "blue text");
$doc->oooSet("text-color", "red");
$doc->oooData("default", "red text");
$doc->oooSet("text-color", "green");
$doc->oooData("default", "green text");
$doc->oooSet("text-color", "default");
$doc->oooData("default", "Be prepared for visual pain.");
$doc->oooSpecial("pagebreak");
$doc->oooSet("text-bgcolor", "red");
$doc->oooSet("text-color", "blue");
$doc->oooData("default", "blue on red text");
$doc->oooSet("text-bgcolor", "green");
$doc->oooSet("text-color", "red");
$doc->oooData("default", "red on green text");
$doc->oooSet("text-bgcolor", "blue");
$doc->oooSet("text-color", "green");
$doc->oooData("default", "green on blue text");
my($filename) = $doc->oooGenerate("writer-example4.sxw");
exit;
|
