word for office365 です。
顧客に提供するのはPDF形式です。
ワードの文章をちょくちょく直すのですが、
直した後、上書き保存した時にPDF化されていると便利だと考えています。
以下のURLを参考に
https://www.wordvbalab.com/code/3838/
ファイルを保存した時にPDFのコピーを作るコードを以下のようにしてみました。
vba
1Private Sub Document_Close() 2 3 Dim myFileName As String 'ファイル名 4 Dim myFilePath As String '保存先のフォルダパス 5 Dim myDoc As Document 6 Dim intPos As Integer 'ピリオドの位置 7 8 Set myDoc = ActiveDocument 9 10 '拡張子のない名称を取得 11 myFileName = myDoc.Name 12 intPos = InStrRev(myFileName, ".") 13 myFileName = Left(myFileName, intPos - 1) 14 15 'PDFファイルで保存 16 myFilePath = myDoc.Path 'Wordファイルと同じフォルダ 17 myDoc.ExportAsFixedFormat _ 18 OutputFileName:=myFilePath & "\" & myFileName & ".pdf", _ 19 ExportFormat:=wdExportFormatPDF 20 21 Set myDoc = Nothing 22 23End Sub
しかし、これですとファイルを閉じた時に無条件にPDFが(上書きされ)作られてしまいます。
上書き保存を選んだときにのみPDFのコピーを作るにはどうしたらよろしいでしょうか?
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2019/03/04 00:17
2019/03/04 01:49
2019/03/04 02:18
2019/03/04 07:15
2019/03/04 23:22
2019/03/05 00:32
2019/03/05 08:55