VBからPDF内容を変更し別名保存する ― 2008年01月28日 15時11分16秒
Public Sub ClearPDFForm()
Const PDF_DIRECTORY = "C:\test\"
Const FName As String = PDF_DIRECTORY & "InputData.pdf"
Dim AVDoc As Acrobat.CAcroAVDoc
Dim PDDoc As Acrobat.CAcroPDDoc
Dim ADBForm As New AFORMAUTLib.AFormApp
Dim i As AFORMAUTLib.Field
Dim R1 As Long
Set AVDoc = CreateObject("AcroExch.AVDoc")
' PDFファイルを開く
R1 = AVDoc.Open(FName, "")
If Not CBool(R1) Then
MsgBox "Openに失敗したため処理を中止します。"
Exit Sub
End If
' フォームの値をクリアする
For Each i In ADBForm.Fields
If i.Type = "checkbox" Then
i.Value = "いいえ"
ElseIf i.Type = "text" Then
i.Value = "Test"
If InStr(i.Name, "T_Koumoku1") > 0 Then
i.Value = "Cust"
ElseIf InStr(i.Name, "T_Koumoku2") > 0 Then
i.Value = "Name"
End If
End If
Next i
' PDFファイルを保存する
Set PDDoc = AVDoc.GetPDDoc()
ADBForm.Fields("form1[0].Page1[0].T_Koumoku1[0]").Value = "1"
PDDoc.Save PDSaveFull Or PDSaveLinearized Or PDSaveCollectGarbage, PDF_DIRECTORY & "OutputData-1.pdf"
ADBForm.Fields("form1[0].Page1[0].T_Koumoku2[0]").Value = "2"
PDDoc.Save PDSaveFull Or PDSaveLinearized Or PDSaveCollectGarbage, PDF_DIRECTORY & "OutputData-2.pdf"
' PDFファイルを閉じる
AVDoc.Close CLng(True)
End Sub
LiveCycle Designer ですべての注釈を削除する ― 2007年12月28日 15時38分20秒
//すべての注釈を削除する
var myDoc = event.target; /*Acrobat Javascriptを使用する*/
for (var p = 0; p < myDoc.numPages; p++){
var annots = myDoc.getAnnots({ nPage:p, nSortBy: ANSB_Author, bReverse: true });
try{
for (var i = 0; i < annots.length; i++){
annots[i].destroy();
}
}catch(e){
}
}
var myDoc = event.target; /*Acrobat Javascriptを使用する*/
for (var p = 0; p < myDoc.numPages; p++){
var annots = myDoc.getAnnots({ nPage:p, nSortBy: ANSB_Author, bReverse: true });
try{
for (var i = 0; i < annots.length; i++){
annots[i].destroy();
}
}catch(e){
}
}
バッチファイル ― 2007年10月27日 19時50分45秒
個別作成のバッチシーケンスは
\Documents and Settings\ユーザー名 \Application Data\Adobe\Acrobat\8.0\Sequences
に登録される。
ファイルなので別のAcrobatにセットするとそのまま使える。
ADBC接続のレジストリ追加 ― 2007年10月15日 20時13分19秒
ＡＤＢＣ接続で接続できないときは確認する。（ＷｉｎｓｏｗｓＸＰ）
reg add “HKEY_CURRENT_USER\SOFTWARE
\Adobe\Adobe Acrobat\8.0\ADBC”
/v bJSEnable /t REG_DWORD /d 1
reg add “HKEY_CURRENT_USER\SOFTWARE
\Adobe\Adobe Acrobat\8.0\ADBC”
/v bJSEnable /t REG_DWORD /d 1
gotoURL、launchURL ― 2007年09月12日 22時27分38秒
if (FieldName.rawValue ==null){
xfa.host.gotoURL("http://www.yahoo.co.jp",0);
app.launchURL("http://www.yahoo.co.jp",0);
} else {
app.launchURL("http://www.yahoo.co.jp/" + FieldName.rawValue + ".htm",0);
xfa.host.gotoURL("http://www.yahoo.co.jp/" + FieldName.rawValue + ".htm",0);
}
最近のコメント