Konuyu Değerlendir
  • 0 Oy - 0 Ortalama
  • 1
  • 2
  • 3
  • 4
  • 5
[VBA] ms office word belgesindeki kelimeleri access tablosundan değiştir
#1
Merhaba arkadaşlar 
ms word içindeki bul ve değiştir işlemini toplu olarak yapabilmek için
bir access veritabanı içerisindeki tabloya; bulup değiştirmek istediğim kelime ve karakterleri  kaydediyorum. daha sonra word belgesine yerleştirdiğim vba kodu ile bul değiştir işlemini topluca yapıyorum. 

kelime bul değiştir konusunda sorun yok, bunu istediğim gibi yapabiliyorum. uzun süredir arayıp bulamadığım bir sorunum var, yardımcı olabilirseniz minnettar olurum.

istediğim gibi yapmayı başaramadığım şu;
word belgesinde paragraf başında eğer numerik veya alfabetik (Madde imi değil) değeri bulmak ve bulduğum bu değer yerine, access tablosunda o değerin yerine koymak istediğim değeri eklemek istiyorum. word belgesinde vba kodunu çalıştırdığımda tüm metnin içindeki değerler değişiyor. 

örnek üzerinden anlatırsam; aradığım değer   "1. "   yerine koymak istediğim değer " - " olsun. bunu belgedeki tüm değerler için yapıyor oysa benim yapmak istediğim. "1. " değerini sadece paragraf başında ise " - " ile değiştirmek, paragrafın başında değil, aralarda ise herhangi bir değişiklik yapılmasın. bunu nasıl yapacağımı bulamadım. yardımlarınızı bekliyorum.  

örnek çalışmam ekte


Eklenti Dosyaları
.rar   databasefolder.rar (Boyut: 35 KB / İndirilme: 6)
Bul
Alıntı
#2
Visual Basic
Dim strFirstWord As String
Dim strIn As String
Dim oPara As Object
strIn = InputBox("Replacement string?")
For Each oPara In oWordDoc.Paragraphs ' belgedeki her paragraf için
strFirstWord = oPara.Range.Words(1).Text ' paragraftaki ilk kelime
If strFirstWord = strIn Then oPara.Range.Words(1).Text = "bununla değiştir " & " "  ' sona mutlaka boşluk eklenmeli
Next


benzeri bir kod işinize yarayabilir.
her paragrafın ilk kelimesine bakar eğer ilk kelime aradığınız kelimeyle aynıysa değiştirme komutunu kullanabilirsiniz
Bul
Alıntı


İmlemeler

Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [VBA] ms office word belgesindeki kelimeleri bul ve değiştir abkbek 4 135 03-04-2019, 22:24
Son Mesaj: abkbek
  [VBA] Word Şablona VB Kodları ile veri işletmede faydalı olabilecek notlar bibib 3 392 01-04-2019, 00:11
Son Mesaj: abkbek
  [VBA] Yeni Word Belgesi Açma h2001 1 140 18-01-2019, 10:04
Son Mesaj: dsezgin
  [FORM] Word yer İmi h2001 2 164 04-01-2019, 19:34
Son Mesaj: h2001
  [MAKRO] Alt Formdan Word'e aktarım h2001 1 149 23-12-2018, 18:54
Son Mesaj: onur_can
  [VBA] Excel tablosundan istenilen verileri Access tablosuna aktarma @MSC 3 405 07-11-2018, 00:29
Son Mesaj: dsezgin
  [SORGU] Bul Değiştir Kodu selimglr 17 617 28-10-2018, 08:39
Son Mesaj: selimglr
  [FORM] Evrak kayıt ve word dosyası korkmaz24 7 725 14-10-2018, 22:40
Son Mesaj: hturkavci03

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi