29/01/2018, 18:43
(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