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

1. 

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

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

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

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

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

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

   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.

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