24/10/2022, 17:36
merhabalar konunun pek hakımı değilim ama excelde bir tabloyu resim formatında yada normal tablo seklinde atmak istiyorum ama calısma sayfas1 de buton yaptım bu buton yardımıyla tabloyu otomatık olarak aktarabilirmiyiz ekte dosyaları koyuyyorum .
Sub wordtabloekle()
Dim wrd As Word.Application
Dim dok As Word.Document
Set wrd = New Word.Application
wrd.Visible = True
Set dok = wrd.Documents.Add
With wrd.Selection
.Style = "Başlık 1"
.TypeParagraph
.Style = "normal"
Sheets("sayfa2").Range("A1").CurrentRegion.Copy
.Paste
End With
End Sub
Sub wordtabloekle()
Dim wrd As Word.Application
Dim dok As Word.Document
Set wrd = New Word.Application
wrd.Visible = True
Set dok = wrd.Documents.Add
With wrd.Selection
.Style = "Başlık 1"
.TypeParagraph
.Style = "normal"
Sheets("sayfa2").Range("A1").CurrentRegion.Copy
.Paste
End With
End Sub