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..

Share this :