Memasukkan Seluruh Nama File Dari Suatu Folder Kedalam Microsoft Word

Dibawah ini akan dijelaskan bagaimana memasukkan seluruh nama file dari suatu folder kedalam Ms. Word. Cara ini akan cukup berguna pada saat anda ingin mendata isi dari suatu CD tanpa mengetik nama file satu persatu.
1. Membuat Macro
Untuk membuat macro untuk Ms. Word 2007 pilih menu View > Macros atau tekan tombol Alt+F8. Pada Macro Name, isikan nama dari macro yang akan dibuat (tanpa spasi), misalkan ExtractFileName. Kemudian tekan tombol Create dan akan muncul editor bertuliskan :
Sub ExtractFileName()

‘ ExtractFileName Macro

End Sub
Sisipkan script dibawah ini sebelum baris End Sub
Dim MyPath As String
Dim MyName As String
‘let user select a path
With Dialogs(wdDialogCopyFile)
If .Display() <> -1 Then Exit Sub
MyPath = .Directory
End With
‘strip quotation marks from path
If Len(MyPath) = 0 Then Exit Sub
If Asc(MyPath) = 34 Then
MyPath = Mid$(MyPath, 2, Len(MyPath) – 2)
End If
‘get files from the selected path
‘and insert them into the doc

MyName = Dir$(MyPath & “*.*”)
Do While MyName <> “”
Selection.InsertAfter MyName & vbCr
MyName = Dir
Loop
‘collapse the selectionSelection.Collapse wdCollapseEnd
Kemudian simpan file (Ctrl+S) lalu tutup editor dan kembali ke Ms. Word (Alt+Q)
2. Menjalankan Macro
Untuk menjalankan macro, tekan tombol Alt+F8. Kemudian pilih macro yang dibuat tadi ExtractFileName dan tekan tombol Run. Pilih direktori yang akan diekstrak nama filenya, kemudian tekan tombol Open. Nama file dari direktori tersebut akan masuk dalam Ms. Word.
Semoga Bermanfaat.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s