Bu yazımızda word belgesini açmak için bir makro oluşturacağız.
Bir word belgesi açmak için, ana sayfadaki metin kutusunda belgenin tam yolunu belirteceğiz. Tam yolu belirledikten sonra, makroyu yürütmek için “Gönder” düğmesine tıklayın.
Kod açıklaması
WDApp'i Word.Application Olarak Karartın
Yukarıdaki kod, application kelimesinin nesnesini bildirmek için kullanılır.
WDApp = CreateObject("word.Application") olarak ayarlayın
Yukarıdaki kod, word uygulamasının yeni bir nesnesini oluşturmak için kullanılır. Word uygulaması çalışmaya başlayacak, ancak varsayılan olarak görünmeyecektir.
WDApp.Visible = Doğru
Yukarıdaki kod word uygulama penceresini görünür kılmak için kullanılır.
WDDoc = WDApp.Documents.Open(FileName) olarak ayarlayın
Yukarıdaki kod word belgesini açmak için kullanılır.
WDdoc'u Ayarla = Hiçbir Şey
WDApp'i Ayarla = Hiçbir Şey
Yukarıdaki kod, nesne tarafından işgal edilen herhangi bir belleği serbest bırakmak için kullanılır.
Lütfen kod için aşağıdan takip edin
Sub OpeningWordFile() 'Değişkenleri Bildirme Dim FileName As String Dim WDApp As Word.Application Dim WDDoc As Word.Document 'Dosya adını metin kutusundan alma FileName = Sheets("Main").TextBox1.Value 'Kelimenin nesnesi oluşturuluyor application Set WDApp = CreateObject("word.Application") 'Uygulama kelimesini görünür yapma WDApp.Visible = True 'Gerekli word belgesini açma Set WDDoc = WDApp.Documents.Open(FileName) 'Nesne değişkeni tarafından kullanılan belleği serbest bırak Set WDDoc = Hiçbir Şey Ayarlanmadı WDApp = Hiçbir Şey Bitmedi Sub
Bu blogu beğendiyseniz, Facebook'ta arkadaşlarınızla paylaşın. Ayrıca bizi Twitter ve Facebook'ta da takip edebilirsiniz.
Sizden haber almayı çok isteriz, işimizi nasıl geliştirebileceğimizi ve sizin için nasıl daha iyi hale getirebileceğimizi bize bildirin. E-posta sitesinde bize yazın