質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.48%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

0回答

3306閲覧

Docuworks API でPDFをDocuworks文書に取込みたい

CHAKO55

総合スコア0

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2021/09/13 07:01

前提・実現したいこと

PDFファイルをAPI(XDW_CreateXdwFromImagePdfFile)を使用してDocuworks文書に取込みたいです。
VBAを使用して、XDWAPIを参照しながら試しておりますがうまくいきません。
ちなみに、PDFではなくJPEGファイルの取込み(XDW_CreateXdwFromImageFile)はあっさりとできました。SDKのXDWAPIによると、XDW_CreateXdwFromImagePdfFileには特にXDW_CREATE_OPTIONの指定がありません。事前に何かの情報が必要なのでしょうか。

該当のソースコード

VBA

1 Dim strFileName0 As String 2 Dim strFileName1 As String 3 Dim ret As long 4 5  Dim myCreateOption As XDW_CREATE_OPTION 6 With myCreateOption 7 .nFitImage = 1 8 .nCompress = 0 9 .nZoom = 0 10 .nWidth = 0 11 .nHeight = 0 12 .nHorPos = 0 13 .nVerPos = 0 14 .nSize = LenB(myCreateOption) 15 End With 16'XDW_CreateXdwFromImageFile は成功する(ret=0) 17 strFileName0 = "C:\ABC.jpg" 18 strFileName1 = "D:\ABC.xdw" 19 ret = XDW_CreateXdwFromImageFile(strFileName0, strFileName1, myCreateOption) 20 21'XDW_CreateXdwFromImagePdfFile は失敗する(ret=-2147024809 ⇒XDW_E_INVALIDARG(0x80070057)) 22 strFileName0 = "C:\DEF.pdf" 23 strFileName1 = "D:\DEF.xdw" 24 ret = XDW_CreateXdwFromImagePdfFile(strFileName0, strFileName1, vbNullString) 25 26'以下は定義です 27'Type XDW_CREATE_OPTION 28' nSize As Long '構造体のバイト数 29' nFitImage As Long 'ページサイズ 30' nCompress As Long 'カラーイメージの圧縮形式 31' nZoom As Long '倍率を指定 32' nWidth As Long 'nFitImageがXDW_CREATE_USERDEF/XDW_CREATE_USERDEF_FITのときにページの横幅を指定 33' nHeight As Long 'nFitImageがXDW_CREATE_USERDEF/XDW_CREATE_USERDEF_FITのときにページの高さを指定 34' nHorPos As Long 'nFitImageがXDW_CREATE_FIT以外のときに水平位置を指定 35' nVerPos As Long 'nFitImageがXDW_CREATE_FIT以外のときに垂直位置を指定 36'End Type 37 38'Declare PtrSafe Function XDW_CreateXdwFromImageFile Lib "xdwapi.dll" ( _ 39' ByVal lpszInputPath As String, _ 40' ByVal lpszOutputPath As String, _ 41' ByRef pOption As XDW_CREATE_OPTION) As Long 42 43'Declare PtrSafe Function XDW_CreateXdwFromImagePdfFile Lib "xdwapi.dll" ( _ 44' ByVal lpszInputPath As String, _ 45' ByVal lpszOutputPath As String, _ 46' ByRef reserved As String) As Long 47 48ソースコード

補足情報

Windows10
Excel 2008
Fuji Xerox DocuWorks Desk 9.0.5
DocuWorks Development Tool Kit 9

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

まだ回答がついていません

会員登録して回答してみよう

アカウントをお持ちの方は

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.48%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問