Открытие документов.

[top777]

Почему одни документы Word открывает в режиме разметки страниц, а другие в режиме предварительного просмотра, где это указывается или настраивается?

[shanemac51]

видимо это состояние в момент последнего закрытия

[top777]

Документы (которые в предварительном просмотре) созданы на основе шаблонов, может в них дело?

[Ципихович Эндрю]

в автонэв или автоопен, вибирите чт Вам надо и закиньте:

CommandBars("Task Pane").Visible = False 'убрать панель Приступая к работе (находится справа от документа)
Application.DisplayStatusBar = True 'показывать строку состояния, находится внизу, на ней указывается количество страниц, на какой из них находится курсор
ActiveWindow.DisplayScreenTips = True 'показывать всплывающие подсказки

With ActiveWindow.View
.Type = wdPrintView 'режим отображения документа - Разметка страницы
.ShowAnimation = True 'показывать аннимацию текста
.ShowBookmarks = True 'показывать закладки
.FieldShading = wdFieldShadingWhenSelected 'показывать затенение полей при их выделении
.ShowTabs = True 'показывать знаки табуляции
.ShowSpaces = True 'показывать пробелы
.ShowParagraphs = True 'показывать знаки абзацев
.ShowHiddenText = True 'показывать скрытый текст
.ShowAll = True 'показывать все знаки форматирования
.ShowHighlight = True 'показать выделение цветом
.DisplaySmartTags = True 'показывать смарт теги
.ShowFieldCodes = False 'не показывать коды полей
End With

With ActiveWindow
.DisplayHorizontalScrollBar = True 'показывать горизонтальную полосу прокрутки
.DisplayVerticalScrollBar = True 'показывать вертикальную полосу прокрутки
End With

With Options
.UpdateFieldsAtPrint = False 'не обновлять поля перед печатью
.UpdateLinksAtPrint = False 'не обновлять связи перед печатью
.PrintFieldCodes = False 'не печатать коды полей
.PrintHiddenText = False 'не печатать скрытый текст
.PrintXMLTag = False 'не печатать XML теги
.CheckSpellingAsYouType = True 'автоматически проверять орфографию
.CheckGrammarAsYouType = True 'автоматически проверять грамматику
.SuggestSpellingCorrections = True 'всегда предлагать замену при орфографической ошибке
End With

ОК???

[top777]

Ок! То что надо! Спасибо.