Garis tepi pada Akta Notaris

Garis tepi pada Akta Notaris

Sebagai seorang Notaris, atau seorang karyawan Notaris, atau mahasiswa Kenotariatan pasti kenal dengan akta Notaris kan.

tidak asing dengan bentuk dari akta-akta Notaris itu sendiri.

kita pasti mengetahui setiap akta Notaris ada garis tepiannya.

sebagai bahan pembelajaran dan pengingat, saya pun mencari cara untuk membuatnya,

akhirnya penulis menemukan pada blog lain..

terimakasih penulis ucapkan kepada Wirawan Sidiq atas ilmunya.

yuk cek-cek

Cara Membuat Garis Tepi Pada Akta Notaris Secara Otomatis

 

Sore gan...

Lama ga update artikel nih saya, maklum lagi dikejar kerjaan di dunia nyata gan..hehehe

Kali ini saya akan membagikan cara membuat garis tepi pada akta Notaris secara otomatis. Agan tau kan bentuk pengetikan akta notaris, jadi kalo ada space di sebelah kanan pasti akan di isi dengan garis putus-putus seperti contoh gambar di atas tuh, tentunya akan terasa repot dan butuh kejelian mata kita untuk membuat garis putus-putus secara manual, apalagi jika membuat aktanya dalam jumlah banyak bisa kriting jari kita, hehe..

Nah biar ga repot dan gak pedih di mata, langsung aja gan kita menuju TKP, hehehe..begini gan caranya :

1. Buka aplikasi MS. Word

2. lalu masuk ke menu "View"

3. Pilih Macros (pada menu view letaknya paling kanan)  akan muncul seperti gambar di bawah ini

 

4. Lalu klik tombol "Create"

5. Copy script dibawah ini :

Sub membuatgaristepi()
'
' membuatgaristepi Macro
'
'
Dim d1, d2, xt As Long
Dim h, i, jb As Integer
Dim DP As Object
    Set DP = ActiveDocument.BuiltInDocumentProperties
    jb = DP("Number of Lines")
    Selection.HomeKey Unit:=wdStory
For h = 1 To jb
Selection.EndKey
Selection.Start = Selection.End - 1
If Selection.Text = "#" Then
Selection.Delete
Selection.MoveStart Unit:=wdCharacter, Count:=1
GoTo lewat
ElseIf Selection.Text = "@" Then
Selection.MoveEnd Unit:=wdCharacter, Count:=1
Selection.Delete
GoTo Usai
End If

Selection.Collapse Direction:=wdCollapseEnd
If Selection.Paragraphs.Alignment = wdAlignParagraphCenter Then
    Selection.HomeKey xt = Selection.Information(wdHorizontalPositionRelativeToTextBoundary)
    Selection.Paragraphs.Alignment = wdAlignParagraphLeft
  
    For i = 1 To 200
    Selection.InsertAfter "-"
    Selection.Collapse Direction:=wdCollapseEnd
    d1 = Selection.Information(wdHorizontalPositionRelativeToTextBoundary)
        If d1 >= xt Then Exit For
    Next i
End If

Selection.EndKey
d1 = Selection.Information(wdHorizontalPositionRelativeToTextBoundary)
d2 = d1
 For i = 1 To 200
 Selection.InsertAfter "-"
 Selection.Collapse Direction:=wdCollapseEnd
 d1 = Selection.Information(wdHorizontalPositionRelativeToTextBoundary)
    If d1 < d2 Then Exit For
    d2 = d1
Next i
Selection.TypeBackspace
Selection.MoveStart Unit:=wdCharacter, Count:=1
lewat:

StatusBar = "memproses baris ke " & h & " dari " & jb & " baris - by wirawansigid.blogspot.co.id"
Next h

Usai:
MsgBox "Dokumen Anda telah berhasil diproses" & vbCr & vbCr & "wirawansigid.blogspot.co.id"
End Sub

6. Paste script ke kotak yang disediakan lalu Ok.

7. Sekarang silahkan di coba ketikkan sesuatu lalu masuk ke menu view dan klik "Run" nanti akan otomatis jalan sendiri membuat garis putus-putusnya.

Sekian dulu gan cara membuat garis tepi pada akta Notaris secara otomatis, selamat mencoba ya..

Sumber : http://wirawansigid.blogspot.co.id/2016/12/cara-membuat-garis-tepi-pada-akta.html