Доброго времени!
А помогите доработать скриптик (не мои):
Цитата:
Option Explicit
Dim strDocumentList
Dim strBadTemplate
Dim strDocument
Dim objFSO
Dim objWord
strDocumentList = "E:\Песочница\0116\DocumentList.txt"
strBadTemplate = "\\fileserver2\USERS$\sba\My Documents\Brand Manual\Brand Manual\templates Norit russia\Templates NV\Norit NV - brief - ENG, V060403.dot"
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(strDocumentList) Then
Set objWord = WScript.CreateObject("Word.Application")
With objFSO.OpenTextFile(strDocumentList)
Do Until .AtEndOfStream
strDocument = .ReadLine()
If objFSO.FileExists(strDocument) Then
WScript.Echo strDocument
With objWord.Documents.Open(strDocument)
If .AttachedTemplate = strBadTemplate Then
WScript.Echo " Template found in document [" & strDocument & "]"
.AttachedTemplate = "Normal.dotm"
.Save
End If
.Close
End With
Else
WScript.Echo "Document [" & strDocument & "] not found"
End If
Loop
.Close
End With
objWord.Quit
Set objWord = Nothing
Else
WScript.Echo "Document list [" & strDocumentList & "] not found"
End If
Set objFSO = Nothing
WScript.Quit 0
|
Цитата:
|
strDocumentList = "E:\Песочница\0116\DocumentList.txt"
|
в этом файлике список путей к файлам ворд, созданный TotalCommander'ом:
Цитата:
.........
Z:\CDM\anketa_k.doc
Z:\CDM\pravil_karta_scheta.doc
..............
|
это шаблон который встроен в вордовские документы (таких доков много)
Задача: удалить путь к шаблон или заменить на шаблон по умолчанию (в 1283 документах)
Не работает, что-то скриптик! Файл он открывает, но шаблон не удаляет и не заменяет!
Пробовал подставлять и пробел и просто пустым оставлять, и полный путь к Normal.dotm - не работает!
With Best Regards
Brainiacs