283 lines
9.4 KiB
Text
283 lines
9.4 KiB
Text
VERSION 5.00
|
|
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
|
|
Begin VB.Form Form1
|
|
BackColor = &H00FFFFFF&
|
|
BorderStyle = 1 'Fixed Single
|
|
Caption = "Outline Extraction"
|
|
ClientHeight = 8340
|
|
ClientLeft = 3990
|
|
ClientTop = 2430
|
|
ClientWidth = 9120
|
|
FillColor = &H00FFFFFF&
|
|
LinkTopic = "Form1"
|
|
MaxButton = 0 'False
|
|
MinButton = 0 'False
|
|
ScaleHeight = 8340
|
|
ScaleWidth = 9120
|
|
Begin VB.TextBox TextLogo
|
|
BackColor = &H006699FF&
|
|
BorderStyle = 0 'None
|
|
BeginProperty Font
|
|
Name = "Verdana"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
ForeColor = &H00FFFFFF&
|
|
Height = 375
|
|
Left = 1440
|
|
TabIndex = 14
|
|
Text = " 3-Heights PDF Extract Tool - Outline"
|
|
Top = 120
|
|
Width = 7575
|
|
End
|
|
Begin VB.Frame Frame2
|
|
BackColor = &H00E2D1AE&
|
|
BorderStyle = 0 'None
|
|
Height = 7770
|
|
Left = 0
|
|
TabIndex = 11
|
|
Top = 0
|
|
Width = 1335
|
|
Begin VB.Label Label1
|
|
BackColor = &H00D7B67A&
|
|
Caption = " OUTLINE"
|
|
BeginProperty Font
|
|
Name = "Verdana"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
ForeColor = &H00996600&
|
|
Height = 315
|
|
Left = 0
|
|
TabIndex = 13
|
|
Top = 1440
|
|
Width = 1335
|
|
End
|
|
Begin VB.Label Label10
|
|
BackColor = &H00D7B67A&
|
|
Caption = " PDF FILE"
|
|
BeginProperty Font
|
|
Name = "Verdana"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
ForeColor = &H00996600&
|
|
Height = 315
|
|
Left = 0
|
|
TabIndex = 12
|
|
Top = 840
|
|
Width = 1335
|
|
End
|
|
End
|
|
Begin VB.Frame Frame16
|
|
BackColor = &H00E2D1AE&
|
|
BorderStyle = 0 'None
|
|
Height = 255
|
|
Left = 0
|
|
TabIndex = 9
|
|
Top = 7800
|
|
Width = 9135
|
|
Begin VB.Label Label22
|
|
BackColor = &H00D7B67A&
|
|
BackStyle = 0 'Transparent
|
|
Caption = "Last update: November, 2005 - Copyright 2001-2005 PDF Tools AG"
|
|
BeginProperty Font
|
|
Name = "Verdana"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
ForeColor = &H00996600&
|
|
Height = 315
|
|
Left = 720
|
|
TabIndex = 10
|
|
Top = 0
|
|
Width = 7215
|
|
End
|
|
End
|
|
Begin VB.Frame Frame17
|
|
BackColor = &H00996600&
|
|
BorderStyle = 0 'None
|
|
Height = 45
|
|
Left = 0
|
|
TabIndex = 8
|
|
Top = 8040
|
|
Width = 9135
|
|
End
|
|
Begin VB.Frame Frame14
|
|
Appearance = 0 'Flat
|
|
BackColor = &H00996600&
|
|
BorderStyle = 0 'None
|
|
ForeColor = &H80000008&
|
|
Height = 540
|
|
Left = 1440
|
|
TabIndex = 4
|
|
Top = 720
|
|
Width = 7500
|
|
Begin VB.Frame Frame3
|
|
Appearance = 0 'Flat
|
|
BackColor = &H00FFFFFF&
|
|
BorderStyle = 0 'None
|
|
ForeColor = &H80000008&
|
|
Height = 500
|
|
Left = 20
|
|
TabIndex = 5
|
|
Top = 20
|
|
Width = 7460
|
|
Begin VB.TextBox txtInput
|
|
BeginProperty Font
|
|
Name = "Verdana"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 285
|
|
Left = 120
|
|
TabIndex = 7
|
|
Top = 120
|
|
Width = 6135
|
|
End
|
|
Begin VB.CommandButton OpenPDF
|
|
Caption = "Browse"
|
|
BeginProperty Font
|
|
Name = "Verdana"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 375
|
|
Left = 6360
|
|
TabIndex = 6
|
|
Top = 80
|
|
Width = 975
|
|
End
|
|
End
|
|
End
|
|
Begin VB.Frame Frame1
|
|
Appearance = 0 'Flat
|
|
BackColor = &H00996600&
|
|
BorderStyle = 0 'None
|
|
ForeColor = &H80000008&
|
|
Height = 6180
|
|
Left = 1440
|
|
TabIndex = 0
|
|
Top = 1320
|
|
Width = 7500
|
|
Begin VB.Frame Frame4
|
|
Appearance = 0 'Flat
|
|
BackColor = &H00FFFFFF&
|
|
BorderStyle = 0 'None
|
|
ForeColor = &H80000008&
|
|
Height = 6140
|
|
Left = 20
|
|
TabIndex = 1
|
|
Top = 20
|
|
Width = 7460
|
|
Begin VB.TextBox txtList
|
|
BeginProperty Font
|
|
Name = "Verdana"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 5925
|
|
Left = 120
|
|
MultiLine = -1 'True
|
|
ScrollBars = 2 'Vertical
|
|
TabIndex = 3
|
|
Top = 120
|
|
Width = 6135
|
|
End
|
|
Begin VB.CommandButton Extract
|
|
Caption = "List Outline"
|
|
Height = 495
|
|
Left = 6360
|
|
TabIndex = 2
|
|
Top = 120
|
|
Width = 975
|
|
End
|
|
End
|
|
End
|
|
Begin MSComDlg.CommonDialog fileDialog
|
|
Left = 8400
|
|
Top = 7440
|
|
_ExtentX = 847
|
|
_ExtentY = 847
|
|
_Version = 393216
|
|
End
|
|
End
|
|
Attribute VB_Name = "Form1"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = False
|
|
' List Outlines (Bookmarks)
|
|
' -------------------------
|
|
'
|
|
' Visual Basic 6 sample for the 3-Heights PDF Extract Tool API
|
|
' http://www.pdf-tools.com
|
|
'
|
|
' Copyright (C) 2005 PDF Tools AG, Switzerland
|
|
' Permission to use, copy, modify, and distribute this
|
|
' software and its documentation for any purpose and without
|
|
' fee is hereby granted, provided that the above copyright
|
|
' notice appear in all copies and that both that copyright
|
|
' notice and this permission notice appear in supporting
|
|
' documentation. This software is provided "as is" without
|
|
' express or implied warranty.
|
|
|
|
Private Sub Extract_Click()
|
|
|
|
Dim doc As New PDFPARSERLib.Document
|
|
Dim outline As PDFPARSERLib.OutlineItem
|
|
Dim blanks As String
|
|
|
|
If Not doc.Open(txtInput, "") Then
|
|
MsgBox "Could not open PDF file."
|
|
Exit Sub
|
|
End If
|
|
|
|
txtList.Text = ""
|
|
|
|
Set outline = doc.GetFirstOutlineItem
|
|
While Not outline Is Nothing
|
|
blanks = ""
|
|
For blank = 1 To doc.GetCurrentOutlineLevel
|
|
blanks = blanks & " "
|
|
Next blank
|
|
txtList.Text = txtList.Text & blanks & outline.Title & Chr(13) & Chr(10)
|
|
Set outline = doc.GetNextOutlineItem
|
|
Wend
|
|
|
|
End Sub
|
|
|
|
Private Sub OpenPDF_Click()
|
|
' Open File Dialog
|
|
fileDialog.FileName = txtInput
|
|
fileDialog.ShowOpen
|
|
txtInput = fileDialog.FileName
|
|
End Sub
|