Killステートメントでファイルを消すことができない。

Question

前提・実現したいこと

Acrobatのバックグラウンドプロセスが終了できない。
中間ファイルが削除できない。

発生している問題・エラーメッセージ

Kill PDF_TMP_WTM
で
実行時エラー'70'
書き込みできません。

となり中間ファイルが削除できません。

もちろん該当ファイルが開かれていないことは確認済みです

タスクマネージャーでみると、バックグラウンドプロセスとして'Acrobat.exe'が起動しており、手動でプロセスを終了すると動きます。

該当のソースコード

Sub 自動透かし入れ_パスワード設定()

 
    '元のコード入手先
    'http://pdf-file.nnn2.com/?p=784]
    
    'Acrobat Pro の返り値変数
    Dim lRet            As Long

    'Acrobatプロセスの強制終了：事前
    Call TerminateAcrobat

    'Pdftkのバイナリの所在
    Const PDFTK_PATH = "C:\Program Files (x86)\PDFtk\bin\pdftk.exe"
    'Pdftkを使用するコマンドライン用の宣言
    Dim WSH As Object, cmd As String, ret


    '作業フォルダの指定
    Dim directoryname As String
    directoryname = Sheets("initial_setting").Cells(1, 2).Value
    
    
    'ループ処理に必要な宣言
    Dim rng As Range
    Dim endrow As Long
    Dim i As Long
    Dim str_watermark, inputfilename, outputfilename As String
    Dim str_owner_pw, str_user_pw As String
    Dim PDF_IN, PDF_OUT, PDF_TMP_WTM As String
    Dim allow_printing As Boolean
    
    'listの最終行を取得
    endrow = Sheets("list").Cells(1, 1).End(xlDown).Row
    
    For i = 2 To endrow
        With Sheets("list")
            inputfilename = .Cells(i, 6).Value
            outputfilename = .Cells(i, 7).Value
            str_owner_pw = .Cells(i, 8).Value
            str_user_pw = .Cells(i, 9).Value
            allow_printing = .Cells(i, 10).Value
            str_watermark = .Cells(i, 11).Value
        End With

    '元となるPDFファイル名
    PDF_IN = directoryname & "input\" & inputfilename & ".pdf"
    '出力PDFファイル名
    PDF_OUT = directoryname & "output\" & outputfilename & ".pdf"
    '中間ファイル名（後でファイルは削除する）
    PDF_TMP_WTM = directoryname & "tmp1.pdf"
    

    '透かしの文字列が空白の場合acrobat proで透かしを入れる工程をスキップする
    If (str_watermark = "") Then
        FileCopy PDF_IN, PDF_TMP_WTM    'PDF_TMP_WTMが次の工程にないと困るので作っておく
        GoTo Acrobat_watermark_skip:
    End If

    'Acrobat Pro 操作に必要な宣言
    Dim objAcroApp      As New Acrobat.AcroApp
    Dim objAcroPDDoc    As New Acrobat.AcroPDDoc
    Dim jso             As Object

    
    'JSObjectオブジェクト作成時のNothingの回避策
    'Acrobatアプリを強制的にメモリにロードする
    lRet = objAcroApp.CloseAllDocs
    
    'PDFファイルを開く
    lRet = objAcroPDDoc.Open(PDF_IN)
    If lRet = False Then
        MsgBox "AcroExch PDDoc Open エラー"
        GoTo JSO_addWatermarkFromText_Skip:
    End If
    
    Set jso = objAcroPDDoc.GetJSObject
    
    'PDF文書の指定のページに透かしを追加する
    hogehoge~~

JSO_addWatermarkFromText_Skip:
    
    'PDFを最適化して別名で保存する。
    lRet = objAcroPDDoc.Save( _
        PDSaveFull + PDSaveLinearized + _
        PDSaveCollectGarbage, PDF_TMP_WTM)
        
   
    'アプリケーションの終了
    '開いているPDFドキュメントを全て閉じる
    lRet = objAcroApp.CloseAllDocs
    'アプリケーションの終了
    lRet = objAcroApp.Hide
    lRet = objAcroApp.Exit
    'オブジェクトの強制開放
    Set jso = Nothing
    Set objAcroPDDoc = Nothing
    Set objAcroApp = Nothing
    
Acrobat_watermark_skip:
    
    'PDFtkによる閲覧制限
    hogehoge
    
    '中間ファイル削除
    Kill PDF_TMP_WTM
 
    
nextfile_skip:

    Next i
    'ループここまで
    
    Debug.Print "End: " & Date & " " & Time

End Sub


Private Sub TerminateAcrobat()
    Dim items   As Object
    Dim item    As Object
    Set items = CreateObject("WbemScripting.SWbemLocator") _
        .ConnectServer.ExecQuery( _
            "Select * From Win32_Process " & _
            "Where Name = 'Acrobat.exe'")
    If items.Count > 0 Then
        For Each item In items
            item.Terminate
        Next
    End If
End Sub

試したこと

https://pdf-file.nnn2.com/?p=6
などを参照しました。

補足情報（FW/ツールのバージョンなど）

Adobe Acrobat 2017 使用

Comments

[y_waiwai]

そもそも終了させなければならないもんなんでしょうか

[persimmon0330]

for文で回しているので、新しく中間ファイルを作成する必要がある。
→tmp1.pdfが消せない。(実行時エラー'70'書き込みできません。)tmp1.pdfを開いていない。
→Acrobatのバックグラウンドプロセスを手動で終了させるとKillステートメントで消すことができる

という感じなので、一番やりたいことはKillステートメントでファイルを消したい
ということです。わかりづらくて申し訳ございません

[enii]

ソースを見る限りはPDF_TMP_WTMを開いている箇所がないので、hogehogeの部分で加工しているんですよね？
どうやって「開いていない」ことを検証したのか不明ですが、試しにhogehoge部分をすべてコメントアウトしてもKillできないんでしょうか。