+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Accesten Word Dosyasına Veri Ekleme (/konu-accesten-word-dosyasina-veri-ekleme.html)
Accesten Word Dosyasına Veri Ekleme - ALTANs - 28/06/2021
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.
RE: Accesten Word Dosyasına Veri Ekleme - berduş - 28/06/2021
her metin yeni paragraf olarak mı eklenecek?
RE: Accesten Word Dosyasına Veri Ekleme - ALTANs - 28/06/2021
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-ile-raporlama.html
RE: Accesten Word Dosyasına Veri Ekleme - berduş - 28/06/2021
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?
RE: Accesten Word Dosyasına Veri Ekleme - berduş - 28/06/2021
ö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 WithRE: Accesten Word Dosyasına Veri Ekleme - berduş - 28/06/2021
Yalniz burada şöyle bir sorun ortaya çıkabilir; eğer dosya zaten açıksa işlem gerçekleşmez, o durumda hata verebilir