| |
ＰＤＦで配布されているフォーマットにエクセルで整理したデータを差し込むのに初心者ながら挑戦していますが行き詰ってしまいました。
お聞きしたいのは２点。
１つめは文字列で入力した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「女」で入力、しこのデータをもとにラジオボタンを操作する方法がわかりません。また上記構文のどこに加えたらよいのかもご教授ねがえるとありがたいです。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
