6

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

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

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

Пример того, что я хочу:

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

4 ответа4

4

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

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

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

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

2) Расположение линий.

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

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

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

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

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

4) Распечатайте. Надеюсь, линии сгиба теперь такие, как вы хотите.

2

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

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

1

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

1

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

Ниже мой макрос 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

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .