AccessTr.neT

fatih bey; kusura bakmayın ama yine olmadı. 3 tane bilgisayarda ayrı ayrı denedim olmadı. zahmet olmazsa siz 2003 e göre hazırlayabilirseniz son olarak onu da deneyim oldu oldu olmazsa artık yapacak bişey kalmayacak. saygılar

referanslarda MISSING olanları kaldır.
yine referanslarda microsoft word 11.0 object library olanı işaretle.

    Dim objWord As New Word.Application

    ' Word ü aç

    objWord.Visible = True

    'yeni belge

    objWord.Documents.Add

    With objWord.Selection

    'text1 i word e aktar

    .TypeText Text1

    'tümünü seç

    .WholeStory

    'font özellikleri

    .Font.Size = 50

    .Font.Outline = True 'sadece kenar çizgili

    .Font.Italic = True 'eğik

    .Font.ColorIndex = wdBlue 'mavi renk

    .HomeKey Unit:=wdStory 'ctrl Home

    End With

    Set objWord = Nothing 

yardımlarınız için teşekkür ederim. bütün sorun referanslarda microsoft word 11.0 object library olanı işaretlemekteymiş. saygılar

office 2007 yüklü ama microsoft word 11.0 object library yok microsoft word 12.0 object library var onu işaretledim olmadı???

MISSING gördüklerini kaldır. gerekli olanı işaretle sonrasında programı kapatıp açmanda önerilir.