É possível criar linhas laterais (dobráveis), que são independentes do texto (independentemente de como você move o texto para cima ou para baixo , as linhas estão no mesmo lugar quando você o imprime)
Essas linhas são para os meus usuários dobrarem e colocarem o documento em uma carta.
Eu precisarei usar o VBA? (Eu tenho experiência em Excel VBA, então eu acho que posso pegá-lo muito rápido, se necessário)
Exemplo do que eu quero:
(setas vermelhas apontam para o que eu quero, e eu não quero setas vermelhas, apenas as linhas :))
Com qualquer imagem ou arte desenhada, o posicionamento pode ser controlado pelas opções de "layout". Desenhe sua linha, clique com o botão direito do mouse nas opções, clique em "format", depois na guia Layout e, em seguida, em "advanced". Ilustração é do Word 2010, mas 2003 é semelhante:
Escolha"Posição Relativa" e relativa a "Página". Isso bloqueia o objeto para sua posição na página, independentemente do texto, dos cabeçalhos ou de qualquer outra coisa.
Eu tentei usar a resposta aceita (por Dave Becker) sem sucesso. Eu nem sequer recebi as mesmas caixas de diálogo. Eu também estou usando o Word 2010.
Foi assim que eu fiz:
1) Desenhe uma linha usando os gráficos do Word da seguinte forma.
Selecione a guia "Inserir" da faixa de opções. No grupo "Ilustrações", clique em "Formas". No grupo 'Linhas' da lista suspensa resultante, selecione uma linha simples (o primeiro tipo de linha). O cursor então muda para uma pequena cruz. Eu desenhei uma linha horizontal de cerca de 8 milímetros de comprimento. (Segure Shift para baixo enquanto você está desenhando para forçá-lo a ficar perfeitamente horizontal.) Esta linha não precisa ser posicionada ainda, como isso é feito depois. Eu então selecionei a linha que acabei de criar (um pequeno círculo apareceu em cada extremidade da linha) e copiei / colei para criar uma segunda linha horizontal curta logo abaixo da primeira. (Ou você pode usar Ctrl + D para d .)
2) Posicionando as linhas.
Em seguida, selecionei a linha horizontal curta superior com o cursor. Clique com o botão direito do mouse e selecione "Mais opções de layout ..." no menu suspenso. Isso abriu uma caixa de diálogo com o título 'Layout'. A primeira aba na caixa de diálogo é chamada de 'Posição' e contém seções chamadas Horizontal e Vertical. Na seção Horizontal, selecionei o botão de opção "Posição Absoluta" e especifiquei "0 cm" à direita de "Página". Para a seleção Vertical, depende do tamanho do papel que você está usando. Eu estou usando A4 que tem uma altura de 29,7 mm. Assim, na seção Vertical, selecionei o botão de opção 'Posição absoluta' com '9,9 cm' abaixo de 'Página' (ou seja, um terço da altura A4). Na mesma caixa de diálogo / guia, há uma seleção de 'Opções' na parte inferior na qual desmarquei a caixa de seleção 'Mover objeto com texto'. Em seguida, selecione "OK" na caixa de diálogo.
Em seguida, selecionei a segunda linha horizontal curta (ou seja, a cópia que fiz antes) e executei o mesmo procedimento, além de definir a posição vertical como '19,8 cm' (ou seja, dois terços da altura A4).
Escreva algum texto no documento na área à direita das linhas de dobra, para garantir que as linhas de dobra não se movam quando o texto é adicionado.
3) Pré-visualize as linhas de dobra
Selecione o item de menu 'Arquivo' e depois 'Imprimir', mas ainda não imprima. A 'pré-visualização' é agora exibida. Se as linhas de dobra estiverem fora da área imprimível da impressora, você ainda não as verá. Se você não puder vê-los na pré-visualização, volte ao documento, selecione cada linha individualmente e puxe-a ligeiramente para a direita, para torná-la um pouco mais longa. Volte para a pré-visualização e esperamos que você veja as linhas. As linhas não alcançam a borda esquerda da página, a menos que a área imprimível chegue tão longe.
4) Imprima-o. Espero que as linhas de dobra estejam como você deseja.
Você pode usar uma linha de desenho ancorada ao cabeçalho.
Eu descobri que uma única linha à esquerda é tudo o que é necessário, não tracejado em ambos os lados, desde que o usuário possa dobrar diretamente! (A segunda posição dobra é óbvia depois de fazer o primeiro.)
Abaixo está minha macro do Word 2007 para inserir a (s) marca (s) de dobra; é melhor executar antes de imprimir como, embora funcione perfeitamente com texto, se você tiver tabelas na área das marcas, alterar o tamanho da célula adicionando dados pode fazer com que uma marca se mova. (Em caso afirmativo, apenas exclua as marcas e execute novamente a macro.) Não consigo encontrar uma solução para essa interação.
A maioria dos problemas com posicionamento surgiu da régua vertical. Se o cabeçalho não for exibido, as posições de marcação serão eliminadas, pois assume que o topo exibido é o topo da página. Hmmm!
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