Resimli Formu Worde Aktarma

(29/01/2018, 17:31)ozanakkaya yazdı:

(29/01/2018, 12:05)alperadn01 yazdı: Word formatını farklı yolda gösterme şansımız var mı?

Merhaba, sorunu biraz daha açarsanız yardımcı olmaya çalışırız.

ozan bey daha önce sizin yardımlarınızla bu örneği kullanılabilir hale getirilmişti. istediğim konu bu örnekte worde aktar buton olayında 

Dim WordApp As Word.Application
    Dim strTemplateLocation As String
    Dim newPicture
    strTemplateLocation = CurrentProject.Path & "/personeltanitimkarti.dot"
    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

kodunda bir değişiklik yapılması gerekiyor sanırım. 

dosya içerisinde hazırlanan personeltanitimkarti.dot formatı farklı bir dosya içerisinde veya D'nin içerisinde olması durumunda nasıl aktarma yapabiliriz. teşekkür ederim

CurrentProject.Path & "/personeltanitimkarti.dot"

Bu kod, uygulama ile aynı dizinde bulunan personeltanitimkarti.dot isimli dosyayı ifade eder. Bu dosya D dizininde yeni isimli klasör içerisinde ise

strTemplateLocation = "D:/Yeni/personeltanitimkarti.dot"

kodunu kullanmalısınız.

Çok teşekkür ederim konuyu taşıyabilirsiniz