Membuat Userform untuk entry data di Ms- Word,
yang biasanya VBA di lakukan di Excel, berikut coba di Word, dan hasilnya sama aja berhasil.
hanya saja tentunya kurang flesibel jika diword karena sedikit terbatas dari segi layout dsb.
dan berikut script macro VBa nya :
Masukna script di Tombol Tambahnya :
Private Sub CmdTambah_Click()
Dim Tablesiswa As Table
Dim NewRow As Row
Set Tablesiswa = ActiveDocument.Tables(1)
Set NewRow = Tablesiswa.Rows.Add
NewRow.Cells(1).Range.Text = TextBox1.Text
NewRow.Cells(2).Range.Text = TextBox2.Text
NewRow.Cells(3).Range.Text = TextBox3.Text
NewRow.Cells(4).Range.Text = TextBox4.Text
End Sub
Dim NewRow As Row
Set Tablesiswa = ActiveDocument.Tables(1)
Set NewRow = Tablesiswa.Rows.Add
NewRow.Cells(1).Range.Text = TextBox1.Text
NewRow.Cells(2).Range.Text = TextBox2.Text
NewRow.Cells(3).Range.Text = TextBox3.Text
NewRow.Cells(4).Range.Text = TextBox4.Text
End Sub
semoga bermanfaat