[Brainiacs]

«Натравите» скрипт из #18 на полный список документов, а не на один-единственный документ.

Так это ж, если он один файл открывает порядка 30 секунд, так весь список, я до послезавтра буду открывать...

Может попробовать на нескольких документах?
Если скрипт не обрабатывает даже один файл, где точно НЕ normal.dotm, а присоединённый шаблон!

Естественно. Скрипт не будет ничего менять-сохранять, пока ему не попадётся документ с искомым присоединённым шаблоном.

Так этот документ точно с искомым присоединённым шаблоном!!!!!!

P.S.
Я конечно запущу скриптик, пусть работает!

With Best Regards
Brainiacs

[Iska]

Может попробовать на нескольких документах? »

Давайте. И чтоб хотя бы в одном из них заведомо был тот самый шаблон, который ищем.

[Brainiacs]

Давайте. И чтоб хотя бы в одном из них заведомо был тот самый шаблон, который ищем.

Ну собственно я взял 10 файлов из них 2 нормальных (быстро открываются и в шаблонах стоит Normal.dotm) остальные с шаблоном:

\\fileserver2\USERS$\sba\My Documents\Brand Manual\Brand Manual\templates Norit russia\Templates NV\Norit NV - brief - ENG, V060403.dot

скиптик записал в файл, что они все с Normal.dotm!!!!

Такое впечатление, что он проверяет какой вообще шаблон используется по умолчанию, а не в документах!!!

With Best Regards
Brainiacs

[Iska]

Brainiacs, подтверждаю Ваши выводы. При недоступности присоединённого шаблона Microsoft Word в свойстве «.AttachedTemplate» возвращает «Normal.dot/Normal.dotm». Если бы я сразу сумел выделить время для полного моделирования Вашей ситуации, Вам не пришлось бы столько мучаться. Приношу Вам свои извинения.

Давайте попробуем так:

читать дальше »

Код:

Option Explicit

Const wdDialogToolsTemplates = &H57

Dim strDocumentList
Dim strBadTemplate
Dim strDocument
Dim strTemplate

Dim objFSO
Dim objWord


strDocumentList = "E:\Песочница\0120\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)
					strTemplate = objWord.Dialogs(wdDialogToolsTemplates).Template
					
					If strTemplate = 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:\Песочница\0120\DocumentList.txt"

указываете путь к своему списку документов.

P.S. Если перед запуском скрипта Вы отключите все сетевые соединения на машине — Word не будет ждать по 30 секунд .

[Brainiacs]

УРААА!!!!

Большущее спасибо!

Всё заработало!!!

Вашей ситуации, Вам не пришлось бы столько мучаться. Приношу Вам свои извинения.

Да ничего страшного, самое главное, что мы, то есть Вы решили задачу!!!!!!!

P.S. Если перед запуском скрипта Вы отключите все сетевые соединения на машине — Word не будет ждать по 30 секунд .

Да, я в курсе, правда не получиться, так как я удаленно делаю человеку, и у него эти файлы как сетевой диск подключены, но ничего уже треть сделалось!!!

Куда высылать пиво пишем в личку - ОБЯЗАТЕЛЬНО!

With Best Regards
Brainiacs

[Iska]

Да ничего страшного, самое главное, что мы, то есть Вы решили задачу!!!!!!! »

Ну, решил-то её, не будем забывать, Petya V4sechkin. Я всего лишь помог с ликвидацией последствий.

Куда высылать пиво пишем в личку - ОБЯЗАТЕЛЬНО! »

Спросите у Администрации — может, им сгодится ?!

[Brainiacs]

Ну, решил-то её, не будем забывать, Petya V4sechkin. Я всего лишь помог с ликвидацией последствий.

Точно, я извиняюсь за забывчивость в пылу радости решения задачи, большущее спасибо Petya V4sechkin!!!

Спросите у Администрации — может, им сгодится ?!

Нет, так не пойдет и это не обсуждается, вообщем так или иначе, но благодарность настигнет Вас с Petya V4sechkin!!!!!!!

With Best Regards
Brainiacs

[irf]

Добрый день! Iska, нужна помощь!
Я попробовал Ваш скрипт для восстановления Normal.dotm. Он работает только с документами 2007 офиса (docx), а для документов сделанных в 2003 офисе (doc) можете сделать? Очень надо. Заранее благодарен

[Iska]

Я попробовал Ваш скрипт »

Какой именно? Этот?

для восстановления Normal.dotm. »

Это не совсем так.

Он работает только с документами 2007 офиса (docx),»

Это не так. Скрипт вообще не «смотрит» на тип файлов, перечисленных в списке, подразумевая, что все они — документы Word (не важно какой версии).

Единственное, что нужно — заменить строку с именем шаблона:

Код:

						.AttachedTemplate = "Normal.dotm"

на:

Код:

						.AttachedTemplate = "Normal.dot"

Ну, и, естественно, в:

Код:

strDocumentList = "E:\Песочница\0120\DocumentList.txt"
strBadTemplate  = "\\fileserver2\USERS$\sba\My Documents\Brand Manual\Brand Manual\templates Norit russia\Templates NV\Norit NV - brief - ENG, V060403.dot"

должен быть указан путь к Вашему списку документов и путь к Вашему отсутствующему шаблону, соответственно.

P.S. Не проверялось.

[vovka_bel]

Здравствуйте.
Подскажите как нужно исправить скрипт чтобы он смотрел все фаилы в каталоге а не только список из фаила?