Skip to main content

#EvdeKal


Word'de Bul Ve Değiştir

Word'de Bul Ve Değiştir

Çözüldü #1
Microsoft Word x.x Object Library ekli olmasına rağmen aşağıdaki kod sürekli aynı hatayı veriyor.
butona ilk bastığımda hata veriyor arka planda word açılıyor (sadece görev yöneticide görünüyor)
eğer arka planda çalışan word'ü kapatmayıp
butona tekrar basarsam işlemi gerçekleştiriyor. sebebini ne olabilir?

Visual Basic Code
Dim wdApp As Word.Application, wdDoc As Word.Document

On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then 'Word isn't already running
Set wdApp = CreateObject("Word.Application")
End If
On Error GoTo 0
Set wdDoc = wdApp.Documents.Open("dosyayolu&adı")

wdApp.Visible = True

    With wdApp
        With wdDoc.Content.Find
            .Text = Me.TxtBul
            .Replacement.Text = Me.TxtDegis
            .Wrap = wdFindContinue
            .Execute Replace:=wdReplaceAll
        End With
'        .ActiveDocument.SaveAs2 FileName:=SaveAsName, FileFormat:=17
    End With

'You can now do whatever you like with the Word document e.g.

'wdDoc.PrintOut
wdDoc.SaveAs "dosyayolu&adı"

.rar BulDegisWord.rar (Dosya Boyutu: 20,48 KB | İndirme Sayısı: 3)
Cevapla
#2
İnceleyiniz. Kod içerisindeki tek tırnak ile iptal edilen kısımları aktif ederseniz, dizindeki tüm word dosyalarında değişiklik yapar.
.rar word_metin_degistir.rar (Dosya Boyutu: 77,5 KB | İndirme Sayısı: 6)
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#3
yardımlarınız için teşekkürler hocam. sorun çözüldü.
yalnız "content" ile "StoryRanges" arasındaki fark ne?
hangisi nerede kullanılmalı?
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task