Як надрукувати складні позначки на листах за допомогою 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
'   e.g. 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 i.e. 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