1

Word ドキュメントを指定されたパスで 1 つずつ開き、それらのドキュメントを作成した .dot テンプレートにリンクし、その中にある 2 つのマクロ (「ViewPrintLayout」と「ProcedureFormatBulletPoints」) を実行する VB スクリプトを作成しようとしています。テンプレート。

スクリプトを取得してドキュメントを開き、マクロを実行しようとしました。ただし、テンプレートに正常にリンクできなかったため、失敗します。私のコードのコピーを以下に示します。

Dim objWord, objFSO, objFile, objFolder
Dim strList

strPath = InputBox("Enter Path Name") 

If strPath = "" Then WScript.Quit

Set objFSO = CreateObject("Scripting.FileSystemObject")
set objFolder = objFSO.GetFolder(strPath)

Set objWord = WScript.CreateObject("Word.Application")
objWord.Visible = True




For Each objFile In ObjFolder.Files

    If LCase(Right(objFile.Path, 4))  = ".doc" Then
        objWord.Documents.Open objFile.Path
        objWord.AddIns.Add FileName:="\My Documents\MEGA\PDF Templates\MyTemplate.dot"
        objWord.Run "ViewPrintLayout"
        objWord.Run "ProcedureFormatBullets2"
        ObjWord.Documents.Close
    End If
Next

objWord.Quit

これが機能しない理由を説明できる人はいますか? 実行時エラーが発生します。敬具。

4

1 に答える 1