Makro Kata di luar perekam Makro: Tutorial Makro Office 2016, 365/2019 dan contoh yang berguna

Penerapan: Word 365, 2019, 2016; Sistem operasi Windows dan MAC OS X.

Ini pertanyaan dari pembaca ::

Saya seorang guru biasanya menggunakan Word 2019 untuk menulis dokumen saya. Saya sering perlu mengubah font dan ukuran paragraf dokumen saya. Apakah ada cara untuk mengotomatisasi pekerjaan saya dengan Macro, sehingga saya dapat mengubah paragraf dokumen saya dengan satu klik? Saya yakin ini akan menghemat beberapa jam per minggu, yang dengan senang hati akan saya investasikan untuk tugas-tugas lain.

Terima kasih atas pertanyaan Anda. Keuntungan utama dari Macro adalah mereka memungkinkan Anda mengotomatisasi tugas-tugas Anda di aplikasi Microsoft Office. Makro dapat direkam atau dikodekan secara manual menggunakan Visual Basic for Applications (VBA). Word mengirimkan perekam Makro yang memungkinkan Anda mengembangkan skrip otomatisasi tanpa pengkodean. Jika Anda baru memulai dengan otomatisasi, ini mungkin solusi yang cukup baik. Yang mengatakan, dengan sedikit pengetahuan VBA, Anda dapat menulis Macro yang efisien dan kuat.

Mengaktifkan tab pengembang di Word

Jika Anda tidak melihat tab Pengembang di Pita Microsoft Word, Anda harus menyiapkan lingkungan pengembangan Makro.

• Buka dokumen Word baru. Jika Anda ingin mengerjakan file yang sudah ada, pastikan Anda memiliki salinan untuk cadangan, sebelum membuat perubahan apa pun.
• Sekarang, lanjutkan dan buat menu pengembang terlihat di Ribbon .

Merekam Makro Kata – contoh praktis

• Sekarang, tekan tab Pengembang yang baru ditambahkan.
• Pergi ke grup tombol Kode .

• Tekan tombol Rekam Makro untuk menjalankan fungsi perekam Makro.

• Tentukan nama yang bermakna untuk Makro Anda. Catatan: Karena nama yang Anda berikan akan digunakan dalam kode VBA yang dibuat secara otomatis, Pastikan tidak ada spasi di nama Makro.

•  Catatan: Meskipun dimungkinkan untuk menetapkan Makro ke tombol , untuk kesederhanaan kami akan menjalankan Makro secara manual melalui tab Lihat atau tab Pengembang.

• Jalankan urutan langkah yang ingin Anda rekam. Dalam hal ini, Anda akan merekam langkah-langkah berikut:
  • Pilih paragraf tertentu dalam dokumen Anda.
  • Buka tab Beranda .
  • Atur font menjadi Times New Roman.
  • Atur Ukuran Font menjadi 16.
  • Pusatkan Teks Anda dengan menekan Ctrl + E.
• Setelah Selesai, kembali ke tab Pengembang dan tekan Stop Recording .
• Sekarang mari kita lihat kode VBA yang dibuat secara otomatis. Tekan Macro dan kemudian sorot AutoFormat Macro dan tekan Edit .

• Tutup Editor VBA.

Simpan pekerjaan Anda di templat berkemampuan Makro Word

• Tekan File , lalu Save As .
• Di sisi kanan dialog Simpan Sebagai, tentukan lokasi penyimpanan Anda dan berikan nama yang bermakna untuk Buku Kerja Anda.

• Pilih Word Macro Enabled Document sebagai tipe dokumen Anda. Catatan: Dokumen Word Anda akan disimpan dengan akhiran .docm.
• Tekan Tombol Simpan .

Menjalankan makro Anda

• Buka dokumen Word Anda.
• Pilih Paragraf yang ingin Anda format secara otomatis. Sebagai contoh, inilah paragraf yang saya pilih:

• Buka tab Lihat .
• Tekan tombol Macro .
• Pilih Makro Format Otomatis Anda
• Hit Run – ini akan menerapkan makro pada paragraf yang dipilih.
• Voi'la, hasil yang bagus!

Menetapkan Makro Anda ke Tombol atau pintasan keyboard

Catatan: Ini adalah langkah opsional yang harus dicoba setelah Anda mengikuti tutorial perekaman Makro di atas.

Oke, sejauh ini dasar-dasar Makro kami berfungsi. Sekarang saatnya untuk sedikit meningkatkan kegunaan Makro kami di dokumen Word. Biarkan saya menunjukkan kepada Anda bagaimana Anda dapat mengaitkan Makro Anda dengan tombol akses cepat, sehingga Anda dapat meluncurkannya dengan lebih mudah.

• Klik kanan pada Ribbon dan pilih Customize the Quick Access Toolbar.
• Dialog Opsi Word akan muncul.
• Di menu turun bawah Pilih perintah dari, pilih Makro.
• Sorot Makro Anda dan tekan tombol Tambah >> untuk menambahkan pintasan ke Makro Anda ke Bilah Alat Akses Cepat .

• Tekan tombol Modify… untuk menentukan ikon yang cocok untuk Macro Anda.
• Tentukan nama Tampilan untuk tombol Anda.
• Tekan OK .
• Sekarang, Anda dapat meluncurkan Macro Anda dari Quick Access Toolbar, tepat di atas Ribbon.

Catatan: Anda dapat mengaitkan Makro Word Anda tidak hanya dengan tombol akses cepat tetapi juga dengan tombol perintah yang disematkan di dokumen Anda dan pintasan keyboard khusus tertentu.

Membuat Makro Word menggunakan VBA

Dengan beberapa keterampilan pengkodean Visual Basic for Applications yang sederhana, kita dapat mengedit makro dan menulis program untuk mengotomatiskan berbagai jenis pekerjaan menggunakan VBA.

Selain Catatan: FYI – beberapa aplikasi Microsoft Office, seperti Powerpoint dan Outlook, tidak memiliki perekam makro bawaan . Oleh karena itu, menulis VBA adalah wajib untuk menulis makro Powerpoint dan mengotomatiskan Outlook.

• Untuk mengedit makro, klik pada  tab Pengembang  dan pilih Makro dalam opsi kode.
• Klik pada makro dan pilih  Edit .
• Editor Visual Basic untuk aplikasi akan terbuka.
• Mari kita asumsikan bahwa kita ingin mengedit Macro secara manual yang telah kita rekam di langkah sebelumnya, sehingga Word tidak hanya mengatur Ukuran, font dan perataan paragraf, tetapi juga warnanya.
• Mengatur warna bagian dicapai dengan menggunakan perintah VBA berikut:

[code] Pilihan.Font.Warna [/code]

• Dalam kasus kami, kami ingin menyetelnya ke warna biru acak, jadi kami akan menambahkan cuplikan berikut ke makro Tercatat kami:

[kode] Pilihan.Font.Warna = 16737792[/code]

• Begini tampilan kode VBA Anda:

• Di Editor VBA tekan File lalu Save .
• Kembali ke dokumen Anda, jalankan Makro Anda pada paragraf dan amati perubahan warna font.

• Voila!

Contoh Makro Kata Berguna yang dapat Anda tulis

Sejak menerbitkan tutorial ini, banyak pembaca meminta contoh Word Macro yang lebih mendalam. Daftar ini mencakup tugas paling umum yang dapat Anda otomatisasi menggunakan Visual Basic di Word. Ini dia:

Buat dan Simpan Dokumen Baru

Sub CreateNewDoc()
'This small snippet first creates a new document, then it checks whether a document with the same name already exists before saving.
Dim myDoc As New Document
Dim filePath As String

'Modify your file path as needed
filePath = "C:\MyNewDoc.docx"

Set myDoc = Documents.Add
With myDoc
If Dir(filePath) = "" Then
.SaveAs2 (filePath)
Else

'You have already an existing document

MsgBox ("Please use a different file name")
End If
End With

myDoc.Close SaveChanges:=wdPromptToSaveChanges

End Sub

Catatan: Saat membuat dokumen baru, Anda dapat menentukan template (file .dotm/.dotx) yang ingin Anda gunakan. Template biasanya disimpan di: C:\Users\\AppData\Roaming\Microsoft\Templates

Documents.Add Template:=<your_template_folder>

Buka dokumen Word dengan VBA

Sub OpenDoc()
'This code checks whether your document exists and then opens it
filePath = "C:\MyNewDoc.docx"

If Dir(filePath) = "" Then
MsgBox ("file doesn't exist")
Else
Documents.Open (filePath)
End If

End Sub

Menutup satu/semua dokumen yang terbuka

Sub CloseDoc()

'This code closes a specific document
filePath = "C:\MyNewDoc.docx"
Documents(filePath).Close SaveChanges:=wdPromptToSaveChanges
End Sub

Sub CloseAllDocs()
'This code closes all opened documents in your computer
Documents.Close SaveChanges:=wdPromptToSaveChanges

End Sub

Menyimpan Word sebagai PDF

Berikut cara mudah mengotomatiskan penyimpanan dokumen Word sebagai file PDF.

Sub SaveAsPdf()
'This code saves a word document in a PDF format
FileName = Left(CStr(ActiveDocument.Name), Len(CStr(ActiveDocument.Name)) - 5)
ActiveDocument.SaveAs2 FileName:="c:\" + FileName + ".pdf", FileFormat:=wdFormatPDF

End Sub

Menyisipkan header dan footer

Kode ini mengatur header dan footer halaman pertama dokumen Word Anda.

Sub InsertHeaderFooterFirstPage()
Dim myDoc As Document
Dim headerText As String
Dim footerText As String

Set myDoc = ActiveDocument
'Replace the header and footer text as needed
headerText = "This document was written by you"
footerText = "All rights reserved to you"

With myDoc.Sections(1)
'We first ensure that we can set different header and footer texts
.PageSetup.DifferentFirstPageHeaderFooter = True
'Setting the header and footer texts
.Headers(wdHeaderFooterFirstPage).Range.Text = headerText
.Footers(wdHeaderFooterFirstPage).Range.Text = footerText

End With

End Sub

Ide Makro Kata Tambahan

Berikut adalah beberapa ide lagi yang akan kami posting di masa mendatang.

1. Temukan dan Ganti (Metode Jalankan)
2. Menyisipkan paragraf (sebelum dan sesudah pilihan)
3. Mencetak dokumen secara terprogram
4. Bekerja dengan tabel

Ini menyimpulkan tutorial kami untuk hari ini. Seperti yang baru saja Anda lihat, ada banyak hal yang harus dilakukan dengan perekam makro Word dan Makro VBA di Word. Jika Anda mencari bantuan yang lebih spesifik yang melampaui cakupan tutorial ini, silakan hubungi kami melalui formulir kontak kami .