[Brainiacs]

Iska

То есть, когда Вы удаляете данный путь в диалоговом окне и сохраняете документ, то при следующем открытии этого документа там содержится путь к «normal.dotx», так?

Да, именно так и всё очень быстро открывается. ( Ну он не полный путь пишет конечно, который по умолчанию в случае Office 2007 - "C:\Users\UserName\AppData\Roaming\Microsoft\Шаблоны", а просто Normal.dotm)

Можно попробовать написать макрос/скрипт. Как Вам удобнее будет указать все эти файлы?

А как лучше? Может быть по расширению?

With Best Regards
Brainiacs

[Iska]

Да, именно так и всё очень быстро открывается. ( Ну он не полный путь пишет конечно, который по умолчанию в случае Office 2007 - "C:\Users\UserName\AppData\Roaming\Microsoft\Шаблоны", а просто Normal.dotm) »

Спасибо, ясно. Проверил — можно попробовать сделать. Примерный код прост донельзя:

Код:

    With ActiveDocument
        .AttachedTemplate = ""
        .Save
    End With

Уточните следующее…

Как Вам удобнее будет указать все эти файлы? »

Я имел в виду:

1) как расположены эти документы:

* в одной папке;
* в нескольких папках;
* в одной папке и вложенных в неё;
* разбросаны произвольно по всему дисковому пространству?

2) как эти документы (с присоединённым шаблоном:

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

соотносятся своим расположением с другими документами Word?

3) Данный шаблон единственный (тогда можно перебирать всё подряд, ориентируясь на точное имя шаблона) или может статься, могут быть и другие «тормозящие» документы с иным несуществующим шаблоном?

Проще говоря — каким образом указать эти документы среди прочих файлов наиболее удобным для Вас способом. Вы ведь не будете тысячу раз выбирать в диалоговом окне «Open File» по одному документу ?!

[Brainiacs]

Iska

Я имел в виду: 1) как расположены эти документы: * в одной папке; * в нескольких папках; * в одной папке и вложенных в неё; * разбросаны произвольно по всему дисковому пространству?

Собственно, чтобы упростить задачу, я могу собрать их все, в одной папке, они конечно же в свою очередь разбросаны по всяким папкам!!!

2) как эти документы (с присоединённым шаблоном:

Безусловно с некоторыми из этих файлов, находятся и нормальные!!!

3) Данный шаблон единственный......

А вот этот вариант, я думаю самый правильный, т.к. если найдется документ с другим шаблоном, то в скрипте (как я понимаю)
можно будет заменить имя шаблона на нужное (и мало того использовать его для какого-нибудь другого массового изменений вордовских файлов) !!!!
Так как я не думаю, что найдется ещё один "гений"(P.S. а как бы Вы его назвали, в ПМ))) ) , который в документах предназначенных
не только для внутреннего обмена будет указывать сетевой путь для шаблона (единственное конечно, что он мог несколько шаблонов сделать - ну да ладно)

Ну и к делу: если написание скрипта не очень времязатратно, я бы был очень благодарен Вам (ну и безусловно с меня пиво - уже), если бы Вы помогли решить эту, я бы сказал не проблему, а глупость?!?!

With Best Regards
Brainiacs

[Iska]

Собственно, чтобы упростить задачу, я могу собрать их все, в одной папке, они конечно же в свою очередь разбросаны по всяким папкам!!! »

Раз Вы можете проделать такое — я предложу следующее решение: собрать все пути к потребным файлам в текстовый файл (который уже и будет обрабатывать скрипт/макрос).

Сделать сие можно с помощью какого-либо стороннего файлового менеджера, например, Far Manager'а или Total Commander'а, або с помощью какого-либо расширения контекстного меню, позволяющего скопировать из результатов поиска Windows пути к файлам, например, Open++ или FileMenu Tools и т.п (в случае поиска Windows у меня, к сожалению, в список попадают и документы из zip-архивов).

Одним словом, у Вас должен получиться в итоге текстовый файл в кодировке ANSI примерно такого вида:

Код:

C:\Temp\Hello World.doc
…
…
E:\Песочница\0053\kopiya.doc
E:\Песочница\0014\0001\Обзор объекта автоматизации Photoshop.doc

в котором будут находиться пути к потребным документам.

Вот скрипт vbscript:

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

Код:

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» путь к Вашему файл-списку с собранными документами и попробуйте.

[Brainiacs]

Iska

Не работает, что-то скриптик! Файл он открывает, но шаблон не удаляет и не заменяет!
И ещё он когда echo отрабатывает, это ж надо будет на каждый файл "ок" нажимать, иначе он дальше не идет!!!

Пробовал, я .AttachedTemplate вместо "Normal.dotm" --> " ", ворд (visual basic) так делает когда просто стираешь путь к шаблону, но тоже не помогает!
Как-то надо просто удалить путь к шаблоны и сохранить файл, и ворд потом при открытии сам к "Normal.dotm" обратиться!

P.S.

Я надеюсь Вы не против, я разместил Ваш скриптик, ещё на нескольких форумах, для доработки!
Если против, могу удалить?!

With Best Regards
Brainiacs

[Iska]

И ещё он когда echo отрабатывает, это ж надо будет на каждый файл "ок" нажимать, иначе он дальше не идет!!! »

Brainiacs, у меня есть хорошая привычка запускать скрипты в консоли, чего и Вам желаю:

Код:

cscript.exe //nologo "<Путь к скрипту>"

Не работает, что-то скриптик! Файл он открывает, но шаблон не удаляет и не заменяет! »

1. А он хоть находит-то документы с шаблоном? То есть пишет хоть иногда «Template found in document [bla-bla-bla]»?
2. Если пишет, то попробуйте следующие варианты:
* именно пустую строку, а не пробел:

Код:

.AttachedTemplate = ""

* полный путь к «Normal.dotm»:

Код:

.AttachedTemplate = "C:\Users\UserName\AppData\Roaming\Microsoft\Шаблоны\Normal.dotm"

подставив вместо «UserName» конкретное значение.

Я надеюсь Вы не против, я разместил Ваш скриптик, ещё на нескольких форумах, для доработки! Если против, могу удалить?! »

Ничуть. Только за. Ибо у меня-то нет Office 2007, я пробую на предыдущей версии.

[Brainiacs]

у меня есть хорошая привычка запускать скрипты в консоли, чего и Вам желаю:

Понял!

1. А он хоть находит-то документы с шаблоном? То есть пишет хоть иногда «Template found in document [bla-bla-bla]»?

Да файл он находит, открывает его и закрывает, ничего не меняется (дата изменения не меняется, как будто бы просто - открыл/закрыл)!



пишет только см. скрин

2. Если пишет, то попробуйте следующие варианты:

Никакой из вариантов - не работает!

With Best Regards
Brainiacs

[Iska]

Значит, не находит. Ибо, если бы нашёл — писал бы ещё кроме пути, как я уже сказал выше, следующее:

Template found in document [bla-bla-bla]

Давайте-ка посмотрим, какие на самом деле там прикреплённые шаблоны. Выполните такой скрипт:

Код:

Option Explicit

Dim strDocumentList
Dim strDocument

Dim objFSO
Dim objWord


strDocumentList = "E:\Песочница\0116\DocumentList.txt"


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)
					WScript.Echo "  " & .AttachedTemplate
					
					.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

в виде:

Код:

cscript.exe //nologo "<Путь к скрипту>" >c:\0001.txt

опять указав в «strDocumentList» путь к Вашему списку. Полученный в результате исполнения скрипта файл «c:\0001.txt» упакуйте в архив и прикрепите к сообщению (либо выложите на обменник, а сюда — ссылку).

[Brainiacs]

Значит, не находит. Ибо, если бы нашёл — писал бы ещё кроме пути, как я уже сказал выше, следующее:

Да нет, всё он находит, файл открывает (я вижу это т.к. создаётся темповский файл ворда см. аттач) но не меняется дата изменения, такое впечатление, что он его просто закрывает и открывает!!!

Ваш последний скриптик выдаёт следующее:


Только там не normal.dotm, а \\fileserver2\USERS$\sba\My Documents\Brand Manual\Brand Manual\templates Norit russia\Templates NV\Norit NV - brief - ENG, V060403.dot!!!!!

With Best Regards
Brainiacs

[Iska]

Да нет, всё он находит, файл открывает (я вижу это т.к. создаётся темповский файл ворда см. аттач) но не меняется дата изменения, такое впечатление, что он его просто закрывает и открывает!!! »

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

Только там не normal.dotm, а \\fileserver2\USERS$\sba\My Documents\Brand Manual\Brand Manual\templates Norit russia\Templates NV\Norit NV - brief - ENG, V060403.dot!!!!! »

Brainiacs, вот я и хочу увидеть этот самый:

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

во вложенном файле «0001.txt». Но не вижу.

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