Merhaba
Sayın Taruz Hocamın mükemmelce hazırlamış olduğu kodlara eklemiş olduğum dosyalarda açıklaması olan projeyi ne şekilde uyguluya biliriz.

Merhaba..

Kopyalanacak dosyayı değişkene çevirmişsiniz.. Çoğalmada ekteki word dosyasını şablon olarak kullanın.. Alanlardaki imleri incelerseniz örneği geliştirmekte faydası olur.. Şablon dosyaları değişkenden alma işinide siz halletmişsiniz sanırım; uyarlarsınız..

İlgili kod şu şekilde..:

evet hocam çok teşekkür ederim şöyle bir yöntemle yaptım sonunda kurcalaya kurcalaya bunu ekledim ve istediğimi şu şekilde yaptım ilk önce c:\ sablon adında klasör yarattım içine teklif1, teklif2 , teklif3 adında klasörler ve içerilerine teklif şablonumu attım
deneme için aa adında bir alan yaratarak açılır pencere oluşturdum ve teklif1 , teklif2, teklif3 değerlerini atadım kodlar ektedir acemi işi istediğimi tabiri caizse sol kulağımı sağ elimle tutarak yaptım ama oldu
bu kodların özü seçim değiştiğinde ilgili klasörden anaşablonu değiştirmesi belki arkadaşlara faydası olur diyede çalışma örneğim

------------------------------------------------------------


a = [aa]
Dim ds
Dim cs
Dim fs

If a = "1" Then
Set ds = CreateObject("Scripting.FileSystemObject")
ds.CopyFile "c:\sablon\teklif1\teklif.doc", "c:\evraklar\"
End If

If a = "2" Then
Set cs = CreateObject("Scripting.FileSystemObject")
cs.CopyFile "c:\sablon\teklif2\Telkif.doc", "c:\evraklar\"
End If

If a = "Teklif3" Then
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile "c:\sablon\teklif3\telkif.doc", "c:\evraklar\"

End If


End Sub

hocam kdda bir sorun var wordü önceden açmadan veriyi aktarmıyor word ü manuel açınca aktarıyor

hocam koda word dosyasını açmayı ekledim ama aktarmada hala sorun var sanırım word tamamen aktif olmadan aktarmıyor
Sub WordeYaz()
Dim AYol As String
Dim oApp As Object

Set oApp = CreateObject("Word.Application")
oApp.Visible = True

Set WordApp = GetObject(, "Word.Application")
AYol = "C:\Evraklar\" & [Teklif No] & ".doc"
If dosyasıvarmı = -1 Then
Application.FollowHyperlink AYol, , True, True
With Selection
.Goto what:=wdGoToBookmark, Name:="firma"
.TypeText [Firma Adı]
.Goto what:=wdGoToBookmark, Name:="teklif"
.TypeText [Teklif No]
.Goto what:=wdGoToBookmark, Name:="teklifveren"
.TypeText [Teklif veren]
.Goto what:=wdGoToBookmark, Name:="tarih"
.TypeText Date
End With

'Word.Application.Quit
DoEvents
WordApp.Activate

Set WordApp = Nothing
Exit Sub

ErrHandler:
Set WordApp = Nothing

Else
MsgBox " Böyle bir dosya yok! Klasörü kontrol ediniz..", , " Taruz"
End If
Hat:

End Sub

Merhaba..

Son eklediğim örnekteki Teklif Dosyası Oluştur düğmesindaki kodu aşağıdaki ile değiştiriniz..


Veriler ilgili alanlara yazdırıldıktan sonra döküman kaydedilir.. Aynı anda kapanmasınıda istiyorsanız

'WordApp.Quit

kodundaki tırnağı kaldırıp komutu aktif hale getirebilirsiniz..

O Hocam gene aşmışsın ellerine gözlerine beynine sağlık