Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [VBA] ms office word belgesindeki kelimeleri access tablosundan değiştir

[VBA] ms office word belgesindeki kelimeleri access tablosundan değiştir
abkbek
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 08.04.2008
Toplam 90 konu açtı.
Toplam 473 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003, Office 2019,
Beğeniler: 0 / 0
#1
30-05-2019, 23:11
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



  Bul
  Alıntı
Bu mesajı beğenenler:
halily
Access Takımı

*
Kayıt Tarihi: 29.06.2014
Toplam 3 konu açtı.
Toplam 1.591 yorum yaptı.
Toplam 429 puanı bulunmakta.
Beğeniler: 13 / 93
#2
31-05-2019, 04:34 (En son düzenleme: 31-05-2019, 04:59 halily.)
Visual Basic
  1. Dim strFirstWord As String
  2. Dim strIn As String
  3. Dim oPara As Object
  4. strIn = InputBox("Replacement string?")
  5. For Each oPara In oWordDoc.Paragraphs ' belgedeki her paragraf için
  6. strFirstWord = oPara.Range.Words(1).Text ' paragraftaki ilk kelime
  7. If strFirstWord = strIn Then oPara.Range.Words(1).Text = "bununla değiştir " & " "  ' sona mutlaka boşluk eklenmeli
  8. 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ı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [SORGU] Veriler Arasında Eşleşen Kelimeleri Bulma. Satir 5 225 18-02-2023, 15:27
Son Mesaj: celalll
  [VBA] Access'ten Word'e Aldığım Her Bir Sayfayı Excel Sayfasına Aktarma abkbek 3 365 13-08-2021, 14:46
Son Mesaj: dsezgin
  Ms.office Sürüm Hatası Hk. adnnfrm 6 491 02-06-2021, 00:25
Son Mesaj: adnnfrm
  Office 365 Access Veriyon Sorunu İlhanYaylıcı 2 363 27-04-2021, 13:44
Son Mesaj: İlhanYaylıcı
  [FORM] Formdan Sorgu çalıştırarak Word E Gönderme bibib 1 428 01-10-2020, 13:11
Son Mesaj: onur_can
  Office 20007 çökme Sorunu. Denizl 3 343 28-06-2020, 15:11
Son Mesaj: celalll
  [FORM] Word Belgesindeki Resmi Formdaki Ek Alanına Fare Ile Kopyala Yapıştır tersl 1 457 26-03-2020, 02:17
Son Mesaj: tersl
  Formdaki Verileri Word'e Tekli Ve çoklu Yazdırma prestij06 3 839 17-02-2020, 22:52
Son Mesaj: dsezgin

Foruma Git:


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