フォルダの中に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 & "個のファイルを変換しました"
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2017/12/06 01:26
2017/12/06 05:42 編集
2017/12/07 04:08
2017/12/13 00:15