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

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

ただいまの
回答率

91.35%

  • VBA

    1124questions

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

  • VBScript

    154questions

    VBScript(Visual Basic Scripting Edition)はMicrosftが開発したスクリプト言語であり、Visual Basicのサブセットです。

  • Word

    45questions

    Microsoft WordはMicrosoftが開発した業務用の文書生成用のソフトウェアです。

wordファイルをPDF化しパスワードをかけたい

解決済

回答 2

投稿 2017/12/05 17:55

  • 評価
  • クリップ 0
  • VIEW 86

manataku

score 15

フォルダの中にwordファイルが複数あります。
このファイルをPDF化しパスワードをかけて保存するvbsを作成したいのですが、
パスワードをかける処理が分からずアドバイス頂けないでしょうか。

ファイル名の一部をパスワードとして使用します。
フォルダ名:wordtoPDF
ファイル名:[日本語][パスワード].pdf

参考にしたサイト
https://digitanu.com/71

savas実行時にファイル名の一部をパスワードとして指定できるようにしたいのですが、
調べる限りここでパスワードを付けて保存はできないことまでは分かりましたが、
他に方法がないか探しております。

Dim FS, objWord, objDoc, objArgs, FileName, FolderName
'実行時の引数を取得
Set objArgs = WScript.Arguments
If objArgs.Count=0 Then
MsgBox "Wordファイルをドラッグしてください。"
WScript.Quit
End If
Set FS = CreateObject("Scripting.FileSystemObject")
Set objWord = CreateObject("Word.Application")
objWord.Visible = false
j = 0
For Each FileName In objArgs
FolderName = FS.GetParentFolderName(FileName)
Select Case LCase(FS.GetExtensionName(FileName))
 '拡張子がdoc, docxの時だけ処理
Case "doc","docx"
Set objDoc = objWord.Documents.Open (FileName)
 '名前をつけて保存(PDFに)
objDoc.SaveAs FS.BuildPath(FolderName, FS.GetBaseName(FileName) & ".pdf"), 17
objDoc.Close False
j = j + 1
End Select
Next
objWord.Quit
Set FS = Nothing
Set objDoc = nothing
Set objWord = nothing
MsgBox j & "個のファイルを変換しました"
  • 気になる質問をクリップする

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

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

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 2

+1

Call objDoc.Protect([保護タイプ],,[パスワード])

保護タイプ:
0:wdAllowOnlyRevisions
1:wdAllowOnlyComments
2:wdAllowOnlyFormFields
3:wdAllowOnlyReading
-1:wdNoProtection
詳細は、↓を参照ください
https://msdn.microsoft.com/ja-jp/library/microsoft.office.interop.word.wdprotectiontype(v=office.11).aspx

投稿 2017/12/06 09:16

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2017/12/06 10:26

    ExcelVBAerさん
    回答ありがとうございます。
    Call objDoc.Protect([保護タイプ],,[パスワード])について、
    下記のように追加してみましたが、パスワードが設定できませんでした。
    何をcallしているかも分かっておりませんが、使い方としてはコード内に挿入するで良かったでしょうか。。
    せっかく回答頂いたのに申しわけありませんが、詳細を読み解き使えるレベルになく、
    使い方についてアドバイス頂けないでしょうか。

    ---
    Set objDoc = objWord.Documents.Open (FileName)
    Call objDoc.Protect(3,,"pass")
    objDoc.SaveAs FS.BuildPath(FolderName, FS.GetBaseName(FileName) & ".pdf"), 17
    objDoc.Close False
    ---

    キャンセル

  • 2017/12/06 14:42 編集

    流し読みしてて、文書の保護と間違えてました。
    すみません。。。

    PDFのパスワードはVBAからは指定できないようです。

    ダイアログだと「ドキュメントをパスワードで暗号化する」で設定できるのに、マクロから設定できないとは。。。

    キャンセル

  • 2017/12/07 13:08

    ExcelVBAer さん
    ご確認ありがとうございました。
    >PDFのパスワードはVBAからは指定できないようです。
    ダイレクトにwordからPDF変換時にパスワードをかけることは難しいようなので、
    作成されたPDFファイルを圧縮しパスワードをつけることはvbaからも可能でしょうか。
    windows7を使用しており、Lhaplusを入れております。

    キャンセル

  • 2017/12/13 09:15

    回答が遅くなりましたが、恐らくもう見つけていると思いますが、
    [VBA Lhaplus] で検索したら、対応策が見つかりますね。

    https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q13149799168

    キャンセル

check解決した方法

0

vbs+vbaにて実現できました。

投稿 2017/12/13 08:44

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

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

ただいまの回答率

91.35%

関連した質問

同じタグがついた質問を見る

  • VBA

    1124questions

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

  • VBScript

    154questions

    VBScript(Visual Basic Scripting Edition)はMicrosftが開発したスクリプト言語であり、Visual Basicのサブセットです。

  • Word

    45questions

    Microsoft WordはMicrosoftが開発した業務用の文書生成用のソフトウェアです。