AccessTr.neT

Merhaba oluşturduğum bir form sayfasına 5 farklı veri değeri girip rapor hazırla butonuna bastığımda word belgesinden önceden yazılmış metine benim formdan girdiğim verileri eklemek istiyorum. Ama worddeki şablonu bozmadan. şimdiden yardımlarınız için teşekkür ederim.

her metin yeni paragraf olarak mı eklenecek?

ALTAN1,2,3,4 olan metinler değişecek. Örnek metin değişebilir. Aslında istediğim çalışmanın benzeri yapılmış ama onu tam çözemedim. onun üstünde çalışıyorum.

https://accesstr.net/konu-accesste-word-...rlama.html

orada veri önce Html dosyasına yazılıp word ile açılıyor. sizin yapmak istediğiniz ne? word dosyasındaki ALTAN1 kelimesi metin0 kutusundaki veri ile mi değişecek?

önce referanslarda Microsoft word ... library eklenmeli aşağıdaki kod sadece altan2 için
isterseniz çalışmanıza değişecek veri ve alacağı yeni değer için 2 metin kutusu koyarsınız ona göre işlem yapar

    Dim app As Word.Application

    Dim doc As Word.Document



    Set app = CreateObject("Word.Application")

    app.Visible = True

    Set doc = app.Documents.Open("C:\Users\halil\Desktop\Database2\ORNEK METIN.docx")



        With doc.Content.Find

            .Text = "Altan2"

            .Replacement.Text = Me.Metin0

            .Wrap = wdFindContinue

            .Execute Replace:=wdReplaceAll

        End With

Yalniz burada şöyle bir sorun ortaya çıkabilir; eğer dosya zaten açıksa işlem gerçekleşmez, o durumda hata verebilir