Ескертпе
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Жүйеге кіруді немесе каталогтарды өзгертуді байқап көруге болады.
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Каталогтарды өзгертуді байқап көруге болады.
Открывает указанный шаблон в виде документа и возвращает объект Document .
Синтаксис
выражение. OpenAsDocument
выражение (обязательно). Переменная, представляющая объект Template.
Возвращаемое значение
Документ
Замечания
Открытие шаблона в виде документа позволяет пользователю изменять содержимое шаблона. Это может потребоваться, если свойство или метод (например, свойство Styles ) недоступны в объекте Template .
Пример
В этом примере открывается шаблон, присоединенный к активному документу, отображается окно сообщения, если шаблон содержит нечто большее, чем один абзац, а затем закрывает шаблон.
Dim docNew As Document
Set docNew = ActiveDocument.AttachedTemplate.OpenAsDocument
If docNew.Content.Text <> Chr(13) Then
MsgBox "Template is not empty"
Else
MsgBox "Template is empty"
End If
docNew.Close SaveChanges:=wdDoNotSaveChanges
В этом примере копия шаблона "Обычный" сохраняется как "Backup.dot".
Dim docNew As Document
Set docNew = NormalTemplate.OpenAsDocument
With docNew
.SaveAs FileName:="Backup.dot"
.Close SaveChanges:=wdDoNotSaveChanges
End With
В этом примере изменяется форматирование стиля Заголовок 1 в шаблоне, присоединенном к активному документу. Метод UpdateStyles обновляет стили в активном документе.
Dim docNew As Document
Set docNew = ActiveDocument.AttachedTemplate.OpenAsDocument
With docNew.Styles(wdStyleHeading1).Font
.Name = "Arial"
.Size = 16
.Bold = False
End With
docNew.Close SaveChanges:=wdSaveChanges
ActiveDocument.UpdateStyles
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.