Как распечатывать метки на письмах с помощью Microsoft Word

Возможно ли сделать боковые линии (складывающиеся), которые не зависят от текста (независимо от того, как вы перемещаете текст вверх или вниз , линии находятся на одном и том же месте при печати)

Эти строки предназначены для моих пользователей, чтобы сбросить и поместить документ в письмо.

Нужно ли использовать VBA? (Я опытный в Excel VBA, поэтому, я думаю, я могу подобрать его довольно быстро, если потребуется)

Пример того, что я хочу: Введите описание изображения здесь

(Красные стрелки указывают на то, что я хочу, и я не хочу красные стрелки, просто линии :))

При любом изображении или нарисованном искусстве позиционирование может контролироваться опциями «макет». Нарисуйте свою линию, щелкните правой кнопкой мыши по параметрам, выберите «формат», затем вкладку «Макет», затем «расширенный». Иллюстрация из Word 2010, но 2003 похож:

Введите описание изображения здесь

Выберите «Относительная позиция» и «Страница». Это блокирует объект до его положения на странице, независимо от текста, заголовков или чего-либо еще.

Я пробовал использовать принятый ответ (Дэйвом Беккером) без успеха. Я даже не получил одинаковые диалоговые окна. Я также использую Word 2010.

Вот как я это сделал:

1) Нарисуйте линию, используя графику Word, следующим образом.

Выберите вкладку «Вставить» на ленте. В группе «Иллюстрации» нажмите «Формы». В группе «Линии» в результате выпадающего списка выберите простую строку (тип первой строки). Затем курсор переходит на небольшой крест. Я нарисовал горизонтальную линию длиной около 8 миллиметров. (Удерживайте Shift вниз, пока вы рисуете, чтобы он был абсолютно горизонтальным.) Эта строка не должна располагаться, как это будет сделано позже. Затем я выбрал линию, которую я только что создал (крошечный круг появился на каждом конце строки) и скопировал / вставить, чтобы создать вторую короткую горизонтальную линию чуть ниже первой. (Или вы можете использовать Ctrl + D, чтобы поднять его.)

2) Позиционирование линий.

Затем я выбрал верхнюю короткую горизонтальную линию с помощью курсора. Щелкните правой кнопкой мыши и выберите «Дополнительные параметры макета …» в раскрывающемся меню. Это открыло диалоговое окно с заголовком «Макет». Первая вкладка в диалоговом окне называется «Позиция» и содержит разделы «Горизонтальные и вертикальные». В разделе «Горизонтальный» я выбрал переключатель «Абсолютная позиция» и указал «0 см» справа от «Страница». Для выбора по вертикали зависит размер бумаги, которую вы используете. Я использую A4, который имеет высоту 29,7 мм. Поэтому в разделе «Вертикаль» я выбрал переключатель «Абсолютная позиция» с «9,9 см» ниже «Страница» (т. Е. На одну треть высоты А4). В том же диалоговом окне / вкладке есть вкладка «Параметры» внизу, в которой я снял флажок «Переместить объект с текстом». Затем выберите «ОК» в диалоговом окне.

Затем я выбрал вторую короткую горизонтальную линию (т. Е. Копию, которую я сделал ранее) и выполнил ту же процедуру, кроме установки вертикального положения на «19,8 см» (т. Е. Две трети высоты А4).

Напишите текст в документе справа от линий сгиба, чтобы убедиться, что линии сгиба не перемещаются при добавлении текста.

Введите описание изображения здесь

3) Предварительный просмотр линий сгиба

Выберите пункт меню «Файл», затем «Печать», но еще не распечатайте. Теперь отображается «предварительный просмотр». Если ваши линии сгиба находятся за пределами области печати принтера, вы их еще не увидите. Если вы не видите их в предварительном просмотре печати, вернитесь к документу, выделите каждую линию индивидуально и слегка потяните вправо, чтобы сделать их немного длиннее. Вернитесь к просмотру печати, и, надеюсь, вы увидите строки. Линии не дойдут до самого левого края страницы, если область печати не дойдет так далеко.

4) Распечатайте его. Будем надеяться, что линии сгиба теперь так же, как вы того захотите.

Вы можете использовать линию чертежа, привязанную к заголовку.

Я обнаружил, что одна строка слева – это все, что требуется, а не пунктирная с обеих сторон, если пользователь может сбросить карты прямо! (Второе положение складки очевидно после первого.)

Ниже представлен мой макрос Word 2007 для вставки метки (ов); Это лучше всего запустить перед печатью, хотя он отлично работает с текстом, если у вас есть таблицы в области меток, изменение размера ячейки путем добавления данных может привести к перемещению метки. (Если это так, просто удалите метки и повторите макрос.) Я не могу найти лекарство от этого взаимодействия.

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

Sub FoldLine() ' ' Add 1 or 2 FoldLines to the first A4 sheet into a DL Envelope ' ' Conventional wisdom has 2 marks to divide the page into thirds. ' This is for setting up automatic paper folding machines. ' If you fold by hand, you only need to print the first mark: ' Make the first fold, then fold the middle and bottom thirds in half. ' ' Macro is best when used just before printing the document. ' ' Works properly with text. ' If using tables in the area of these marks, changing the cell size ' eg by adding data. can move the marks' positions. ' No VB cure has been found for this. ' (Select each mark and delete it, then rerun this macro, then print.) ' ' WORD 2007 Macro - Sally Deborah JELFS - June 2017 ' ' ' Select Print Layout View If ActiveWindow.View.SplitSpecial = wdPaneNone Then ActiveWindow.ActivePane.View.Type = wdPrintView Else ActiveWindow.View.Type = wdPrintView End If ' Ensure 'Show White Space' is shown ie so that the Header is shown ' This regularises the vertical ruler, ' otherwise, the mark positions vary with the size of the TopMargin. ActiveWindow.View.DisplayPageBoundaries = True ' ' Draw the first mark (length 12mm) at 10.1cm from the top edge of the paper. ' (Setting it to 9.9cm results in a folded page which can be difficult to open!) ActiveDocument.Shapes.AddConnector(msoConnectorStraight, 2.82, 286.3, 33.92, 0#).Select With Selection.ShapeRange .Line.Visible = msoTrue .Fill.Transparency = 0# .Line.Weight = 0.25 ' Uncomment if your printer can print colour per pixel: Not for B&W lasers ' Choose the RGB colour to use: ' .Line.ForeColor.RGB = RGB(0, 0, 0) .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage .RelativeVerticalPosition = wdRelativeVerticalPositionPage .RelativeHorizontalSize = wdRelativeHorizontalSizePage .RelativeVerticalSize = wdRelativeVerticalSizePage .LeftRelative = wdShapePositionRelativeNone .TopRelative = wdShapePositionRelativeNone .WidthRelative = wdShapeSizeRelativeNone .HeightRelative = wdShapeSizeRelativeNone .LockAnchor = False .LayoutInCell = True End With ' ' ' Draw the second mark (length 12mm) at 19.9cm from the top edge of the paper. ' (The middle and bottom thirds are then the same size.) ' ' ActiveDocument.Shapes.AddConnector(msoConnectorStraight, 2.82, 564.1, 33.92, 0#).Select ' **** For the second mark, uncomment the above line and ' insert here a copy of the entire ' "With Selection.ShapeRange" .... ' "End With" ' block from the first marks' code, above. End Sub 
  • Мое колесо прокрутки мыши не прокручивается
  • (Ы) Невосприимчивость в Google Chrome
  • Как создать загрузочный USB-накопитель с несколькими операционными системами?
  • Вирус дублировал учетную запись пользователя на XP?
  • Плохой сектор жесткого диска - проверка и восстановление диска
  • Есть ли список / журнал драйверов установки Windows XP, загруженных во время установки?
  • Любой инструмент, доступный для переименования в Windows XP больше похож на Mac OS X?
  • Настройка Media Center не будет завершена для просмотра телевизора
  • Можно ли включить RAID 1 без переустановки Windows?
  • Как расшифровать файл, который encypted в других окнах xp os
  • Как удалить файлы и папки, которые нельзя удалить?
  • Давайте будем гением компьютера.