excel'den worde

[fatihdikmen]

arkadaşlar hayırlı ramazanlar; macro ile kod yazmada daha çok yeniyim öğrenmeye çalışıyorum

bir excel sayfasındaki veriler ile bir word belgesi hazırlıyorum
hazırladığım kodda; exceldeki hücreleri, şablon word dosyasını kullanarak yeni bir word belgesi oluşturuyorum, word dosyasında hem düz metin hemde tablo içerisine aktardığım veriler var. Tablo içine aktarmada sıkıntı yok ancak, düz metin içine belirttiğim excel hücresi kopyalanırken çerçeveli olarak kopyalıyor, bunu hücre değeri olarak yapmak istiyorum, kullandığım kod aşağıda yardımcı olursanız sevinirim;

Private Sub CommandButton1_Click()
Dim teklif_formu As Word.Application
Set teklif_formu = New Word.Application
teklif_formu.Visible = True
teklif_formu.Activate
teklif_formu.Documents.Add Environ("UserProfile") & "\Desktop\UzlEvr_00\ŞABLONLAR\TEKLİF FORMU.dotx"

Sayfa3.Activate

teklif_formu.Selection.GoTo wdGoToBookmark, Name:="UZL_BUR_BAG_OL_SAV"
Range("b23").Copy
teklif_formu.Selection.Paste


'Range("b22").Copy
'teklif_formu.Selection.GoTo wdGoToBookmark, Name:="UZL_KON_SUÇ"
'teklif_formu.Selection.Paste

'Range("b24").Copy
'teklif_formu.Selection.GoTo wdGoToBookmark, Name:="UZL_BUR_SAY"
'teklif_formu.Selection.Paste

'Range("b25").Copy
'teklif_formu.Selection.GoTo wdGoToBookmark, Name:="UZL_ADİ_SOYADİ"
'teklif_formu.Selection.Paste

'Range("b26").Copy
'teklif_formu.Selection.GoTo wdGoToBookmark, Name:="UZL_SİCİLİ"
'teklif_formu.Selection.Paste

Range("b4").Copy
teklif_formu.Selection.GoTo wdGoToBookmark, Name:="TCKN"
teklif_formu.Selection.Paste

Range("b3").Copy
teklif_formu.Selection.GoTo wdGoToBookmark, Name:="ADİ_SOYADİ"
teklif_formu.Selection.Paste

Range("b5").Copy
teklif_formu.Selection.GoTo wdGoToBookmark, Name:="BABA_ADİ"
teklif_formu.Selection.Paste

Range("b6").Copy
teklif_formu.Selection.GoTo wdGoToBookmark, Name:="ANA_ADİ"
teklif_formu.Selection.Paste

Range("b7").Copy
teklif_formu.Selection.GoTo wdGoToBookmark, Name:="DY"
teklif_formu.Selection.Paste

Range("b8").Copy
teklif_formu.Selection.GoTo wdGoToBookmark, Name:="DT"
teklif_formu.Selection.Paste

Range("b10").Copy
teklif_formu.Selection.GoTo wdGoToBookmark, Name:="ADRES"
teklif_formu.Selection.Paste

Range("b9").Copy
teklif_formu.Selection.GoTo wdGoToBookmark, Name:="TLF_NO"
teklif_formu.Selection.Paste


teklif_formu.ActiveDocument.SaveAs2 Environ("UserProfile") & "\Desktop\UzlEvr_00\HAZIRLANAN_EVRAKLAR\supheli1_teklif_formu"

teklif_formu.ActiveDocument.Close
teklif_formu.Quit

Set teklif_formu = Nothing
End Sub

 

[Cengiz Demir]

Çalışırmı bilmiyorum.
Koddaki Paste 'ları PasteSpecial Paste:=xlPasteValues olarak değiştirip deneyebilir misiniz ?

 

[fatihdikmen]

Çalışırmı bilmiyorum.
Koddaki Paste 'ları PasteSpecial Paste:=xlPasteValues olarak değiştirip deneyebilir misiniz ?

söylediğiniz şekilde yaptım ancak "named argument not found" hatası alıyorum.

 

[Cengiz Demir]

PasteSpecial DataType:=wdPasteText olarak dener misiniz ?

 

[fatihdikmen]

PasteSpecial DataType:=wdPasteText olarak dener misiniz ?

hocam çok teşekkür ederim çalıştı emeğinize sağlık
birde çok olmazssa bir şey daha sorabilirmiyim

 

[fatihdikmen]

excelden aktardığım bu değerlerin hepsinin büyük harfle olması için nasıl bir kod yazabilirim

 

[Cengiz Demir]

Paste komutlarından sonra bu komutları ekleyin. Sanırım işe yarar

Selection.Range.Case = wdUpperCase

 

[fatihdikmen]

Paste komutlarından sonra bu komutları ekleyin. Sanırım işe yarar

Selection.Range.Case = wdUpperCase

teşekkür ederim ilk fırsatta deneyeceğim