Excel den Word e Veri Aktarimi

[OoParadiSeoO]

Arkadaşlar merhaba,
Excel A1 hücresindeki veriyi Word dosyasi oluşturup 1.Paragrafa sola yasla, B1 hücresindeki veriyi ise yine 2.Paragrafa saga yasla şeklinde aktarım yapacak bir koda ihtiyacım var..
Yardımlarınız için şimdiden teşekkürler..

 

[halit3]

'referanslar da bu olmalı
'Microsoft Word 12.0 Object Library

kod:

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False
Dim appword As Word.Application
Dim docword As Word.Document
Set appword = CreateObject(class:="Word.Application")
If Not appword Is Nothing Then Set appword = GetObject(class:="Word.Application")
appword.Visible = True
Set docword = appword.Documents.Add

docword.Paragraphs(docword.Paragraphs.Count).Range.ParagraphFormat.Alignment = wdAlignParagraphLeft 
docword.Paragraphs(docword.Paragraphs.Count).Range.InsertBefore Cells(1, 1).Value
docword.Paragraphs.Add
docword.Paragraphs(docword.Paragraphs.Count).Range.ParagraphFormat.Alignment = wdAlignParagraphRight 
docword.Paragraphs(docword.Paragraphs.Count).Range.InsertBefore Cells(1, 2).Value

docword.Paragraphs.Add
docword.Paragraphs(docword.Paragraphs.Count).Range.ParagraphFormat.Alignment = wdAlignParagraphLeft
say5 = CreateObject("Scripting.FileSystemObject").getfolder(ThisWorkbook.Path).Files.Count + 1
docword.SaveAs ThisWorkbook.Path & "\sablon" & say5 & ".doc"
docword.Close
appword.Quit
Application.CutCopyMode = False

MsgBox "işlem tamam"

End Sub

 

[OoParadiSeoO]

Üstad çok teşekkür ederim emeğine sağlık, küçük bir problemim daha var umarum çözümü vardır..
Dim wdApp As Object
Set wdApp = CreateObject("Word.Application")
Range("A1").CurrentRegion.Copy
Set oDoc = wdApp.Documents.Add
oDoc.Content.PasteAndFormat (wdFormatOriginalFormatting)

paylaşmış oldugun kodlara yukarıdaki kod ile excel deki tabloyu word e atıyorum fakat word 1.paragrafa attıgı icin 1.paragraftaki yazıların ustune gelmiş oluyor tablo.. tabloyu 3. paragrafa kopyala gibi birşey denebilir mi mesela .. teşekkürler ..

 

[halit3]

Böyle olabilir

oDoc.Paragraphs(oDoc.Paragraphs.Count).Range.PasteAndFormat (wdFormatPlainText)

 

[OoParadiSeoO]

Üstad çok teşekkür ederim.. tablonun altina metin yazmak istersem nasil paragraf ekleyebilirim? Ben eklemeye çalıştım fakat tablo satırları genişledi..

 

[halit3]

docword.Paragraphs.Add

oDoc.Paragraphs.Add

 

[OoParadiSeoO]

Üstad ekledi teşekkür ederim, tablonun altina ekledigim metnin paragraf yüksekliğini nasıl ayarlayabilirim? oDoc.Paragraphs.SpaceAfter =24 dedigim zaman tum belgelerin paragraf yüksekliği değişiyor.. fakat ben tablonun altina ekledigim metinin tablodan uzakligini ayarlamak istiyorum.. çok teşekkür ederim..

 

[Haluk]

Üstad ekledi teşekkür ederim, tablonun altina ekledigim metnin paragraf yüksekliğini nasıl ayarlayabilirim? oDoc.Paragraphs.SpaceAfter =24 dedigim zaman tum belgelerin paragraf yüksekliği değişiyor.. fakat ben tablonun altina ekledigim metinin tablodan uzakligini ayarlamak istiyorum.. çok teşekkür ederim..

oDoc.Paragraphs(oDoc.Paragraphs.Count).SpaceBefore = 24

.

 

[OoParadiSeoO]

Üstad =24 araligi fazla oldu =1 dedim halen fazla.. Araligi nasil kucultebilirim

 

[OoParadiSeoO]

Yardımcı olabilecek var mı arkadaşlar ..

 

[halit3]

Böyle dosya olmadan ne yaptığımızı bilmiyoruz çalışan kodların olduğu örnek excell dosyasını ve yapmak istediğiniz word dosyasını ekleyiniz bakalım

 

[OoParadiSeoO]

Üstad elimden geldiğince görseller ile destekleyerek istediğim kriterleri basitçe ifade etmeye çalıştım.. Şimdiden desteğiniz için teşekkür ederim..

İndir EXCEL WORD

Dosyayı indir EXCEL WORD

dosya.co

 

[halit3]

Yapılmak isteneni resim ile göstermişsiniz yapılmak isteneni word dosyası olarak ekleyiniz.

 

[OoParadiSeoO]

Ekledim üstad.. Çok teşekkür ederim..

İndir WORD TASARIM

Dosyayı indir WORD TASARIM

dosya.co

 

[halit3]

içerik silindi

 

[halit3]

içerik silindi

 

[halit3]

içerik silindi

 

[OoParadiSeoO]

Üstad çok teşekkür ederim sorunum sayende çözüldü, emegine sağlık ..