worde aktarma

arkadaşlar geçerli bir formu formu worde aktarmak istiyorum ancak acces konusunda yeni olduğum için bir türlü yapamadım bu konuda bana yardımcı olursanız sevinirim

Dim WordApp As Word.Application

Dim AYol As String

AYol = CurrentProject.Path & "\Ustyazı36" & ".doc"

 

Application.FollowHyperlink AYol, , True, True

On Error Resume Next

Set WordApp = GetObject(, "Word.Application")

On Error GoTo ErrHandler

WordApp.Documents.Open (AYol)

WordApp.Visible = True

WordApp.WindowState = wdWindowStateMaximize

With WordApp.Selection

    .Goto what:=wdGoToBookmark, Name:="Ad"

    .TypeText BABAADI & " "

    .Goto what:=wdGoToBookmark, Name:="dtarih"

    .TypeText DOGUMTARIHI & " "

    .Goto what:=wdGoToBookmark, Name:="ad2"

    .TypeText ADISOYADI & " "

    .Goto what:=wdGoToBookmark, Name:="sira"

    .TypeText SIRANO

End With

DoEvents

WordApp.Activate

'WordApp.Documents.Save 'Kaydetmek isterseniz tırnağı boşaltınız..

 

WordApp.Print

Set WordApp = Nothing

Exit Sub

ErrHandler:

Set WordApp = Nothing

Bu kodu denermisiniz....

Konu ile tekrar dönerseniz seviniriz olumlu yada olumsuz.

teşekür ederim duayen yapmaya çalışıyorum yaptığımda tekrar geri döneceğim

2010 ofice programı kullanıyorum bu kodları girdiğimde 'user defined type not defined' hatası veriyor.

User-defined type not defined hatasını alıyorsanız:
Şunu deneyiniz.

Alt+F11 tuşlarına basarak Visual basic penceresini açın.Tools menusünün altında referanslardan "Microsoft DAO 3.6 Object Library" yi işaretleyin ve OK e basın.