merhaba arkadaşlar
Private Sub Word_Click()
Dim WordApp As Word.Application
Dim AYol As String
AYol = CurrentProject.Path & "\er5832" & ".docx"

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ıs"
.TypeText [adı]
.Goto what:=wdGoToBookmark, Name:="tck"
.TypeText [tc]
.Goto what:=wdGoToBookmark, Name:="Sys"
.TypeText [sayısı]

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

End Sub


word' ü kapatırken ayarlanan yer imleri bozulmasın ve de kapatıp çıkarken farklı kaydet (supheliifade.docx) uzantılı nasıl bir kod yazmam gerek...

bu kodu WordApp.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges kullandım ana oda kaydetmeden direk kapatıyor

Merhaba, sayın Er_kanas
Bence word belgelerinize yer imlerini ekledikten sonra farklı kaydet ile belge şablonu olarak kaydedin. Bu şekilde formdan verileri aktardığınızda ve gerekli düzenlemeleri yaptıktan sonra doğrudan kaydet deseniz de farklı kaydet seçeneği gelecektir. Hazırladığınız şablonu değiştirmenin tek yolu, şablonu doğrudan açıp gerekli değişiklikleri yaptıktan sonra farklı kaydet ile kayıt etmenizdir. Ayrıca belgenin çıktısını aldıktan sonra elektronik arşiv yapmanız gerekiyorsa kayıt etmeden kapatmayı da önleyecektir bu yöntem.
İyi çalışmalar..

Bende mi bir problem var sayın hturkavci03 bir türlü farklı kaydet seçeneği gözükmedi...

[ word belgelerinize yer imlerini ekledikten sonra farklı kaydet ile belge şablonu olarak kaydedin. Bu şekilde formdan verileri aktardığınızda ve gerekli düzenlemeleri yaptıktan sonra doğrudan kaydet deseniz de farklı kaydet seçeneği gelecektir.

aynen uyguladım ama nafilee..bu kadar basit bir olay bile büyük bir sorun haline geldi
üstte yazdığım koda uygun kod varsa memnun olurum kolay gelsin...

Bir Word belgesi açıp farklı kaydet yapın. Gelen pencerede kayıt türü kısmında Word 97-2003 Şablonu seçin. İsim vererek kaydedin.

Ekteki örneği incelerseniz olacaktır.

Bu arada Sayın İsmail Küçükşengün ve Sayın beab2005 tarafından yapılmış bir örnektir ve kodları örneğe uyarlayan Sayın tdsharun'dur. Değerli hocalarıma katkılarından ve bu güzel paylaşımlarından dolayı tekrar teşekkür etmek isterim.

Sayin Er_kanas. hturkaci03;

Access projesi icinden vba ile diger uygulamalara, sabit raporun aktarilmasi islemi formattaki cizgiler, resimler, yazi tipleri vb. bircok seyi istenilen olcude gerceklesmesi buyuk zaman kaybi. Hedef sablon olusturup, uzerindeki belirli alanlarin degisimi ve ayni dokumani defalarca kullanmak amaclaniyorsa neden access raporlarini kullanmiyorsunuz merak ettik.
Access te hazilanmis sablonun word'e aktarilip, veri satirlarinda guncelleme yapma ihtiyacini anlayamadik. Amac rapor uzerindeki alan verileri uzerinde guncelleme yapip pdf, doc atmak ise onceki mesajimiza ilave ettigimiz prg. on izle botonuna basip rapor dugmesine basildiginda farkli kaydetle pdf olarak raporun tum ozelliklerini aktarmakta zaten.

Taruz beyin dedigi gibi "Kendini bulmak icin, once kaybolmak lazim"

Kolay gelsin.......