+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: formdaki bilgileri worde aktarmak (/konu-formdaki-bilgileri-worde-aktarmak.html)
Cvp: formdaki bilgileri worde aktarmak - alperadn01 - 03/01/2013
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
Cvp: formdaki bilgileri worde aktarmak - ozanakkaya - 03/01/2013
Sn. alperadn01, referansları açıp MISSING: ile başlayan referansı kaldırarak deneyiniz.
Cvp: formdaki bilgileri worde aktarmak - alperadn01 - 03/01/2013
ozan bey onu da denedim ama bir türlü olmuyor.yine vb sayfasını açıyor ve word sayfası oluşturmuyor. anlamış değilim.
Cvp: formdaki bilgileri worde aktarmak - fatih karagöl - 03/01/2013
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ı.
Cvp: formdaki bilgileri worde aktarmak - alperadn01 - 03/01/2013
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
Cvp: formdaki bilgileri worde aktarmak - fatih karagöl - 03/01/2013
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