Excel 'de Word Dosyasını Açıp Önizleme Yapan Kod

Excel VBA açık kodlarını buradan izleyebilir ve paylaşabilirsiniz.

Excel 'de Word Dosyasını Açıp Önizleme Yapan Kod

İleti#1)  Tarkan VURAL » 11 Eyl 2008 21:39

C:\belgelerim içerisinde Test.doc dosyası var ise aşağıdaki kod dosyayı açıp önizleme yapacak.

Kod: Tümünü seç
Sub WordOnizle()
Dim WordDoc As Object

Set WordDoc = CreateObject("Word.Application")
WordDoc.Visible = True
WordDoc.Documents.Open ("C:\belgelerim\Test.doc")

WordDoc.Documents("Test.doc").PrintPreview

Set WordDoc = Nothing
End Sub
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 45
İleti: 27008
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Excel 'de Word Dosyasını Açıp Önizleme Yapan Kod

İleti#2)  Erhan Yavuz » 11 Eyl 2008 21:40

Üstadım çok yararlı, sağol..
☾✭ Türkçemizi tam ve doğru kullanmaktan korkmayalım..
Teşekkür etmek Erdemdir. ECYavuz


OSMANLI OYUNU (1402-1566)
http://www.excelvba.net/viewtopic.php?f=41&t=9984

EXCEL-VBA KOD BANKASI PRO.7.0
http://www.excelvba.net/viewtopic.php?f=38&t=3304
Resim
Kullanıcı avatarı
Erhan Yavuz
Site Forum Yöneticisi
 
Adı Soyadı:Erhan Yavuz
Kayıt: 15 Haz 2008 00:13
Konum: Etiler / İstanbul
Meslek: Emekli Sb.
Yaş: 60
İleti: 5695
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Etiler

Excel 'de Word Dosyasını Açıp Önizleme Yapan Kod

İleti#3)  Tarkan VURAL » 11 Eyl 2008 21:45

Belki belgelerim klasörünüz yoktur ya da test.doc dosyanız da yoktur. Aşağıdaki kodla da bunun denetimini yapabilirsiniz.

Kod: Tümünü seç
Sub KontrolluWordAc()
    Dim Fs As Object, WordDoc As Object
    Set Fs = CreateObject("Scripting.FileSystemObject")
If Fs.FolderExists("C:\belgelerim") Then

    If Fs.FileExists("C:\belgelerim\Test.doc") Then
        Set WordDoc = CreateObject("Word.Application")
            WordDoc.Visible = True
            WordDoc.Documents.Open ("C:\belgelerim\Test.doc")
            WordDoc.Documents("Test.doc").PrintPreview
    Else
        MsgBox "Dosya Mevcut Değil"
    End If
Else
    MsgBox "Klasör Mevcut Değil"
End If
        Set WordDoc = Nothing
End Sub
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 45
İleti: 27008
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Excel 'de Word Dosyasını Açıp Önizleme Yapan Kod

İleti#4)  Tarkan VURAL » 11 Eyl 2008 22:59

Peki belgelerimde test.doc yoksa, "Dosya Mevcut Değil" mesajı yerine yeni bir Word dosyası oluştursa ?

Ek işlem olarak Microsoft Word 10.0 ( 11.0 ) Object Library referansını etkinleştirmelisiniz.

word_referans.JPG


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

Dim Fs As Object, WordDoc As Object, excelvbanet As Word.Document, excelord As Word.Range

Const dosya$ = "Test.doc"
   
    Set Fs = CreateObject("Scripting.FileSystemObject")

If Fs.FolderExists("C:\belgelerim") Then
   
    If Fs.FileExists("C:\belgelerim\" & dosya) Then
        Set WordDoc = New Word.Application
        WordDoc.Documents.Open ("C:\belgelerim\Test.doc")
        WordDoc.Documents("Test.doc").PrintPreview
        WordDoc.Visible = True
    Else
        Set WordDoc = New Word.Application
        Set excelvbanet = WordDoc.Documents.Add
        Set excelord = excelvbanet.Words(1)
           
            With veri
            .Text = "Www.ExcelVBA.Net" & vbNewLine & "Excel VBA Destek Sitesi"
            .Font.Name = "Comic Sans MS"
            .Font.Size = 12
            .Font.ColorIndex = wdGreen
            .Bold = True
            End With
           
                WordDoc.Visible = True
                WordDoc.PrintPreview = True
    End If
Else
    MsgBox "Klasör Mevcut Değil"
End If

    Set WordDoc = Nothing: Set Fs = Nothing: Set excelvbanet = Nothing: Set excelord = Nothing

End Sub


Saygılar,
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 45
İleti: 27008
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

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

Excel 'de Word Dosyasını Açıp Önizleme Yapan Kod

İleti#5)  Tarkan VURAL » 11 Eyl 2008 23:37

Bir ihtimal daha var [evet]

Klasör yoksa ne olacak ?
O zaman klasörü de denetleyelim. Eğer yok ise oluşturalım.

Kod: Tümünü seç
Private Sub klasorac()
On Error Resume Next
Dim Fs As Object
    Set Fs = CreateObject("Scripting.FileSystemObject")
        Fs.CreateFolder ("C:\belgelerim")
    If Err.Number = 58 Then
        Fs.FolderExists ("C:\belgelerim")
            MsgBox "Klasör varmış", , "Www.ExcelVBA.Net"
            Exit Sub
    End If
End Sub


Bu kes Word ile eşleştirmedim. Bu kısmını da ihtiyacı olan yapabilir.
Bur kodda hem hata denetimini de yaptırdım. Kodları iyi incelemenizi öneririm.
Klasör var ise bir hata kodu üredi ve hata kodu numarasını sorguladık, eğer 58 ( Dosya zaten var ) hatası ise farklı bir kod satırı çalıştırdık.

Hata kodlarına göre yordamlarınıza ayrı yol verebilirsiniz.
Bu kodlamadaki hata detayını almak için önce başa On Error Resume Next yazın ki kodun tamamı çalışmaya devam etsin.
Hatalı satırdan sonra da;
Kod: Tümünü seç
MsgBox Err.Number & " " & Err.Description

yazın ve hata kodunu ing.ce açıklaması ile alın, ona göre düzenlemenize devam edebilirsiniz. Ben öyle yapıyorum.
Syg.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 45
İleti: 27008
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Excel 'de Word Dosyasını Açıp Önizleme Yapan Kod

İleti#6)  Murat OSMA » 23 Şub 2011 23:18

Ellerine sağlık abicim, sağol. --)(
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 34
İleti: 14338
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Excel 'de Word Dosyasını Açıp Önizleme Yapan Kod

İleti#7)  ahmetilhan282 » 13 Tem 2014 13:29

Faydalı bir paylaşım olmuş, elinize sağlık Tarkan Bey.
Kullanıcı avatarı
ahmetilhan282
Site Dostu
 
Adı Soyadı:Ahmet İLHAN
Kayıt: 15 Oca 2014 00:04
Konum: Adana
Meslek: Güvenlik
Yaş: 29
İleti: 842
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Mersin

Cevap: Cevap: Excel 'de Word Dosyasını Açıp Önizleme Yapan K

İleti#8)  Enes Recep BAĞ » 13 Tem 2014 13:31

ahmetilhan282 yazdı:Faydalı bir paylaşım olmuş, elinize sağlık Tarkan Bey.

[evet] [TESEKKÜR]
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 15:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 37
İleti: 8263
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray / Merkez

Cevap: Excel 'de Word Dosyasını Açıp Önizleme Yapan Kod

İleti#9)  ayas06 » 28 Arl 2015 19:30

bu yararlı bilgiler için hepinize teşekkür ederim.
Kullanıcı avatarı
ayas06
Yeni Başlamış
 
Kayıt: 04 Arl 2015 19:47
Meslek: mühendis
Yaş: 44
İleti: 42
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: Excel 'de Word Dosyasını Açıp Önizleme Yapan Kod

İleti#10)  ayas06 » 28 Arl 2015 19:33

peki şablon bir doc dosyam var. excel den sıra ile veri alıp posta yolu ile word'e çekiyorum diyelim. bu şablon doc dosyasını farklı kaydedecek bir seçeneğimiz mevcut mu? [yummy]
Kullanıcı avatarı
ayas06
Yeni Başlamış
 
Kayıt: 04 Arl 2015 19:47
Meslek: mühendis
Yaş: 44
İleti: 42
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: Excel 'de Word Dosyasını Açıp Önizleme Yapan Kod

İleti#11)  cuma » 13 Oca 2017 10:29

Bu güzel bilgi paylaşımlarınız için [TESEKKÜR] Tarkan bey..
Kullanıcı avatarı
cuma
Yeni Başlamış
 
Adı Soyadı:cuma akyüz
Kayıt: 01 Nis 2009 09:08
Konum: Eğitmen
Meslek: Öğretmen
Yaş: 44
İleti: 36
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Gaziantep/Şehitkamil

Cevap: Excel 'de Word Dosyasını Açıp Önizleme Yapan Kod

İleti#12)  acemi85 » 13 Arl 2017 10:39

Çalışmalarınız tek kelime ile süper elinize sağlık.
Benimde bir sorum olacaktı.
Peki örneğin biz çalışmalarımızda 2017.1 araç arızaları,2017.2 klima arızaları gb. word dosyalarına isimler veriyoruz ortak ağda 2017 adlı bir klasörde.Bende excelde bunları A sütununa 2017.1,2017.2 ... olarak listeliyorum word başlığının başındaki 2017.1, 2017.2 .. gb verdiğimiz numara hep sabit kalıyor ancak yanındaki açıklamalar (araç arızaları,klima arızaları) değişebiliyor.
Köprü kurduğum zaman sürekli bozuluyor mecburen yeniden uğraşıyorum.sadece dosya isiminin verdiğimiz numaraya göre köprü kurabilirmiyim çünkü başlığın sonu değişebiliyor.
Başka bir açıdan örnek vermek gerekirse 2017 klasöründe arama yapmak istediğimizde sağ üst köşede arama yerine "2017.1" yazdığımda sadece o dosyayı getiriyor. 2017.11 veya 2017.100 başlığındaki dosyaları filtrelemiyor.
Bu dosyaları bu şekilde açma şansım var mı Üstadlar.
Kullanıcı avatarı
acemi85
Yeni Başlamış
 
Kayıt: 19 Ekm 2017 13:33
Meslek: memur
Yaş: 29
İleti: 37
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA

Cevap: Excel 'de Word Dosyasını Açıp Önizleme Yapan Kod

İleti#13)  acemi85 » 14 Arl 2017 16:37

Bu konu hakkında hiş şansım yok mu Ustalarım.
Kullanıcı avatarı
acemi85
Yeni Başlamış
 
Kayıt: 19 Ekm 2017 13:33
Meslek: memur
Yaş: 29
İleti: 37
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA

Cevap: Cevap: Excel 'de Word Dosyasını Açıp Önizleme Yapan K

İleti#14)  Enes Recep BAĞ » 17 Arl 2017 09:00

acemi85 yazdı:Bu konu hakkında hiş şansım yok mu Ustalarım.

Bence var, forumda daha önce yaptığımızı hatırlıyorum.
Arama yapmanızı öneriyorum.
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 15:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 37
İleti: 8263
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray / Merkez

Cevap: Excel 'de Word Dosyasını Açıp Önizleme Yapan Kod

İleti#15)  Tarkan VURAL » 26 Arl 2017 18:30

acemi85 yazdı:Başka bir açıdan örnek vermek gerekirse 2017 klasöründe arama yapmak istediğimizde sağ üst köşede arama yerine "2017.1" yazdığımda sadece o dosyayı getiriyor. 2017.11 veya 2017.100 başlığındaki dosyaları filtrelemiyor.


2017.1* ya da 2017.1% olarak aratmayı deneyin.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 45
İleti: 27008
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü


Forum Örnek Kodlar

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 0 misafir

Bumerang - Yazarkafe