Поля конверта по умолчанию

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

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

1. Загрузите шаблон Normal.dot. (Это шаблон по умолчанию, используемый Word всякий раз, когда вы создаете пустой документ.)
2. Отображение диалогового окна «Конверты и этикетки». Это можно сделать в Word 97 и Word 2000, выбрав Инструменты | Конверты и этикетки. Это можно сделать в Word 2002 и Word 2003, выбрав Инструменты | Письма и рассылки | Конверты и этикетки.
3. Щелкните вкладку “Конверты”. (См. Рис. 1.)



Рис. 1. Вкладка «Конверты» диалогового окна «Конверты и этикетки».

4. Нажмите кнопку «Параметры». Word отображает диалоговое окно “Параметры конверта”.
5. Убедитесь, что выбрана вкладка “Параметры конверта”. (См. Рис. 2.)



Рис. 2. Диалоговое окно Envelope Options.

6. В соответствующих полях измените расположение адресов по своему усмотрению.
7. Нажмите OK, чтобы закройте диалоговое окно “Параметры конверта”.
8. Нажмите “Добавить в документ”. Это вставит конверт в ваш шаблон (который вы открыли, помните?).
9. Выберите «Выбрать все» в меню «Правка». Это выбирает всю информацию конверта, которая была только что добавлена ​​в ваш документ Word.
10. Нажмите клавишу Del . Конверт удаляется из вашего документа.
11. Сохраните шаблон, щелкнув инструмент «Сохранить» или выбрав «Сохранить» в меню «Файл».
12. Закройте шаблон.

Теперь, когда вы в следующий раз будете использовать документ, основанный на обычном стиле, настройки конверта будут отражать те, которые вы создали на этих шагах.

Вы также можете используйте решение, которое использует макрос для создания ваших конвертов. Например, вы можете начать с нового пустого документа и создать конверт, который будет именно таким, каким вы хотите его видеть. Добавьте этот конверт в пустой документ, а затем сохраните его как шаблон с описательным именем (например, Envelope.dot). Затем создайте следующий макрос и назначьте его кнопке панели инструментов:

 Sub DoEnv () Documents.Add Template: = "Envelope", NewTemplate: = False Selection.EndKey Unit: = wdStory Selection.  MoveLeft Unit: = wdCharacter, Count: = 2 Selection.PasteSpecial DataType: = wdPasteText Application.PrintOut Диапазон: = wdPrintCurrentPage ActiveWindow.Close (False) End Sub 

Чтобы напечатать конверт, выделите адрес в письмо, затем нажмите кнопку на панели инструментов, с которой связан этот макрос. Макрос скопирует адрес в буфер обмена, вставит его в нужное место в новый документ на основе шаблона конверта, распечатает конверт и затем закроет документ конверта, не сохраняя его.

A Другой подход – использовать макрос для установки стандартных (то есть тех, которые вы хотите использовать чаще всего) настроек конверта для вас. Следующий макрос сделает именно это:

 Sub ToolsEnvelopesAndLabels () Dim EnvThere As Integer Dim recipient As String EnvThere = False recipient = Selection.Text On Error Resume Next If IsError (ActiveDocument.Envelope.Address)  Затем ActiveDocument.Envelope.Insert EnvThere = True End, если с ActiveDocument.Envelope .DefaultFaceUp = True .DefaultOrientation = wdCenterClockwise .DefaultHeight = CentimetersToPoints (11) .DefaultWidth = CentimetersToPoints (11) .DefaultWidth = CentimetersToPoints (5).  ) .ReturnAddressFromLeft = CentimetersToPoints (2) .ReturnAddressFromTop = CentimetersToPoints (2) Заканчивается на, если EnvThere, то ActiveDocument.Sections (1) .Range.Delete Else ActiveDocument.Envelope.UpdateDocumentEdog, если конечный объект Ifodial.  .AddrText = "" Then .AddrText = recipient End If .Show End WithEnd Sub 

Чтобы использовать этот макрос, сначала выберите адрес, который вы хотите использовать на конверте. Макрос захватывает текущий выбор и использует его в качестве адреса конверта, если другой адрес еще не был определен. Затем функция IsError определяет, существует ли уже конверт; если нет, вставляется новый, и EnvThere указывает нам удалить его, как только мы изменим свойства по умолчанию. Как только конверт существует в документе, мы изменяем свойства конверта по умолчанию. Это делается в разделе «С ActiveDocument.Envelope». Вы можете настроить эти свойства по мере необходимости или просто опустить их. (В этом примере для установки значений используется функция CentimetersToPoints; при желании вы можете использовать другие функции, такие как InchesToPoints.) Макрос завершается отображением диалогового окна Envelope and Labels, так что вы можете внести любые изменения в последнюю минуту перед печатью или созданием своего конверт.