説明
指定したページから注釈を書き出します。注釈は文字列として返されます。
戻り値の型
String
|
説明 |
|
注釈のデータを含む XML 文字列。AddComment メソッドと併用できます。 |
構文
value = object.ExportComments PgNum
ExportComments メソッドは次のパラメータから構成されています。
|
パラメータ |
値の型 |
説明 |
|
PgNum |
Long |
書き出す注釈のページ数。 0 を設定すると、すべてのページの注釈を返します。 |
備考
すべてのページの注釈を返すために 0 を指定した場合は、単一の文字列として取得します。注釈にページ番号が必要な場合、次の例に示す処理を行ないます。
例
strPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".") & "\"
Set TK = CreateObject("APToolkit.Object")
numPgs = TK.Numpages("output.pdf")
Dim filesys, testfile
Set filesys = CreateObject("Scripting.FileSystemObject")
Set testfile= filesys.CreateTextFile(strPath & "comments.txt", True)
For I = 1 to numPgs
r = TK.ExportComments(I)
testfile.WriteLine "Comments From Page " & I
testfile.WriteLine ""
testfile.WriteLine r
testfile.WriteLine ""
Next
testfile.Close
TK.CloseInputFile
Set TK = Nothing