[Yardım]  Word Uygulamasını Kapatma

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Word Uygulamasını Kapatma

İleti#1)  erseldemirel2 » 19 Haz 2019 23:19

Arkadaşlar; excel dosyası açıldığında veya bir makro çalıştığında; ms word uygulaması açıksa kapatılabilirmi? Kapanırken mevcut açık duran word dosyalarını kaydetme sorusu dahi sormasın. Gerekirse kaydetmeden kapatsın. Yeterli programdan çıksın sadexe excel çalışsın.
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Siteye Alışmış
 
Kayıt: 31 Oca 2019 12:51
Meslek: işsiz
Yaş: 35
İleti: 275
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Word Uygulamasını Kapatma

İleti#2)  feraz » 19 Haz 2019 23:38

Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 6017
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Word Uygulamasını Kapatma

İleti#3)  feraz » 19 Haz 2019 23:42

Deneyemedim lakin mobilden okudum.

Ve 3.cü mesajdaki ilk kod word açıksa kapatıyormuş.
İkinci kod ise açık olup olmadığını kontrol ediyormuş wordun.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 6017
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Word Uygulamasını Kapatma

İleti#4)  feraz » 19 Haz 2019 23:46

Tabii adam birde yazmışki kütüphaneden(reference) den word işaretlenmeliymiş.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 6017
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: Word Uygulamasını Kapatma

İleti#5)  erseldemirel2 » 20 Haz 2019 00:26

feraz yazdı:Tabii adam birde yazmışki kütüphaneden(reference) den word işaretlenmeliymiş.


Biraz karışık geldi. Daha açıklayıcı bilgi varmıdır?
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Siteye Alışmış
 
Kayıt: 31 Oca 2019 12:51
Meslek: işsiz
Yaş: 35
İleti: 275
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Word Uygulamasını Kapatma

İleti#6)  feraz » 20 Haz 2019 00:46

Bugün denerim.

Sadece yapmanız gereken vba editören resimdeki seçili olanı işaretlemeniz ve dediğim kodları bir modüle ekleyip çalıştırmanız.
Kodlarıda paylaşayım ordan kopyalayıp.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 6017
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Word Uygulamasını Kapatma

İleti#7)  feraz » 20 Haz 2019 00:57

Adam alttaki kodun açık wordleri kapattığını yazmış.
Kütüphanenen resimdekini işaretleyin ve kodu modüle ekleyin.
Vba modül ekleme diye aratırsanız internette açıklama var.kütüphane menüsünün türkçesini bilmiyorum.ingilizce menüsü References diye geçiyor.Benim bilgisayar dilindede verweise olarak geçiyor.
Kodları kopyala yapıştırdım düzensiz kopyalandı ve düzelttim.Belki tam yapamamış olabilirim.

Kod: Tümünü seç
Sub TesterA()
Dim wd As Word.Application
Dim wDoc As Word.Document
Set wd = GetObject(, "Word.Application")
If wd Is Nothing Then
Debug.Print "Word ist nicht gestartet"
exit sub
End If
For Each wDoc In Word.Documents
Debug.Print wDoc.Name
wDoc.Close False
Next
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 6017
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Word Uygulamasını Kapatma

İleti#8)  erseldemirel2 » 20 Haz 2019 07:04

feraz yazdı:Bugün denerim.

Sadece yapmanız gereken vba editören resimdeki seçili olanı işaretlemeniz ve dediğim kodları bir modüle ekleyip çalıştırmanız.
Kodlarıda paylaşayım ordan kopyalayıp.


Günaydın. Library ekleme mantığı ile ilgili birşey sorucam. Benim excel ortak ağda bulunan bir excel. Tüm kullanıcılar kendi pc sindeki excel içide aynı işlemi yapacakmıdır? Benim ortak ağdaki excel dosyasını açıp yapmam yeterlmidiir?
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Siteye Alışmış
 
Kayıt: 31 Oca 2019 12:51
Meslek: işsiz
Yaş: 35
İleti: 275
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Cevap: Word Uygulamasını Kapatma

İleti#9)  erseldemirel2 » 20 Haz 2019 08:24

Bende aşağıdaki kodu buldum ve çalışıyor. Ancak aşağıdaki kod açık olan işlem yapılmış word dosyasına kapatma uyarısı veriyor. Ben hiç uyarı vermeden çıkılmasını istiyorum. Acaba yolu varmıdır?

Kod: Tümünü seç
Option Explicit

Sub CloseWordWindows()

Dim objWord As Object

On Error Resume Next
Set objWord = GetObject(, "Word.Application")

' if no active Word is running >> exit Sub
If objWord Is Nothing Then
    Exit Sub
End If

objWord.Quit
Set objWord = Nothing

End Sub
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Siteye Alışmış
 
Kayıt: 31 Oca 2019 12:51
Meslek: işsiz
Yaş: 35
İleti: 275
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Word Uygulamasını Kapatma

İleti#10)  feraz » 20 Haz 2019 10:40

application.displayalerts = false
objWord.Quit
application.displayalerts = true
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 6017
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Word Uygulamasını Kapatma

İleti#11)  feraz » 20 Haz 2019 11:30

Verdiğim kodları denedim çalışmadı :(
Sizinki çalışyor alttaki gibi düzenledim.

Kod: Tümünü seç
Sub CloseWordWindows()

    Dim objWord As Object
   
    On Error Resume Next
    Set objWord = GetObject(, "Word.Application")
      Err.Clear
    ' if no active Word is running >> exit Sub
    If objWord Is Nothing Then
        Exit Sub
    End If
   
    Application.DisplayAlerts = False
    objWord.Quit
    Application.DisplayAlerts = True
    Set objWord = Nothing
   
End Sub
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 6017
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Word Uygulamasını Kapatma

İleti#12)  erseldemirel2 » 20 Haz 2019 13:41

Bende aşağıdaki kodla başarıya ulaştım.

Kod: Tümünü seç
With GetObject(, "Word.Application")
.Application.Quit 0
End With
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Siteye Alışmış
 
Kayıt: 31 Oca 2019 12:51
Meslek: işsiz
Yaş: 35
İleti: 275
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Word Uygulamasını Kapatma

İleti#13)  feraz » 20 Haz 2019 13:54

Evet ilk eklediğim kod uygulamayı kapatmıyormuş Close ediyormuş.
Tam inceleyememişim kodu.

Sitedeki adamın gazabına uğradım :)

Kolay gelsin.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 6017
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Word Uygulamasını Kapatma

İleti#14)  erseldemirel2 » 20 Haz 2019 14:16

Bende ilginiz için teşekkür ederim. Kolay gelsin ! [bamm] [bamm] [bamm]
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Siteye Alışmış
 
Kayıt: 31 Oca 2019 12:51
Meslek: işsiz
Yaş: 35
İleti: 275
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, GokoUstun ve 2 misafir

Bumerang - Yazarkafe