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
<[EMAIL PROTECTED]> 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 <[EMAIL PROTECTED]> 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.
