Microsoft Word kullanarak harflerde katlama işaretleri nasıl yazdırılır

Metinden bağımsız olan yan çizgiler (katlama) yapmak mümkün mü ( metninizi nasıl yukarı veya aşağı hareket ettirdiğiniz önemli değil , satırları yazdırırken aynı yerdedirler )

Bu satırlar, kullanıcılarımın dokümanı bir mektuba katlaması ve koyması içindir.

VBA kullanmam gerekir mi? (Excel VBA’da deneyimli olduğum için sanırım gerekirse hızlı bir şekilde alabilirim)

Ne istediğime örnek:

(kırmızı oklar istediklerimi işaret eder ve kırmızı oklar istemiyorum, sadece çizgiler :))

Herhangi bir resim veya çizim sanatı ile, konumlandırma "düzen" seçenekleri ile kontrol edilebilir. Çizginizi çizin, seçenekler için sağ tıklayın, "format" ı, ardından Düzen sekmesini ve ardından "gelişmiş" i tıklayın. Çizim Word 2010'dan alınmıştır, ancak 2003 benzerdir:

"Göreceli Konum" u ve "Sayfa" ya göre seçin. Bu, metni, başlıklarını veya başka herhangi bir şeyi ne olursa olsun nesneyi sayfadaki konumuna kilitler.

Başarısız olan kabul edilen cevabı (Dave Becker tarafından) kullanmayı denedim. Aynı iletişim kutularını bile almadım. Ayrıca Word 2010 kullanıyorum.

Ben böyle yaptım:

1) Word'ün grafiklerini kullanarak aşağıdaki gibi bir çizgi çizin.

Şeridin 'Ekle' sekmesini seçin. 'Çizimler' grubunda, 'Şekiller'i tıklayın. Ortaya çıkan açılır listenin 'Satırlar' grubunda, basit bir satır seçin (ilk satır türü). İmleç daha sonra küçük bir çarpıya dönüşür. 8 milimetre uzunluğunda yatay bir çizgi çizdim. ( ShiftTamamen yatay olmaya zorlamak için çizim yaparken basılı tutun .) Bu satırın daha sonra olduğu gibi henüz konumlandırılması gerekmez. Daha sonra yeni oluşturduğum çizgiyi seçtim (çizginin her ucunda küçük bir daire belirdi) ve ilk çizginin hemen altında ikinci bir kısa yatay çizgi oluşturmak için kopyala / yapıştır'ı yaptım. (Ya da kullanabilirsiniz Ctrl+ Diçin d bunu oğalt.)

2) Çizgilerin yerleştirilmesi.

Sonra imleçle birlikte üst kısa yatay çizgiyi seçtim. Sağ tıklayın ve açılır menüden 'Diğer Düzenleme Seçenekleri ...' seçeneğini seçin. Bu, 'Düzen' başlıklı bir iletişim kutusu açtı. İletişim kutusundaki ilk sekmeye 'Konum' adı verilir ve Yatay ve Dikey olarak adlandırılan bölümleri içerir. Yatay bölümde, 'Mutlak Konum' radyo düğmesini seçtim ve 'Sayfa' nın sağında '0 cm' belirttim. Dikey seçim için kullandığınız kağıt boyutuna bağlıdır. 29,7 mm yüksekliğe sahip A4 kullanıyorum. Bu yüzden Dikey bölümde 'Sayfa' altında '9.9 cm' olan 'Mutlak konum' radyo düğmesini seçtim (yani, A4 yüksekliğinin üçte biri). Aynı iletişim kutusunda / sekmede, altındaki seçimi kaldırdığım altta bir 'Seçenekler' seçimi var. Nesneyi metinle birlikte onay kutusunu taşıma. Ardından iletişim kutusunda 'Tamam'ı seçin.

Daha sonra ikinci kısa yatay çizgiyi (yani daha önce yaptığım kopyayı) seçtim ve dikey pozisyonu '19 .8 cm '(yani A4 yüksekliğinin üçte ikisi) olarak ayarlamak dışında aynı işlemi yaptım.

Belge içerisine metin eklendiğinde katlama çizgilerinin hareket etmemesini sağlamak için katlama çizgilerinin sağındaki alana bir miktar metin yazın.

3) Katlama çizgilerini önizleyin

'Dosya' menü öğesini ve ardından 'Yazdır'ı seçin ancak henüz yazdırma. 'Baskı önizleme' şimdi görüntüleniyor. Katlama çizgileriniz yazıcının yazdırılabilir alanının dışındaysa, onları göremezsiniz. Bunları yazdırma önizlemesinde göremiyorsanız, belgeye geri dönün, her satırı ayrı ayrı seçin ve biraz daha uzun yapmak için sağa doğru hafifçe çekin. Baskı önizlemeye geri dönün, umarım satırları göreceksiniz. Yazdırılabilir alan o ana kadar gelmediği sürece, satırlar sayfanın en sol kenarına kadar erişemez.

4) Yazdırın. Umarım katlama çizgileri şimdi istediğiniz gibidir.

Başlığa tutturulmuş bir çizim çizgisi kullanabilirsiniz.

Sol taraftaki tek bir çizginin gerekli olduğunu, her iki taraftan da kesilmemiş, kullanıcının düzgün bir şekilde katlayabilmesi şartıyla olduğunu buldum! (İlk katlama yapıldıktan sonra ikinci katlama konumu belirgindir.)

Aşağıda katlama işaretlerini eklemek için benim Word 2007 makrosum; Bu, en iyi şekilde yazdırılmadan hemen önce yapıldığından, metinle mükemmel çalışsa da, işaretler alanında tablolar varsa, veri ekleyerek hücre boyutunu değiştirmek bir işaretin hareket etmesine neden olabilir. (Varsa, yalnızca işaretleri silin ve makroyu yeniden çalıştırın.) Bu etkileşim için bir tedavi bulamıyorum.

Konumlandırma ile ilgili sorunların çoğu dikey cetvelden kaynaklandı. Başlık gösterilmezse, işaretlenen konumlar, görüntülenen üst kısmın sayfanın üstü olduğunu varsaydığı kadar açık kalır. 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