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