Как определить, на каком шаблоне основан данный документ

Комментариев: 5

1. 

   Константин
   09.10.2009 в 12:47 | #1

   Вопрос по этой теме. Есть очень много документов, основанных на не стандартном шаблоне Normal.dot. Раньше шаблон находился на сервере в общедоступной папке. Сейчас сервера и шаблона нет. Зато есть проблемы с открытием этих документов. На части компьютеров они открываются, на части - нет. Можно ли как-то автоматически изменить шаблон на Normal.dot во всех тех документах? Заранее благодарен.
2. 

   Админ
   10.10.2009 в 08:10 | #2

   Константин, попробуйте такой макрос (аналог из заметки Массовое форматирование документов).

   Замените в этом коде пути к папке с шаблонами и укажите точное наименование вашего шаблона.

   p.s. Пути в макросе определены для WinXP, в Висте расположение шаблонов другое - уточняйте самостоятельно.

   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45

   Sub batchTemplate() 'переопределение шаблона для документов, находящихся в одной папке Dim myFile As String Dim myDoc As Document Dim path As String Dim fDlg As FileDialog Dim ext() As Variant Dim i As Long On Error Resume Next 'msoFileDialogFilePicker – позволяет пользователям выбрать один или более файлов. 'Пути к файлам, выбранным пользователям, сохраняются в коллекции элементов FileDialogSelectedItems Set fDlg = Application.FileDialog(msoFileDialogFolderPicker) 'Выбираем папку с файлами для форматирования With fDlg    .Title = "Выберите папку, содержащую документы и нажмите ДА"    .AllowMultiSelect = False    .InitialView = msoFileDialogViewList    If .Show  -1 Then       MsgBox "Отменено", , "Массовое форматирование"       Exit Sub    End If    path = fDlg.SelectedItems.Item(1)    If Right(path, 1)  "\" Then path = path + "\" End With ext = Array("*.doc", "*.rtf") 'Заносим в массив типы расширений For i = 0 To UBound(ext) 'Запускаем цикл обхода файлов с расширениями из массива 'Заносим в переменную полный путь к первому файлу в папке, 'имена следующих файлов будут получены в цикле функцией Dir$() без аргументов myFile = Dir$(path & ext(i)) 'Запускаем цикл обработки каждого файла в папке While myFile  ""    'Открываем каждый файл без видимости для пользователя    Set myDoc = Documents.Open(path & myFile, Visible:=False)    'Переопределяем шаблон для каждого документа    With myDoc       .AttachedTemplate = _          "C:\Documents and Settings\ИМЯ_ПОЛЬЗОВАТЕЛЯ\Application Data\Microsoft\Шаблоны\ИМЯ_ШАБЛОНА.dot"       .Close SaveChanges:=wdSaveChanges    End With    myFile = Dir$()   'получаем следующее имя файла из папки Wend Next i Set fDlg = Nothing Set myDoc = Nothing End Sub
3. 

   Константин
   12.10.2009 в 13:43 | #3

   Константин, попробуйте такой макрос...

   ОГРОМНОЕ СПАСИБО!!!! Сработало!
4. 

   Penniwise
   18.02.2010 в 14:08 | #4

   Благодаря тому, что прочитал эту заметку, разобрался, что можно подключить несколько шаблонов одновременно -- порадовало. Однако, понял, что при выходе и новом запуске Word необходимо снова их все подключать.

   Пытался зайти в шаблон normal.dot, подключить нужные шаблоны и сохранить normal. Всё равно при новом входе в программу с использованием normal.dot необходимо вручную заново подключать интересующие шаблоны.

   Если ли способ подключать шаблоны каждый раз автоматически?

   (кстати, код в комментарии выше не взяли в соответствующий тег - некрасиво)
5. 

   Админ
   18.02.2010 в 14:22 | #5

   Поместить их в папку автозагрузки - StartUp.

   Спасибо за замечание - был неверный тег (еще старого сайта).