Word Belgesini Açmak

[Seyit Tiken]

Arkadaşlar Herkese Selamlar, Sevgiler
Kodla, kaydedilmiş Word belgesini açmak istiyoruz, dosya yolu: E:\personel\htiken\B.doc Bunu bir düğmeye bağlayarak kodla nasıl açabiliriz? teşekkür eder, Allah razı olsun.

 

[hamitcan]

Sub wordbelgesiac()
    Dim oWord As Object
    Set oWord = CreateObject("Word.application")
    oWord.Documents.Open "E:\personel\htiken\B.doc", ReadOnly:=True
    oWord.Visible = True
End Sub

şeklinde deneyin.

 

[Seyit Tiken]

Hamit Bey çok teşekkür ediyorum, yalnız şöyle bir durum oldu, belgeyi "Salt Okunur" olarak açtı, bunu normal şekilde açılması mümkün mü? teşekkür ediyoruz, Allah razı olsun.

 

[yağızbaba]

Yaptığım butona aşağıdaki kodu yazdım ama açmadı .nerde hata yaptım acaba.


Sub wordbelgesiac()
Dim oWord As Object
Set oWord = CreateObject("Word.application")
oWord.Documents.Open "C:\Belgelerim\deneme.doc", ReadOnly:=True
oWord.Visible = True
End Sub

 

[mancubus]

merhaba.

zannediyorum "ReadOnly:=True" yerine "ReadOnly:=False" olması lazım.

 

[uzmanamele]

merhaba
ReadOnly:=False

 

[mancubus]

Hamit Bey çok teşekkür ediyorum, yalnız şöyle bir durum oldu, belgeyi "Salt Okunur" olarak açtı, bunu normal şekilde açılması mümkün mü? teşekkür ediyoruz, Allah razı olsun.

merhaba.

zannediyorum "ReadOnly:=True" yerine "ReadOnly:=False" olması lazım.

tekrar merhaba.
ben önerdiğim şekli denedim. oldu.

 

[yağızbaba]

Hatayı bu bölümde veriyo.Burası sarı renkli oldu.

Sub wordbelgesiac()
Dim oWord As Object
Set oWord = CreateObject("Word.application")
oWord.Documents.Open "C:\Belgelerim\deneme.doc", ReadOnly:=False
oWord.Visible = True
End Sub

 

[Seyit Tiken]

Bravo, herkese teşekkürler.

 

[yağızbaba]

Olmuyor düğme çalışmıyo word sayfasını açmıyo neden acaba nerde hata yaptım.

 

[yağızbaba]

Yardım edermisiniz işlem yarım kaldı dosya açtıramıyorum.tşk.

 

[Seyit Tiken]

Düğme makroya bağlı mıdır?, Dosya yolu doğru mudur?, onları bir kontrol edin, kodları ve dosya yolunu adım adım kontrol edin.