Excel vba içinden kod ile word uygulamasını kapatmak

[cebelitarık]

Forumun değerli üyeleri
Excel vba içerisinden açık olan word uygulamasını kod ile kapatmak istiyorum.
saygılarımla

 

[leumruk]

Merhaba,
Aşağıdaki gibi kullanabilirsiniz.

Sub word_kapat()
On Error Resume Next
Set wrd = GetObject(, "Word.Application")
If Err.Number <> 0 Then
MsgBox "Açık word dosyası bulunmamaktadır.", vbInformation
Else:
wrd.documents.Close
wrd.Application.Quit
End If
End Sub

 

[cebelitarık]

Sayın Leumruk
İlginizden dolayı teşekkür ederim.
kod işimi gördü.

Ancak ben

Set wd = CreateObject("word.Application")
wd.Visible = True
wd.Application.documents.Open yol & "\" & "SABLONLAR" & "\" & "BAŞLAMASABLON.doc"
dosyamı çağırdım

dosya üzerinde text işlemleri yaptıktan sonra

Set WDDoc = wd.ActiveDocument
WDDoc.SaveAs yol & "\" & "TE YAZILARI" & "\" & "BAŞLAMA" & ".doc"

kodu ile farklı kaydedip
WDDoc.Close
kodu ile de dosyayı kapattım

Ancak word uygulamasını kapatamamıştım.

Bu durum da nasıl bir kod yazmak gerekir saygılarımla.

Not: WDDoc.Application.Quit bu kodla kapatamadım hata verdi.

 

[leumruk]

Merhaba,
Aşağıdaki gibi deneyin.

Set wd = CreateObject("word.Application")
wd.Visible = True
wd.Application.documents.Open yol & "\" & "SABLONLAR" & "\" & "BAŞLAMASABLON.doc"
[COLOR="DarkRed"]Set wrd = GetObject(, "Word.Application")[/COLOR]

Set WDDoc = wd.ActiveDocument
WDDoc.SaveAs yol & "\" & "TE YAZILARI" & "\" & "BAŞLAMA" & ".doc"

[COLOR="DarkRed"]wrd.Application.Quit[/COLOR]