{"id":6637,"date":"2016-02-03T10:30:28","date_gmt":"2016-02-03T01:30:28","guid":{"rendered":"http:\/\/www.ka-net.org\/blog\/?p=6637"},"modified":"2021-09-29T22:53:31","modified_gmt":"2021-09-29T13:53:31","slug":"pdf%e3%83%95%e3%82%a1%e3%82%a4%e3%83%ab%e4%b8%8a%e3%81%ae%e3%83%95%e3%82%a3%e3%83%bc%e3%83%ab%e3%83%89%e3%81%ae%e5%80%a4%e3%82%92%e6%93%8d%e4%bd%9c%e3%81%99%e3%82%8bvba%e3%83%9e%e3%82%af%e3%83%ad","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=6637","title":{"rendered":"PDF\u30d5\u30a1\u30a4\u30eb\u4e0a\u306e\u30d5\u30a3\u30fc\u30eb\u30c9\u306e\u5024\u3092\u64cd\u4f5c\u3059\u308bVBA\u30de\u30af\u30ed"},"content":{"rendered":"

\u300cPDF\u30d5\u30a1\u30a4\u30eb\u306b\u5dee\u3057\u8fbc\u307f\u5370\u5237\u3059\u308bVBA\u30de\u30af\u30ed<\/a>\u300d\u3067\u3001Acrobat\u3092\u64cd\u4f5c\u3057\u3066PDF\u4e0a\u306e\u30d5\u30a9\u30fc\u30e0\u306b\u30c7\u30fc\u30bf\u3092\u5dee\u3057\u8fbc\u3080\u30de\u30af\u30ed\u3092\u7d39\u4ecb\u3057\u3066\u3044\u308b\u306e\u3067\u3059\u304c\u3001\u201c\u30c1\u30a7\u30c3\u30af\u30dc\u30c3\u30af\u30b9\u306b\u30c1\u30a7\u30c3\u30af\u3092\u5165\u308c\u308b\u306b\u306f\u3069\u3046\u3057\u305f\u3089\u826f\u3044\u304b\uff1f\u201d<\/span>\u3001\u3068\u3044\u3046\u8cea\u554f\u304c\u3042\u308a\u307e\u3057\u305f\u3002<\/p>\n

\u7b54\u3048\u306f\u7c21\u5358\u3067\u3001getField<\/span>\u30e1\u30bd\u30c3\u30c9\u3067\u53d6\u5f97\u3057\u305f\u30d5\u30a3\u30fc\u30eb\u30c9\u306eValue\u30d7\u30ed\u30d1\u30c6\u30a3\u3067\u3001\u5404\u30d5\u30a3\u30fc\u30eb\u30c9\u306b\u8a2d\u5b9a\u3057\u3066\u3042\u308b\u4e0b\u56f3\u306e\u3088\u3046\u306a\u5024\u3092\u6307\u5b9a\u3059\u308c\u3070\u826f\u3044\u306e\u3067\u3059\u3002<\/p>\n

\"AcrobatFormInput_01\"<\/p>\n

\u4f8b\u3048\u3070\u4e0b\u56f3\u306e\u3088\u3046\u306aPDF\u30d5\u30a1\u30a4\u30eb\u306e\u30d5\u30a3\u30fc\u30eb\u30c9\u3092\u64cd\u4f5c\u3059\u308b\u5834\u5408\u306f\u3001\u4e0b\u8a18\u30b3\u30fc\u30c9\u306e\u3088\u3046\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n

\"AcrobatFormInput_02\"<\/p>\n

Option Explicit\r\n\r\nPublic Sub Sample()\r\n  Dim app As Object\r\n  Dim avdoc As Object\r\n  Const PDSaveFull = &H1\r\n  Const PdfFilePath As String = "C:\\Test\\Form.pdf" 'PDF\u30d5\u30a1\u30a4\u30eb\u306e\u30d1\u30b9\r\n  \r\n  Set app = CreateObject("AcroExch.App")\r\n  Set avdoc = CreateObject("AcroExch.AVDoc")\r\n  If avdoc.Open(PdfFilePath, "") = True Then\r\n    app.Show 'Acrobat\u8868\u793a\r\n    With avdoc.GetPDDoc.GetJSObject\r\n      .getField("fldName").Value = "\u6589\u85e4\u3000\u82b1\u5b50" '\u6c0f\u540d\r\n      .getField("fldGender").Value = "\u5973" '\u6027\u5225\r\n      .getField("fldAge").Value = "25" '\u5e74\u9f62\r\n      .getField("fldAddress").Value = "\u795e\u5948\u5ddd\u770c" '\u4f4f\u6240\r\n      .getField("fldBaseball").Value = "Off" '\u91ce\u7403\r\n      .getField("fldGolf").Value = "\u30b4\u30eb\u30d5" '\u30b4\u30eb\u30d5\r\n      .getField("fldGame").Value = "\u30b2\u30fc\u30e0" '\u30b2\u30fc\u30e0\r\n      .getField("fldBook").Value = "Off" '\u8aad\u66f8\r\n    End With\r\n    avdoc.GetPDDoc.Save PDSaveFull, "C:\\Test\\Form2.pdf" '\u5225\u540d\u4fdd\u5b58\r\n    avdoc.Close 1 '\u6587\u66f8\u3092\u4fdd\u5b58\u305b\u305a\u306b\u9589\u3058\u308b\r\n    app.Hide: app.Exit\r\n  End If\r\nEnd Sub<\/pre>\n
Acrobat\u3092\u8868\u793a\u3059\u308b\u5fc5\u8981\u304c\u7121\u3044\u5834\u5408\u306fCAcroPDDoc\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3060\u3051\u3067\u64cd\u4f5c\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u308b\u305f\u3081\u3001\u4e0b\u8a18\u306e\u3088\u3046\u306b\u77ed\u3044\u30b3\u30fc\u30c9\u3067\u51e6\u7406\u3067\u304d\u307e\u3059\u3002<\/p>\n
Public Sub Sample2()\r\n  Const PDSaveFull = &H1\r\n  Const PdfFilePath As String = "C:\\Test\\Form.pdf" 'PDF\u30d5\u30a1\u30a4\u30eb\u306e\u30d1\u30b9\r\n  \r\n  With CreateObject("AcroExch.PDDoc")\r\n    If .Open(PdfFilePath) = True Then\r\n      With .GetJSObject\r\n        .getField("fldName").Value = "\u4f50\u85e4\u3000\u306f\u3058\u3081" '\u6c0f\u540d\r\n        .getField("fldGender").Value = "\u7537" '\u6027\u5225\r\n        .getField("fldAge").Value = "28" '\u5e74\u9f62\r\n        .getField("fldAddress").Value = "\u57fc\u7389\u770c" '\u4f4f\u6240\r\n        .getField("fldBaseball").Value = "\u91ce\u7403" '\u91ce\u7403\r\n        .getField("fldGolf").Value = "Off" '\u30b4\u30eb\u30d5\r\n        .getField("fldGame").Value = "Off" '\u30b2\u30fc\u30e0\r\n        .getField("fldBook").Value = "\u8aad\u66f8" '\u8aad\u66f8\r\n      End With\r\n      .Save PDSaveFull, "C:\\Test\\Form2.pdf" '\u5225\u540d\u4fdd\u5b58\r\n      .Close\r\n    End If\r\n  End With\r\nEnd Sub<\/pre>\n
\n
\n