butona ilk bastığımda hata veriyor arka planda word açılıyor (sadece görev yöneticide görünüyor)
eğer arka planda çalışan word'ü kapatmayıp
butona tekrar basarsam işlemi gerçekleştiriyor. sebebini ne olabilir?
Dim wdApp As Word.Application, wdDoc As Word.Document
On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then 'Word isn't already running
Set wdApp = CreateObject("Word.Application")
End If
On Error GoTo 0
Set wdDoc = wdApp.Documents.Open("dosyayolu&adı")
wdApp.Visible = True
With wdApp
With wdDoc.Content.Find
.Text = Me.TxtBul
.Replacement.Text = Me.TxtDegis
.Wrap = wdFindContinue
.Execute Replace:=wdReplaceAll
End With
' .ActiveDocument.SaveAs2 FileName:=SaveAsName, FileFormat:=17
End With
'You can now do whatever you like with the Word document e.g.
'wdDoc.PrintOut
wdDoc.SaveAs "dosyayolu&adı"
