Although glossary is not supported directly in Aspose.Pdf for .Net, it is possible to create glossary using the #$REFPAGE symbol. Here is an example:
[c#]
//create Pdf and set license
Pdf pdf = new Pdf();
Aspose.Pdf.License lic = new Aspose.Pdf.License();
lic.SetLicense(@”D:\CSharp\Test\License\Aspose.Custom.lic.xml”);
pdf.IsTruetypeFontMapCached = true;
pdf.TruetypeFontMapPath = @”d:\test”;
//create new section
Section sec1 = pdf.Sections.Add();
//create tables and add data
Table table1 = new Table();
table1.ColumnWidths = “200 100″;
sec1.Paragraphs.Add(table1);
Row row1 = table1.Rows.Add();
Cell cell1 = row1.Cells.Add();
Heading heading1 = new Heading(pdf,sec1,1);
heading1.Segments.Add(“KeyWord1: this is key word 1″);
heading1.ID = “KeyWord1″;
cell1.Paragraphs.Add(heading1);
Cell cell2 = row1.Cells.Add(“cell 2″);
//create another table
table1 = new Table();
table1.ColumnWidths = “200 100″;
table1.IsFirstParagraph = true;
sec1.Paragraphs.Add(table1);
row1 = table1.Rows.Add();
cell1 = row1.Cells.Add();
heading1 = new Heading(pdf,sec1,1);
heading1.Segments.Add(“KeyWord2: this is key word 2″);
heading1.ID = “KeyWord2″;
cell1.Paragraphs.Add(heading1);
cell2 = row1.Cells.Add(“cell 2″);
//add glossary
Text glossary = new Text(“Glossary”);
glossary.IsFirstParagraph = true;
glossary.TextInfo.FontSize = 20;
glossary.TextInfo.Alignment = AlignmentType.Center;
sec1.Paragraphs.Add(glossary);
Text item1 = new Text(“KeyWord1#$TAB#$REFPAGE(KeyWord1)”);
item1.TabStops = new TabStops();
TabStop stop1 = item1.TabStops.Add(380,TabLeaderType.Dot);
sec1.Paragraphs.Add(item1);
Text item2 = new Text(“KeyWord2#$TAB#$REFPAGE(KeyWord2)”);
item2.TabStops = new TabStops();
TabStop stop2 = item2.TabStops.Add(380,TabLeaderType.Dot);
sec1.Paragraphs.Add(item2);
pdf.Save(“d:/test/test.pdf”);
[VB.NET]
‘create Pdf and set license
Dim pdf As Pdf = New Pdf
Dim lic As Aspose.Pdf.License = New Aspose.Pdf.License
lic.SetLicense(“D:\CSharp\Test\License\Aspose.Custom.lic.xml”)
pdf.IsTruetypeFontMapCached = True
pdf.TruetypeFontMapPath = “d:\test”
‘create new section
Dim sec1 As Section = pdf.Sections.Add()
‘create tables and add data
Dim table1 As Table = New Table
table1.ColumnWidths = “200 100″
sec1.Paragraphs.Add(table1)
Dim row1 As Row = table1.Rows.Add()
Dim cell1 As Cell = row1.Cells.Add()
Dim heading1 As Heading = New Heading(pdf, sec1, 1)
heading1.Segments.Add(“KeyWord1: this is key word 1″)
heading1.ID = “KeyWord1″
cell1.Paragraphs.Add(heading1)
Dim cell2 As Cell = row1.Cells.Add(“cell 2″)
‘create another table
table1 = New Table
table1.ColumnWidths = “200 100″
table1.IsFirstParagraph = True
sec1.Paragraphs.Add(table1)
row1 = table1.Rows.Add()
cell1 = row1.Cells.Add()
heading1 = New Heading(pdf, sec1, 1)
heading1.Segments.Add(“KeyWord2: this is key word 2″)
heading1.ID = “KeyWord2″
cell1.Paragraphs.Add(heading1)
cell2 = row1.Cells.Add(“cell 2″)
‘add glossary
Dim glossary As Text = New Text(“Glossary”)
glossary.IsFirstParagraph = True
glossary.TextInfo.FontSize = 20
glossary.TextInfo.Alignment = AlignmentType.Center
sec1.Paragraphs.Add(glossary)
Dim item1 As Text = New Text(“KeyWord1#$TAB#$REFPAGE(KeyWord1)”)
item1.TabStops = New TabStops
Dim stop1 As TabStop = item1.TabStops.Add(380, TabLeaderType.Dot)
sec1.Paragraphs.Add(item1)
Dim item2 As Text = New Text(“KeyWord2#$TAB#$REFPAGE(KeyWord2)”)
item2.TabStops = New TabStops
Dim stop2 As TabStop = item2.TabStops.Add(380, TabLeaderType.Dot)
sec1.Paragraphs.Add(item2)
pdf.Save(“d:/test/test.pdf”)
No related posts.
