Skip to main content

AccessTr.neT


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?
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)
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