Korhan Hocam merhaba,
Bu kod ile mail gövdesine gelen mesaj metni tablo olarak getirmekte;
Bunun word metni olarak satırlar halinde gelmesini sağlanamaz mı?
Özetle satırlar birbirinden bağımsız olarak düzenlenez mi?
Teşekkürler,
iyi Akşamlar.
Benim kullandığım imza biraz büyük olduğu için tekrar etme durumunu fark edememiştim. Onu dediğiniz satırı silerek düzelttim.
Normalde Body kısmında biçimlendirme kullanmak istiyorsanız bunun için kopyala-yapıştır yöntemi çok uygun değildir. Body kısmı için metin biçimlendirme teknikleri...
Yok ustad ben ofis 365 kullanıyorum.. Ben aslında word dosyası uzerınden calısıyordum. Arad kaydedıyordum sılıyordum. Ama bır wındows guncellemesı sonrası baktım moduller gorunmuyor. Tekrar sımdı olusturuyorum. Ama kaydettıgımde ucarmı dıye tereddutteyım. Excelde boyle bırsey olmadı.
Birde...
Ustad bu sabah pc geldıgımde rstart yapmıstı. Word de calısmıs oldugum pernonel makroların olmadıgını gordum. Calısmıs oldugum modullere ulasma sansım varmı acaba teknık olarak?
...= True Then
j = j + 1
End If
Next i
If j = 0 Then MsgBox "Seçim Yapmadınız": Exit Sub
'On Error Resume Next
Dim appword As Word.Application
Dim docword As Word.Document
Set appword = CreateObject(class:="Word.Application")
If Not appword Is Nothing Then Set appword =...
...& "\sablon.docx"
Dosya = ThisWorkbook.Path & "\güncel.docx"
On Error Resume Next
Set Word_App = GetObject(, "Word.Application")
If Err.Number <> 0 Then Set Word_App = CreateObject("Word.Application")
On Error GoTo 0
Set doc = Word_App.Documents.Open(Sablon)
With doc...
Hocam Bookmarks için veri aldığım sayfa DATA sayfası ancak aşağıda gösterdiğim gibi belirtmeme rağmen Bookmarks hata veriyor gene
.Bookmarks("t").Range.InsertAfter Worksheets("DATA").Cells(8, 1)
.Bookmarks("tarih").Range.InsertAfter Worksheets("DATA").Cells(9, 1)...
...& "\sablon.docx"
Dosya = ThisWorkbook.Path & "\güncel.docx"
On Error Resume Next
Set Word_App = GetObject(, "Word.Application")
If Err.Number <> 0 Then Set Word_App = CreateObject("Word.Application")
On Error GoTo 0
Set doc = Word_App.Documents.Open(Sablon)
With doc...
...Object
Dim doc As Word.Document
sablon = "C:\belgelerim\sablon.docx"
Dosya = "C:\kayıtlar\güncel.docx"
Set wordapp = GetObject(, "Word.Application")
If Err.Number <> 0 Then Set wordapp = CreateObject("Word.Application")
On Error GoTo 0
Set doc = wordapp.Documents.Open(sablon)...
...okunur halde kalmasın. saygılar herkese.
Private Sub CommandButton1_Click()
Dim doc As Word.Document
Set wordapp = CreateObject("word.application")
sablon = "C:\belgelerim\sablon.docx"
Set doc = wordapp.Documents.Open(sablon)
doc.Bookmarks("t").Range.InsertAfter Cells(1, 1)...
...strWordTemplate = ThisWorkbook.Path & "\etiketRA.docx"
strSavePath = ThisWorkbook.Path & "\Etiket "
Set wdApp = CreateObject("Word.Application")
If wdApp Is Nothing Then
Set wdApp = CreateObject("Word.Application")
End If
For Each wdDoc In wdApp.Documents
wdDoc.Close...
...Sub CommandButton1_Click()
Dim doc As Word.Document
For i = 2 To Cells(Rows.Count, "a").End(3).Row
Set wordapp = CreateObject("word.application")
Teminat = "C:\Users\atar\Desktop\Teminat Mektupları\Mektup\Teminat.docx"
'Teminat = ThisWorkbook.Path & "\deneme1.doc"
Set doc =...
Sub EXCELDEN_WORDE_TABLO()
Dim wordApp As New Word.Application, wdDoc As Word.Document
With wordApp
.Visible = True
.Activate
Set wdDoc = .Documents.Open _
("C:\Users\ÖZDEMİR\OneDrive\Masaüstü\EXCELDEN_WORDE_TABLO_AKTARMA\DENEME TABLOLARI (2).doc")
If...
...Bu sebeple arama yapılmasını tavsiye ediyoruz. Yoksa sürekli benzer konular açılıp benzer cevaplar paylaşılıyor.
Linkteki konuları inceleyebilirsiniz.
https://www.excel.web.tr/search/315427/?q=word.application&o=date
Yetersiz gelirse linkteki konularıda inceleyebilirsiniz.
Arama Sonuçları
Merhaba hocam bunu pdf olarak değilde word olarak keydedilmesini istiyorsak nasil bir yol izlemeliyiz. .pdf yazan yeri .docx olarak değiştiridğimde word dosyları oluşuyor ama hatalı word oluşuyor açılmıyor.
...istediğiniz düzenleme olsun ve kayıt etsin.
kod
Sub tablo_word13()
'referanslar
'Microsoft Word 12.0 Object Library
Dim objWord As Word.Application
Dim docWord As Word.Document
yol = Application.GetOpenFilename(FileFilter:="Word Files (*.doc*), *.doc*") ', Title:="Choose Files"...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.