Ekteki uygulamada bilgileri worde atarak yeni belge olarak açıyor.
Benim yapmak istediğim eğer mümkünse talimatı oluştura tıkladığımda word dosyasının önizlemesini yapması ve word dosyasını otomatik olarak " Alıcı Adı ve kayıt edildiği tarih " adıyla kaydetmesi.
wordle ilgili kullandığım komut şu şekilde;
Kod:
' Word Şablonundan yeni belge oluşturma.
Dim WordApp As Word.Application
Dim strTemplateLocation As String
' Şablonun bulunduğu yer
strTemplateLocation = CurrentProject.Path & "\efttalimat.docx"
On Error Resume Next
Set WordApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then
Set WordApp = CreateObject("Word.Application")
End If
On Error GoTo ErrHandler
WordApp.Visible = True
WordApp.WindowState = wdWindowStateMaximize
WordApp.Documents.Add Template:=strTemplateLocation, NewTemplate:=False