Skip to main content

AccessTr.neT


formdaki bilgileri worde aktarmak

formdaki bilgileri worde aktarmak

Çözüldü #7
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
Cevapla
Çözüldü #8
Sn. alperadn01, referansları açıp MISSING: ile başlayan referansı kaldırarak deneyiniz.
Cevapla
Çözüldü #9
ozan bey onu da denedim ama bir türlü olmuyor.yine vb sayfasını açıyor ve word sayfası oluşturmuyor. anlamış değilim.
Cevapla
Çözüldü #10
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ı.
Cevapla
Çözüldü #11
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
Son Düzenleme: 03/01/2013, 17:42, Düzenleyen: alperadn01.
Cevapla
Çözüldü #12
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task