AccessTr.neT

aşağıdaki gibi oluyor

Sub toWord()
Dim WordApp As Word.Application
Dim doc As Word.Document
Dim sel As Word.Selection

Set WordApp = New Word.Application
WordApp.Documents.Add
Set doc = WordApp.ActiveDocument
Set sel = WordApp.Selection

WordApp.Visible = True
dilekceKonusu = sicili & " sicil sayılı " & adı & " " & soyadı & " " & [izin tarihi] & " tarihinden geçerli " _
& [izin süresi] & " gün senelik iznini " & [izin adresi] & " 'nde geçirmek üzere ayrılma talebinde bulunmuştur"

With WordApp
.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
.Selection.TypeText Text:=".........................................TC KAYMAKAMLIĞI"
.Selection.TypeParagraph
.Selection.TypeParagraph
.Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
.Selection.TypeText Text:="Tarih : " & Date
.Selection.TypeParagraph
.Selection.TypeText Text:="Sayı : " & 111111
.Selection.TypeParagraph
.Selection.TypeText Text:="Konu : " & adı & " , " & soyadı
.Selection.TypeParagraph
.Selection.TypeParagraph
.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
.Selection.TypeText Text:=".........................................ŞUBE MÜDÜRLÜĞÜNE"
.Selection.TypeParagraph
.Selection.TypeParagraph: .Selection.TypeText Text:=vbTab
.Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft

.Selection.Font.TextColor.RGB = vbRed: .Selection.TypeText Text:=sicili
.Selection.Font.TextColor.RGB = vbBlack: .Selection.TypeText Text:=" sicil sayılı "
.Selection.Font.TextColor.RGB = vbRed: .Selection.TypeText Text:=adı & " " & soyadı & " " & [izin tarihi]
.Selection.Font.TextColor.RGB = vbBlack: .Selection.TypeText Text:=" tarihinden geçerli "
.Selection.Font.TextColor.RGB = vbRed: .Selection.TypeText Text:=[izin süresi]
.Selection.Font.TextColor.RGB = vbBlack: .Selection.TypeText Text:=" gün senelik iznini "
.Selection.Font.TextColor.RGB = vbRed: .Selection.TypeText Text:=[izin adresi]
.Selection.Font.TextColor.RGB = vbBlack: .Selection.TypeText Text:=" 'nde geçirmek üzere ayrılma talebinde bulunmuştur"
.Selection.TypeParagraph: .Selection.TypeText Text:=vbTab
.Selection.TypeText Text:="Gereğini arz ederim."
.Selection.TypeParagraph
.Selection.TypeParagraph
.Selection.TypeParagraph
.Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
.Selection.TypeText Text:="Birim Amiri"


End With

End Sub

Sn. alperadn01, referansları açıp MISSING: ile başlayan referansı kaldırarak deneyiniz.

ozan bey onu da denedim ama bir türlü olmuyor.yine vb sayfasını açıyor ve word sayfası oluşturmuyor. anlamış değilim.

hem evde hemde burda denedim. ikisinde de hatasız çalışıyor.
son olarak word versiyonunuzun 2010 dan düşük olması ihtimali geliyor aklıma.
renklendirme kodları 2010 için hazırlanmıştı.

olabilir çünkü ben office 2003 kullanıyorum. ancak 2010 dada denedim şimdi yine olmadı. sizi bayağı yordum ama 2003 e göre yardımda bulunabilirsiniz sevinirim.saygılar

indirdiğiniz ve referanslarını değiştirdiğiniz dosyayla denemeyin. örneği yeniden indirip ondan sonra 2010 ' da deneyin. yine olmazsa o zaman hazırlayım 2003 versiyorunu