CountFormFields

説明

現在開いている入力ファイルのフォーム フィールドの数を返します。

戻り値の型

Short

構文

value = object.CountFormFields

CountFormFields メソッドは次のパラメータから構成されています。

例

strPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".") & "\"

Set TK = CreateObject("APToolkit.Object")

r = TK.OpenOutputFile("Output.pdf")

r = TK.OpenInputFile("Input.pdf")

For i = 1 To TK.CountFormFields

intData = TK.GetFormFieldData(i)

TK.SetHeaderFont "Courier", 15

TK.SetHeaderText 50, i * 15, intData

Next

r = TK.CopyForm(0, 0)

TK.CloseOutputFile

Set TK = Nothing