Sorgu için arama sonuçları: word.application

Private Sub CommandButton1_Click() Dim doc As Word.Document Set wordapp = CreateObject("word.application") Işçi_Devir_Sozlesmesi = "C:\Users\WİN10\Desktop\İ.K. Yönetimi\İşten Çıkış Dokümanları Örnekleri\Devir Sözleşmeleri\Işçi_Devir_Sozlesmesi.doc" Set doc =...

Private Sub CommandButton1_Click() Dim doc As Word.Document Set wordapp = CreateObject("word.application") Işçi_Devir_Sozlesmesi = "C:\Users\WİN10\Desktop\İ.K. Yönetimi\İşten Çıkış Dokümanları Örnekleri\Devir Sözleşmeleri\Işçi_Devir_Sozlesmesi.doc" Set doc =...

Private Sub CommandButton1_Click() Dim doc As Word.Document Set wordapp = CreateObject("word.application") Işçi_Devir_Sozlesmesi = "C:\Users\WİN10\Desktop\İ.K. Yönetimi\İşten Çıkış Dokümanları Örnekleri\Devir Sözleşmeleri\Işçi_Devir_Sozlesmesi.doc" For i = 2 To 99 Set doc =...

...= ThisWorkbook.Sheets("Sayfa2") Dim fso As New FileSystemObject Dim i As Integer Dim fo As Folder Dim f As file Dim wordApp As New Word.Application Dim wordDoc As Word.Document Dim objPic As InlineShape Dim PDF_path As String Dim Word_path As String myPath = ThisWorkbook.Path PDF_path =...

...Kodlarda ne gibi düzenleme yapmam lazım yardımcı olabilirseniz çok sevinirim. 08.05.2023 On Error GoTo ErrHandler Dim wd As Word.Application Dim wdDoc As Word.Document Dim wrdPic As Word.InlineShape Dim ImgName As String Dim xlSht As Worksheet On Error Resume Next...

Necati Hocam teşekkür ederim

Merhaba tamer bey. Normalde exceldeki biçimlendirme ile mail gövdesini tablo olarak alabiliyoruz. Tablo olarak değil de düz metin olarak fakat biçimlendirmeler kalsın diyorsanız, tabloyu metne dönüştür yapınca istediğiniz oluyor gibi geldi bana. Şunu denedim ve biçimlendirmeler aynen kaldı. Sub...

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.

Korhan Hocam çok teşekkürler, bu yöntem daha profesyonel oldu sanki Sağ olun, var olun..

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 =...

H Hocam teşekkürler sağolunn çözüldü ama hızında pek değişme olmadı salt okumur konusunu çözdü şükür

...& "\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...

Hocam hata veriyor neden ama bilemedim bi türlü

Hocam elinize sağlık yarın ilk fırsatta deniyeceğim ve dönüş yapıcağım

...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)...