... Bisakah mailings aktif ketika ms word dipanggil dan terbuka? ...

Sepertinya bisa... (^_^)/ Saya sih belum mencoba... :D

... Apakah code yg saya masukkan tersebut kurang sehingga mailings tidak aktif? ...

Sepertinya iya. Script di atas baru sampai tahap membuka dokumen Word, namun belum ada referensi ke objek MailMerge. Objek MailMerge merupakan member dari objek Document. Kalau dihubungkan dengan script mas @Vei-Rid di atas, objek MailMerge merupakan member dari objek wrdDoc, sehingga bisa dipanggil dengan script wrdDoc.MailMerge. Bisa dilihat contoh scriptnya di sini ...

... btw untuk memanggil folder (membuka folder tertentu) punya conto scriptnya ngga mas ...

Kalau hanya ingin menampilkan Folder Browser, sepertinya script pada diskusi Cara Menampilkan Gambar bisa digunakan.... :)

Atau, bisa juga dengan menggunakan script ini (lebih sederhana):

Sub SelectFolder()
    Dim sFolder As String

    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Select a Folder"
        .ButtonName = "Select"
        .InitialFileName = ThisWorkbook.Path & "\"

        If .Show = -1 Then sFolder = .SelectedItems(1)
    End With
    
    If sFolder <> vbNullString Then
        '+--- Folder dipilih, susun proses selanjutnya.
    End If
End Sub

Demikian... ;)

...masih belum bisa, tp file tetep terbuka...

Saya tidak tahu masalahnya dimana. Mungkin sebagai langkah awal, siapkan dahulu dokumen Word yang sudah diatur Mail Merge-nya (termasuk link ke sumber datanya yang berupa file Excel). Lalu coba dibuka:

...
sFile = "C:\Test\data.xlsx"
With wrdDoc.MailMerge
    .OpenDataSource Name:= sFile, _
        ConfirmConversions:=False, _
        ReadOnly:=False, _
        LinkToSource:=True, _
        AddToRecentFiles:=False, _
        Revert:=False, _
        Format:=wdOpenFormatAuto, _
        Connection:="Data Source=" & sFile & ";Mode=Read", _
        SQLStatement:="SELECT * FROM `Sheet1$`"

    .Destination = wdSendToNewDocument
    .SuppressBlankLines = True
    With .DataSource
        .FirstRecord = wdDefaultFirstRecord
        .LastRecord = wdDefaultLastRecord
    End With
    .Execute Pause:=False
End With
...

... untuk yang folder berhasil bang, tp pengen tau dong maksud dari ...

.Title = "Select a Folder"

untuk mengatur judul jendela dialog,

.ButtonName = "Select"

untuk mengubah nama tombol default pada dialog tersebut (defaulnya adalah Open) menjadi Select.

Demikian... ;)

... tapi ko filenya tidak tampil ya bang ...

Khan scriptnya hanya untuk memilih folder saja, makanya tidak ada daftar file yang ditampilkan. Kalau maunya adalah untuk memilih nama file (bukan hanya nama foldernya saja), maka scriptnya harus diubah menjadi:

Sub SelectFile()
    Dim sFile As String

    With Application.FileDialog(msoFileDialogOpen)
        .InitialFileName = ThisWorkbook.Path & "\"
        .Title = "Pilih file data..."

        If .Show Then sFile = .SelectedItems(1)
    End With
    
    If sFile <> vbNullString Then
        '+--- File dipilih, susun proses selanjutnya.
    End If
End Sub

Script di atas untuk menampilkan seluruh file yang didukung (bisa dibuka) oleh Excel. Klo mau tipe filenya lebih bebas, scriptnya:

Sub SelectFile()
    Dim sFile As String

    With Application.FileDialog(msoFileDialogFilePicker)
        .Filters.Add "All file", "*.*"
        .Filters.Add "Text files", "*.txt; *.csv"
        .Filters.Add "Excel files", "*.xls*"
        .InitialFileName = ThisWorkbook.Path & "\"
        .Title = "Pilih file data..."

        If .Show Then
            sFile = .SelectedItems(1)
            If sFile <> vbNullString Then
                '+--- File dipilih, susun proses selanjutnya.
            End If
    End With
End Sub

Demikian... ;)