Word dosyasını aynı kaydetme

[işsiz123]

Arkadaşlar merhaba excel userform ile aşağıdaki kodlarla word dosyasını açıyorum değişiklik yapınca kaydet deyince aynı dosyaiçine kayıt yapmıyor bayşa dosya yolu seçmemizi istiyor. Ben isterim ki Kaydet veya Ctrl+s yapındca aynı dosyanın içine kaydetsin.

Private Sub CmdTdüzenle_Click()
If ListBox1.Value = "" Then
MsgBox "Düzenlenecek Dosyayı seç", , "uyarı ::..::..:: "
Else
 Set wrd = CreateObject("Word.Application")
  Set doc = wrd.Documents.Open(Filename:="C:\Users\M.Emin\Desktop\WORD HAZIRLA\" & ListBox1.Value, ReadOnly:=True)
  wrd.Visible = True
End If
End Sub

 

[işsiz123]

Konu kodları aşağıdaki gibi değiştirilerek çözülmüştür

[CODE]Private Sub CmdTdüzenle_Click()
If ListBox1.Value = "" Then
MsgBox "Düzenlenecek Dosyayı seç", , "uyarı ::..::..:: "
Else
 Set wrd = CreateObject("Word.Application")
  Set doc = wrd.Documents.Open(Filename:="C:\Users\M.Emin\Desktop\WORD HAZIRLA\" & ListBox1.Value, ReadOnly:=[COLOR="Red"][B]False[/B][/COLOR])
  wrd.Visible = True
End If
End Sub

[/CODE]