Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

813 / 76735

←次へ　｜　前へ→


	【81584】PDFへのデータ差し込み

junhoshi - 20/12/29(火) 17:23 -


	引用なし

	パスワード

ＰＤＦで配布されているフォーマットにエクセルで整理したデータを差し込むのに初心者ながら挑戦していますが行き詰ってしまいました。

お聞きしたいのは２点。

１つめは文字列で入力した001から始まる数字３桁の差し込み。
サイトで下記の構文をみつけ「text」フィールドに差し込むと１行目は「001」になるのですが２行目以降は頭の「00」または「0」が省略され結果は「2」または「10」のようになってしまいます。

Public Sub Sample2()
　Dim app As Object
　Dim avdoc As Object
　Dim pddoc As Object
　Dim i As Long
　Const PDSaveFull = 1
　Const PdfFilePath As String = "C:\Files\template.pdf" 'PDFファイルのパス
　
　Set app = CreateObject("AcroExch.App")
　Set avdoc = CreateObject("AcroExch.AVDoc")
　If avdoc.Open(PdfFilePath, "") = True Then
　　app.Show 'Acrobat表示
　　Set pddoc = avdoc.GetPDDoc
　　With pddoc.GetJSObject
　　　For i = 2 To ActiveSheet.Range("A1").End(xlDown).Row
　　　　.getField("text").Value = CStr(ActiveSheet.Cells(i, 1).Value)
　　　　pddoc.Save PDSaveFull, "C:\Files\MyPDF_" & i - 1 & ".pdf" 'PDFファイルを別名保存
　　　Next
　　End With
　　avdoc.Close 1 '文書を保存せずに閉じる
　　app.Hide: app.Exit
　End If
End Sub

２つめは上記の構文に性別を選択するラジオボタンを操作する処理を加えたいです。

With avdoc.GetPDDoc.GetJSObject
　　　.getField("Radio Button1").Value = "女" '性別

　　End With

これを上記の構文に加え、女のラジオボタンを操作することはできたのですが、エクセルの２列目に性別を「男」or「女」で入力、しこのデータをもとにラジオボタンを操作する方法がわかりません。また上記構文のどこに加えたらよいのかもご教授ねがえるとありがたいです。

1 hits

▼

【81584】PDFへのデータ差し込み junhoshi 20/12/29(火) 17:23