Cara Menyalin Paragraf dari MS Word ke Sel Excel dengan Macro VBA
Tip kali ini akan membahas cara menyalin suatu paragraf dari MS Word ke dalam sel yang aktif di workbook Excel menggunakan kode macro.
Meskipun terkesan tidak biasa, menyalin tulisan berupa kalimat-kalimat dalam suatu paragraf dari aplikasi Word ke dalam sel di worksheet Excel merupakan suatu hal yang sangat memungkinkan untuk dilakukan.
Sel Excel sendiri memang bukanlah alat yang tepat digunakan untuk memproses jumlah teks yang demikian panjang lebar dituliskan.
Kode Macro di bawah ini hanya memberikan suatu penjelasan dan sebagai contoh dalam memproses perintah macro bagaimana membuka dokumen Word, kemudian menyalin salah satu paragraf yang ada di dalamnya, dan membuat salinan paragraf tersebut ke dalam sel yang aktif di workbook Excel Anda.
Berikut ini langkah-langkah yang bisa Anda ikuti:
1. Buka VBE Excel dengan cara menekan tombol ALT+F11 pada keyboard secara bersamaan.
2. Buka menu Insert > Module.
3. Pada Module, ketik kode berikut lalu tekan Enter:
5. Tepat di bawah kode di atas, ketik variabel objek, sebagai contoh A untuk aplikasi dan B untuk dokumen Word:
Dim A As Object, B As Object
6. Ketik juga variabel objek (misalnya C) untuk memuat nama file Word Anda yang berisi tulisan lebih dari satu buah paragraf dan alamat folder file tersebut di komputer Anda.
7. Jika Word tidak berhasil dibuka tampilkan statement On Error:
On Error Resume Next
8. Aktifkan Word jika berhasil dibuka dengan kode:
If Err.Number = 429 Then
Err.Clear
10. Kode ini membuat aplikasi Word jika tidak berhasil dibuka:
End If
11. Pastikan agar Word benar-benar tampil di layar dengan kode:
12. Ketik alamat file Word yang akan disalin paragrafnya pada variabel C:
C = "C:\Alamat\File\Anda\fileWord.docx"
13. Aktifkan aplikasi Word:
14. Tugas variabel B untuk menampilkan file dokumen Word:
Set B = A.Documents(C)
15. Paksa jika dokumen Word tidak berhasil dibuka.
16. File dibuka, maka aktifkan file tersebut.
B.Activate
17. Mulai menyalin paragraf misalnya paragraf tiga yang akan disalin:
18. Aktifkan workbook dan salinkan teks yang tersalin ke dalam sel yang aktif dengan kode:
19. Paste-kan paragraf ketiga tersebut.
ActiveSheet.Paste
20. Beri perintah untuk menutup file Word tanpa perlu menyimpan perubahan:
21. Hentikan aplikasi Word dengan kode:
A.Quit
22. Lepaskan memori penyimpanan untuk kedua variabel objek di bawah:
Set A = Nothing
Kode lengkapnya sebagai berikut:
Dim A As Object, B As Object
Dim C As String
On Error Resume Next
Set A = GetObject(, "Word.Application")
If Err.Number = 429 Then
Err.Clear
Set A = CreateObject("Word.Application")
End If
A.Visible = True
C = "C:\Alamat\File\Anda\fileWord.docx"
A.Activate
Set B = A.Documents(C)
If B Is Nothing Then Set B = A.Documents.Open(C)
B.Activate
B.Paragraphs(2).Range.Copy
ThisWorkbook.Activate
ActiveSheet.Paste
B.Close Savechanges:=False
A.Quit
Set B = Nothing
Set A = Nothing
End Sub
Selanjutnya, Anda bisa mencoba kode macro yang telah Anda buat tersebut dan jika terjadi error maka pastikan untuk menghindari kesalahan dalam penulisan kode serta penulisan nama file dan nama folder-nya di komputer Anda.
Selamat mencoba dan semoga berhasil.