TOP > AFormAut > ExportAsHtml メソッド
説明
PDFファイルのフォームデータの情報のみを、URLエンコード形式で変換してファイル出力します。
注釈データは抽出しない。
下記のWEBブラウザのURLの？の後の引数の様な形式で、フィールド情報のみをファイルへ抽出します。
形式
void ExportAsHtml (
LPCTSTR bstrFullPath ,
LPCTSTR bstrSubmitButton ,
BOOL bEmptyFields ,
const VARIANT& arrFields ) ;
引数
- 第一引数 ( LPCTSTR bstrFullPath ) ：
作成するファイルのフルパス名。
但し、拡張子はなんでも良い。 .txt でも良い。
- 第二引数 ( LPCTSTR bstrSubmitButton ) ：
Button型の既存のフォームフィールドの名前。
省略（空文字）も可。
- 第三引数 ( BOOL bEmptyFields ) ：
True : 値の持たないフィールドもファイルの作成時に含める
False : 含めない
- 第四引数 ( const VARIANT& arrFields ) ：
ファイルに含めるフィールドの完全修飾名を表す文字列の配列。
この配列に、全ての子のフィールドがHTML ファイルに含まれるようにするには、
非終端フィールド「. ピリオド」の名前が含まれている必要が有ります。
オプションなので省略可能。 省略時は全てが対象になります。
例：サブツリー全体を簡単に書き出す方法が指定出来ます。
arrFields パラメータの一部として「name」を入れると、「name.title」、「name.first」、「name.middle」、「name.last」などのフィールドが書き出されます。
この場合「name-title」等は対象から外れます。
戻り値
- 無し。
動作するバージョン
| Adobe Acrobat | 結果 | 備考 |
|---|---|---|
| 4 | NO | Acrobat 4.0 ※Windows 98SE + Excel 2000 *1 ※古いPDFのバージョンはOK！ |
| 5 | NO | Acrobat 5.0.5 + Excel 2003 *1 ※古いPDFのバージョンはOK |
| 6 | NO | Acrobat 6.0.6 Pro + Excel 2003 *1 ※古いPDFのバージョンはOK |
| 7 | OK | Acrobat 7.1.4 Pro + Excel 2003 *2 ※レジストリ操作で全面的に可能になる |
| 8 | NO | Acrobat 8.3.1 Pro + Excel 2003 ※当Acrobatバージョンでは全面的に不可 |
| 9 | NO | Acrobat 9.5.5 Extended + Excel 2003 ※当Acrobatバージョンでは全面的に不可 |
| 10 | OK | Acrobat X (10.1.8) Extended + Excel 2003 |
| 11 | OK | Acrobat XI (11.0.5) Extended + Excel 2003 |
- OK ： 正常処理。
- NO ： 動作しない。 又は実行時にエラーになる。
- *1 ： 「PDF のバージョン」によっては正常処理出来ない場合がある。
- *2 : 処理前のレジストリに以下を追加する必要があります。
[HKEY_CURRENT_USER¥Software¥Adobe¥Adobe Acrobat¥7.0¥AVAlert]
[HKEY_CURRENT_USER¥Software¥Adobe¥Adobe Acrobat¥7.0¥AVAlert¥cCheckbox]
"idocNewerVersionWarning"=dword:00000001
サンプル：Excel のVBA
説明 ： PDFファイル上のフォームデータの情報のみを、URLエンコード形式で変換してファイル出力します。
- F8 キーでステップ実行しながら動作確認します。
- 事前に 参照設定(AFormAutの追加版) が必要です。
３つのフィールド名： [ Text1.name ] [ Text1email ] [ URL ] の
値 [ 1234 ] , [ AABB ] , [ 情報です ] をURLエンコード形式で変換して、ファイル出力します。
001 Option Explicit
002
003 Sub AFormAut_ExportAsHtml_test()
004
005 Dim arrFields(1) As String
006 Dim lRet As Long
007
008 Const CON_PDF_FILE = "D:¥work¥save_as_xml.pdf"
009 Const CON_FDF_FILE = "D:¥work¥save_as_xml.txt"
010
011 'Acrobatオブジェクトの定義＆作成
012 Dim objAcroApp As New Acrobat.AcroApp
013 Dim objAcroAVDoc As New Acrobat.AcroAVDoc
014
015 Dim objAFormApp As AFORMAUTLib.AFormApp
016 Dim objAFormFields As AFORMAUTLib.Fields
017
018 '※CreateObject("AFormAut.App")のエラー
019 '※[429 ActiveXコンポーネントはオブジェクトを作成できません。]
020 '※回避用 / メモリにAcrobatを強制ロードさせる
021 objAcroApp.CloseAllDocs
022
023 '*―――――――――――――――――――--
024 '* PDFファイルを開く
025
026 '処理対象のPDFファイルを開く
027 '※AVDocでOpenしないと"AFormAut.App"で実行エラー
028 lRet = objAcroAVDoc.Open(CON_PDF_FILE, "")
029 If lRet = 0 Then
030 MsgBox "AVDocオブジェクトはOpen出来ません" & vbCrLf & _
031 CON_PDF_FILE, vbOKOnly + vbCritical, "処理エラー"
032 GoTo Skip_AFormAut_ExportAsHtml_test:
033 End If
034
035 '*―――――――――――――――――――--
036 '* AFormオブジェクトの作成
037
038 Set objAFormApp = CreateObject("AFormAut.App")
039 Set objAFormFields = objAFormApp.Fields
040
041 '*―――――――――――――――――――--
042 '* FDFの作成
043
044 arrFields(0) = "Text1"
045 arrFields(1) = "Text2" '該当するフィールド無し
046
047 objAFormFields.ExportAsHtml CON_FDF_FILE, "", True, arrFields
048
049 Skip_AFormAut_ExportAsHtml_test:
050
051 '*―――――――――――――――――――--
052 '* 終了処理
053
054 '変更しないで閉じます
055 lRet = objAcroAVDoc.Close(1)
056
057 'Acrobatアプリケーションの終了
058 objAcroApp.Hide
059 objAcroApp.Exit
060
061 'オブジェクトの開放
062 Set objAFormFields = Nothing
063 Set objAFormApp = Nothing
064 Set objAcroAVDoc = Nothing
065 Set objAcroApp = Nothing
066
067 MsgBox "End Sub "
068
069 End Sub
Highlight：プログラミング言語のソースコードを構文で色分け (GUI編)
実行結果
1. Acrobat 7.1.4
- 第四引数の指定無し：
全てのフィールドが正常に正常に抽出される。
Text1.name=1234&Text1email=AABB&URL=%8f%ee%95%f1%82%c5%82%b7
- 第四引数の指定有り ( 配列 ： "Text1" ) ：
該当するフィール情報が正常に抽出される。
Text1.name=1234
2. Acrobat X (10.1.8)
Acrobat 7.1.4 と同じ。
3. Acrobat XI (11.0.5)
Acrobat 7.1.4 と同じ。
備考
- 注釈データは抽出されない。
Adobe Web 解説 URL(英語)
http://livedocs.adobe.com/acrobat_sdk/10/Acrobat10_HTMLHelp/wwhelp/wwhimpl/js/html/wwhelp.htm?href=IAC_API_FormsIntro.107.46.html&accessible=truehttp://partners.adobe.com/public/developer/en/acrobat/sdk/FormsAPIReference.pdf#nameddest=G14.1031426
＜ 戻る ＞