いつもお世話になっております。
今回はExcelVBAを使って、Word文書をPDF化することに対しての質問です。
本来、Word文書がもし空の文書だった場合でもPDF化されるのはWordのもともとの仕様だそうですが、
パスワードをつけた文書の場合はNGとしてエラー出力したいのです。
しかし、現在は空の文書で、かつ、パスワードがかかっているものでも文書が空のためかそのままPDF化されてしまいます。
そこで、空の文書の場合はPDF出力するけど、パスワードがかかっている&からの文書の場合はNGとしてエラー出力できるようにしたいのですが、何か良い方法はありますでしょうか?
是非とも知見をお借りできると嬉しいです。
VBA
1'略======================== 2 3 Case "doc", "docx", "docm" 'Word97-2003,Word2007以降 4 On Error GoTo 0 5 On Error GoTo myError3 6 Set objOffice = CreateObject("Word.Application") 7 On Error GoTo 0 8 On Error GoTo myError2 9 Debug.Print Path 10 With objOffice.Documents.Open(Path) 11 .ExportAsFixedFormat OutputFileName:=FilePath, _ 12 ExportFormat:=wdExportFormatPDF 13 .Close 14 End With 15 On Error GoTo 0 16 On Error GoTo myError 17 Call output_Result(Path, FilePath, strResult, wsResult, strErrMsg) 18 objOffice.Quit 19 20'略======================== 21 22myError: 23 'エラーメッセージ 24 MsgBox strWarningMsg3 & _ 25 vbCrLf & "エラー番号: " & Err.Number & _ 26 vbCrLf & "エラー内容: " & Err.Description 27 End 28myError2: 29 strResult = "NG" 30 strErrMsg = strErrMsg1 31 Resume Next 32myError3: 33 strResult = "NG" 34 strErrMsg = strErrMsg1 35 Call output_Result(Path, FilePath, strResult, wsResult, strErrMsg) 36 Exit Sub 37End Sub
以上のロジックのどこに何を加えればいいのかなど分かれば教えていただけますでしょうか?
よろしくお願いいたします。
回答1件
あなたの回答
tips
プレビュー