終了

ドロップダウンリストの取込について

New Here ,
Feb 09, 2022 Feb 09, 2022

リンクをクリップボードにコピー

コピー完了

excelシートに入力された部署名をacrobatフォームのドロップダウンのプロパティに取り込む方法を教えてください。

よろしくお願いします。

 

※Acrobat (us) から Acrobatフォーラム (jp) に移動しました。[moderator]

キーワード
PDF forms

表示

175

翻訳

翻訳

レポート

レポート
コミュニティガイドライン
他のユーザーへの思いやりを持ち、敬意を払いましょう。コンテンツの出典を明記し、投稿する前に内容が重複していないか検索してください。 さらに詳しく
community guidelines
参加者 ,
Jun 22, 2022 Jun 22, 2022

リンクをクリップボードにコピー

コピー完了

最新

以下の内容を共に、Excel VBAを書いてみました。

 

https://community.adobe.com/t5/acrobat-sdk-discussions/vba-acrobat-dc-pro-aformaut-populatelistorcom...

 

ExcelのA列の内容を、PDF上のドロップダウン:Dropdown1のリストに設定します。

 

Sub ItemSet_Click()
    Dim szPdf As Variant
    Dim szTitle As String
    Dim szField As Variant
    Dim objFSO As Object
    Dim objAVDoc As Object
    Dim objPDDoc As Object
    Dim lRet As Long
    Dim objAFormApp As Object
    Dim szJava As String
    Dim itemVal As Variant
    Dim objAcroApp As Object
    
    
    ' PDFパス
    szPdf = "C:\Work\Acrobatフォーム確認.pdf"
    ' フィールド名
    szField = "Dropdown1"
    
    ' FileSystemObject
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    ' Title
    szTitle = objFSO.GetFileName(szPdf)
    ' AVDoc
    Set objAVDoc = CreateObject("AcroExch.AVDoc")
    lRet = objAVDoc.Open(szPdf, szTitle)
    If lRet = True Then
        ' Form
        Set objAFormApp = CreateObject("AFormAut.App")
        
        ' Java script文字列作成
        szJava = "getField('"
        szJava = szJava & szField
        szJava = szJava & "').setItems(["
        
        ' A列の内容を取得:最大100行まで
        For lItem = 1 To 100
            itemVal = Cells(lItem, 1).Value
            If IsEmpty(itemVal) = True Then
                Exit For
            End If
            If lItem <> 1 Then
                szJava = szJava & ","
            End If
            szJava = szJava & "['"
            szJava = szJava & itemVal
            szJava = szJava & "','"
            szJava = szJava & lItem
            szJava = szJava & "']"
        Next lItem
        szJava = szJava & "])"
        
        ' コンボボックスリスト設定
        objAFormApp.Fields.ExecuteThisJavascript szJava
        
        Set objAFormApp = Nothing
        
        ' Acrobat表示
        Set objAcroApp = CreateObject("AcroExch.App")
        objAcroApp.Show
        Set objAcroApp = Nothing
    End If
    Set objAVDoc = Nothing
    Set objFSO = Nothing
End Sub

 

 

投票

翻訳

翻訳

レポート

レポート
コミュニティガイドライン
他のユーザーへの思いやりを持ち、敬意を払いましょう。コンテンツの出典を明記し、投稿する前に内容が重複していないか検索してください。 さらに詳しく
community guidelines