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.
'
' 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..
4 Komentar
MUANTAP.......GAN. TP KETIKA WORD HASIL KETIKAN SAYA ADA TABEL.. GA BISA JALAN GAN GARISNYA... MOHON BANTUANNYA
Balassaya coba run, tapi ada runtime error '4120' bad parameter
Balasapakah penyebabnya? mohon pencerahan
Bagaimana klo bikin Marco untuk membuat garis tepi kiri vertikal dengan top-nya berupa garis miring dan botom-nya berupa garis miring yang berlawanan posisi, untuk tiap halaman (seperti contoh gambar/screen shot di awal tulisan)
Balasruntime error '4120' bad parameter
BalasPenulisan markup di komentar