Error 5101..?? Gak hapal juga !! Error descriptionnya apa ? Kalau gak salah... itu sih mungkin krn bookmark di templatenya belum ada.. Kalu memang belum ada, coba bikin dulu. Kalau sudah.. tambahin di VBA nya On Error Resume Next di bawah Sub ProsesSurat
atau hapus aja baris : Selection.Goto wdGoToBookmark, Name:="IsiSurat" sebenarnya baris itu utk menempatkan kursor di bagian word yang kita inginkan untuk menulis text tambahan... Kalau kira-kiranya tidak perlu menempatkan kursor.. yaa hapus aja. Gitu cenah kang Ara.. Salam Bobby <Pesan ini ditulis ulang karena pesan yang hampir sama sebelumnya mungkin gagal terkirim, tapi kalau pesan sebelumnya ternyata nyampe juga.. ya abaikan aja..> --- In [email protected], ara Firmansyah <[EMAIL PROTECTED]> wrote: > > Hatur nuhun pisan kang...! > sdh sy buat dan disimpan Form, kasih command button sesuai intruksi...he..he.. > ngan erorr kang eror na : Run-time error '5101' > kunaonya nya kangg???? > > > Bobby <[EMAIL PROTECTED]> wrote: Teu nanaon Kang ara... Saya juga banyak belajar di milis ini > Seperti pepatah bilang "...Sesat bertanya malu di jalan.." he he > > Sub ProsesSurat itu bisa di simpan di Form tempat kita > mengakses surat yang ingin dibuka, atau disimpan di module > agar bisa diakses dari form manapun. > Untuk mengekseskusinya coba masukkan ke dalam event procedure > command button. Contoh : > > Private Sub cmdCetakSurat_Click() > ProsesSurat > End Sub > > Tambahan : Untuk menampilkan beberapa surat (pilihan) bisa > pake Option Group dengan beberapa option button, dengan statement > Select Case....End Select > Selamat mencoba. Salam > > --- In [email protected], ara Firmansyah > <ara_firmansyah@> wrote: > > > > Terima kasih mas bobby..! > > sy mohon maaf sebelumnya mas, rada oon yeuhh...! > > kalau : > > Sub ProsesSurat > > Dim appWord As New Word.Application > > With appWord > > .Documents.Add & "C:\Surat\Surat#1.dot" 'template word > > .ActiveDocument.ShowSpellingErrors = False > > .Selection.Goto wdGoToBookmark, Name:="IsiSurat" 'bookmark > dalam template > > .Visible = True > > End With > > End sub > > di buat dimana??? ketika kita mau panggil tampaltenya atau gimana?? > > Punten pisan...! > > > > > > > > > > > > Bobby <abo_madani@> wrote: > Untuk memunculkan data ke word, saya pakai > > cara di bawah ini. Sebelumnya di Visual Basic > > Reference-nya harus dicentang : > > "Microsoft office 10.0 Object Library" > > "Microsoft Word 10.0 Object Library" > > > > (kalau officenya 10.0) > > > > Sub ProsesSurat > > Dim appWord As New Word.Application > > > > With appWord > > .Documents.Add & "C:\Surat\Surat#1.dot" 'template word > > .ActiveDocument.ShowSpellingErrors = False > > .Selection.Goto wdGoToBookmark, Name:="IsiSurat" 'bookmark > dalam > > template > > .Visible = True > > End With > > End sub > > > > Catatan : > > Sebelumnya sudah dibikin template word > (contoh "C:\surat\surat#1.dot") > > dengan field data dari mergefield, lalu tentukan bookmark > > (contoh : "IsiSurat")untuk mengatur posisi kursor ketika masuk ke > > dalam template. Setelah masuk ke word, lalu ambil data dari > > table/query yang menjadi sumber data. > > > > Mudah2an bisa membantu > > Thx > > __________________________________________________________ > > > > --- In [email protected], ara Firmansyah > > <ara_firmansyah@> wrote: > > > > > > Assalamualaikum wr. wb > > > Mungpung pada ngumpul, mohon bantuannya kepada pakar access..? > > > 1. Saya buat aplikasi sederhana dengan data di simpan di MS > Acess > > dan hasilnya di tampilkan lewat word dengan mail marege, karena > > aplikasi untuk surat perjanjian maka sy pake word karena banyak > > format textnya, saya sdh pake access page tapi Input Masknya tidak > > berfungsi. Mohon mungkin ada alternatif lain....???? (maklum masih > > furmula) > > > 2. Gimana cara mengapus/delete file dengan VBA???? > > > > > > Terima kasih sebelum dan sesudahnya. > > > Wassalam. > > > Ara > > > > > > > > > --------------------------------- > > > Yahoo! oneSearch: Finally, mobile search that gives answers, > not > > web links. > > > > > > > > > > > > > > > > > --------------------------------- > > Looking for a deal? Find great prices on flights and hotels with > Yahoo! FareChase. > > > > > > > > > --------------------------------- > Fussy? Opinionated? Impossible to please? Perfect. Join Yahoo!'s user panel and lay it on us. >
