説明
入力ファイルのフォーム フィールドにデータを割り当てます。
注意 : この関数を使用する場合は、CopyForm より前に呼び出す必要があります。
戻り値の型
なし
構文
object.SetFormFieldData FieldName, FieldData, LeaveReadOnlyFlag
SetFormFieldData メソッドは次のパラメータから構成されています。
|
パラメータ |
値の型 |
説明 |
|
Object |
|
Toolkit オブジェクト |
|
FieldName |
String |
データを設定するフィールド名 |
|
FieldData |
String |
設定するデータ |
|
LeaveReadOnlyFlag |
Short |
1 = フィールドのすべての属性は変更不可、または "そのまま" |
|
|
|
0 = フィールドは "読み取り専用" |
|
|
|
Flags に関する詳細は次のセクションを参照してください |
Flags
Toolkit には、次のフラグがあります。
|
Toolkit Flag |
説明 |
|
-4096 |
すべてのフラグの値をリセット (0 に設定)。他のフラグと併用できます (関数が呼び出された行に対して処理します)。 |
|
-998 |
フィールドの単層化、およびフォント、色、および回転についての情報をフィールドのデフォルトにリセット (リセットする行の前に -998 を使用する必要があります) |
|
-997 |
フィールドの単層化。ただしフォント、色、および回転についての情報はリセットしない。 |
|
-996 |
フィールド データで指定する画像ファイルを使用して、フィールドを単層化。画像タイプは自動認識されます。 |
|
-995 |
フィールド データで指定する画像ファイルをJPEG として、フィールドを単層化 |
|
-994 |
フィールド データで指定する画像ファイルをTIFF として、フィールドを単層化 |
|
-64 |
フィールドは非表示および読み取り専用 |
|
-32 |
フィールドは印刷可、ただし非表示 |
|
-16 |
回転不可 |
|
-8 |
ズーム不可 |
|
-4 |
印刷可 |
|
-2 |
非表示 |
備考
Toolkit フラグは負の値にしてください (例 : fldFlags = fldFlags * -1)。フラグを切り替えるには "or" を使用します (例 : fldFlags = 64 or 2）。
同じ名前で複数のフィールドを定義する場合、フィールドには共通のデータが使用されますが、表示方法 (配置場所、フォント、位置合わせなど) は異なる可能性があります 。SetFormFieldData は個々の表示設定を順守しながらすべてのインスタンスにデータを設定します。データが一意フィールドに設定されているか確認する必要があります。印刷可能な文字を使用する場合は、テキストに改行を指定する Chr$(13) を使用できます。
チェック ボックス またはラジオ ボタン を設定する場合、"Exported Value" の値を渡す必要があります。ラジオボタンを設定する場合、グループ内のすべてのボタンには同じ名前を使用する必要があります。
例
strPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".") & "\"
'example 1
Set TK = CreateObject("APToolkit.Object")
r = TK.OpenOutputFile("Output.pdf")
r = TK.OpenInputFile("Input.pdf")
'sets the font to be used when
'SetFormFieldData flattens a field
TK.SetFlattenedFont "Helvetica", 15
'This Prevents overwriting of data by
'assigning unique form names
TK.FormNumbering = 1
'Let's Generate 10 pages from the Template
For i = 1 To 10
TK.SetFormFieldData "text1", "iPaper", -998 'flatten
TK.SetFormFieldData "image1", "MyJPEG.jpg" & i, -995
TK.SetFormFieldData "picture", "MEMORY", -995
'This copies the input to output
'and implements changes
r = TK.CopyForm(0, 0)
'Resets the form fields to be written in again
TK.ResetFormFields
Next
TK.CloseOutputFile
Set TK = Nothing
'example 2
TK.SetFormFieldData "x", "value", (128 Or 64) * -1
' Makes the field read only and visible
'example 3
TK.SetFormFieldData "x", "MyPDF.pdf", -993
'example 4
TK.SetFormFieldData "x", "MyPDF.pdf", -10993
'example 5
pdf.SetFormFieldData "DropTest", "ChoiceY" & Chr$(13) & _
"ChoiceX|My Only Choice" & Chr$(9) & "ChoiceY|This is another cool test", 0
' This example sets the value for DropTest to ChoiceY and _
adds the ChoiceX (exported value with "My Only Choice" as _
the displayed value) and ChoiceY (exported value with _
"This is another cool test" as the displayed value)