Статьи из блога

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

Каждый документ, который вы создаете в редакторе Word, основан на каком-то шаблоне. Как правило, это глобальный шаблон Normal.dot. Но если вы активно используете при создании своих документов разнообразные шаблоны, то следующий совет иногда может пригодиться.

 

Если вы хотите уточнить, какой именно шаблон редактора используется при создании данного документа, то в меню Сервис выберите команду Шаблоны и надстройки. Откроется диалоговое окно:

 

Шаблоны и надстройки

 

В поле Шаблон документа на вкладке Шаблоны вы можете увидеть наименование файла и месторасположение шаблона, на базе которого создается данный документ.

twitter.com facebook.com vkontakte.ru odnoklassniki.ru mail.ru ya.ru rutvit.ru myspace.com technorati.com digg.com friendfeed.com pikabu.ru blogger.com liveinternet.ru livejournal.ru memori.ru google.com bobrdobr.ru mister-wong.ru yahoo.com yandex.ru del.icio.us
Вы можете помочь в развитии сайта, сделав пожертвование:

Или помочь сайту популярной криптовалютой:

 

BTC Адрес: 1Pi3a4c6sJPbfF2sSYR2noy61DMBkncSTQ

 

ETH Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

 

LTC Адрес: LUyT9HtGjtDyLDyEbLJZ8WZWGYUr537qbZ

 

DOGE Адрес: DENN2ncxBc6CcgY8SbcHGpAF87siBVq4tU

 

BAT Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

 

XRP Адрес: rEb8TK3gBgk5auZkwc6sHnwrGVJH8DuaLh Депозит Tag: 105314946

 

USDT (ERC-20) Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

 

Яндекс Деньги: 410013576807538

 

Вебмани (R ещё работает): R140551758553 или Z216149053852

 

А тут весь список наших разных крипто адресов, может какой добрый человек пожертвует немного монет или токенов - получит плюсик в карму от нас :) Благо Дарим, за любую помощь!

 

Еще записи по вопросам использования Microsoft Word:

Комментариев: 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

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

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

  4. 18.02.2010 в 14:08 | #4

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

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

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

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

  5. 18.02.2010 в 14:22 | #5

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

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

Оставьте комментарий!

(обязательно)

^ Наверх