Word Dokümanını Otomatik Olarak Doldurmak
Вставка
- Опубліковано 5 лют 2025
- Word dokümanının alanlarını başka bir dokümandan alarak doldurmak
Word dokümanını otomatik olarak doldurmak.
VBA ortamında yazılıyor.
VBA’yı geliştirmek ve diğer örnekler için aşağıdaki linklere bakınız.
Private Sub CmdDoldur_Click()
Dim WordApp As Object
Dim KaynakDoc As Object
Dim AlanDoc As Object
Set WordApp = CreateObject("Word.Application")
Set KaynakDoc = WordApp.Documents.Open("D:\calismalar\projeler\word\BİLGİ_FORMU.DOCX", ReadOnly:=True)
WordApp.Visible = True
Set AlanDoc = ActiveDocument
AlanDoc.Bookmarks("ADIBM").Range.Text = _
KaynakDoc.SelectContentControlsByTitle("ADITXT").Item(1).Range.Text
AlanDoc.Bookmarks("ADRESİBM").Range.Text = _
KaynakDoc.SelectContentControlsByTitle("ADRESİTXT").Item(1).Range.Text
AlanDoc.Bookmarks("İLİBM").Range.Text = _
KaynakDoc.SelectContentControlsByTitle("İLİTXT").Item(1).Range.Text
KaynakDoc.Close SaveChanges:=False
Set KaynakDoc = Nothing
Set AlanDoc = Nothing
Set WordApp = Nothing
End Sub
NOT: Kod yazılan Word doküman Makro Etkinleştirilmiş Belge (.docm) olarak kaydedilecek.
VBA öğrenmek için:
Vba:
• Excel VBA
vba eğitim:
• EXCEL VBA KOMPLE EĞİTİ...
VBA KİTAP
• EXCEL VBA PROGRAMLAMA ...
Excel ile Word arasında bilgi transferi:
• Excel'den Word'e Aktarma
Faruk Çubukçu - Bilgi Teknolojileri Danışmanlık
www.farukcubukcu.com www.excelakademi.com
Hocam merhabalar. Anlatımınız ve konular çok iyi, teşekkürler tüm paylaşımlarınız için. Benim bir sorum olacaktı; wordde aynı anda 6 fotoğraf eklemek istiyorum tek sayfaya, buraya 2×3 tablo da oluşturuyorum, bu 6 fotoğrafı da bu tablonun her hücresine eklemek istiyorum bunun pratik bir yöntemi var mıdır? Tablo yapmadan da bu 6 fotoğrafı tek sayfaya yerleştirebilir miyim?
Sub resimeklemeword()
Dim shpCanvas As Shape
'resim ekleme
Set shpCanvas = ActiveDocument.Shapes _
.AddCanvas(Left:=100, Top:=75, _
Width:=200, Height:=300)
shpCanvas.CanvasItems.AddPicture _
FileName:="C:\URUNRESIMLERI\abc001.jpg", _
LinkToFile:=False, SaveWithDocument:=True
End Sub
En kısa zamanda deneyeceğim, teşekkürler hocam
Hocam excel de ya da word de var olan listedeki müşteri numarasını girip istenilen bilgileri şablona nasıl çekebilirim?
Merhaba, EXCEL'de bir numaraya karşılık bir sütunu başka bir tablodan getirmek için DÜŞEYARA kullanılır. Sanıyorum istenen bu değil.
Onun dışında bir dokümandaki bir bilgiye dayanarak diğer dokümandaki verileri almak için bu şeklide VBA kodlaması gerekir.
Excel ile Word arasında bilgi transferi:
ua-cam.com/video/dNS5Lhns-ew/v-deo.html
Bu yöntemle fotoğraf da aktarılabilir mi?
sayfa içine ya da Tablolar içine yine bookmark koyarak olabilir.
Sub resimeklemeword()
Dim shpCanvas As Shape
'resim ekleme
Set shpCanvas = ActiveDocument.Shapes _
.AddCanvas(Left:=100, Top:=75, _
Width:=200, Height:=300)
shpCanvas.CanvasItems.AddPicture _
FileName:="C:\URUNRESIMLERI\abc001.jpg", _
LinkToFile:=False, SaveWithDocument:=True
End Sub
ua-cam.com/video/vuMMQeMmW_0/v-deo.html
En kısa sürede deneyeceğim. Çok sağ olun.
Anlatımınız sade ve net bu nedenle çok anlaşılır oluyor.