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

Hocam ne yazık ki çalışmadı. Tabloları boş olarak aldı.

...for döngüsü kurmam gerekiyor anladığım çok uzun hatasını geçmem için. yada başka bir yolu var mı? Sub wordtablo() Dim wrd As word.Application Dim dok As word.Document Dim tablo1 As word.Table Set wrd = New word.Application wrd.Visible = True Set dok =...

Geç oldu kusura bakmayın. bu şekilde istediğim oldu. teşekkür ederim. yukarıdaki koddan aşağı yukarı 200 adet var. bunu hepsine ayrı ayrı uygulamam gerekecek. for döngüsü kurmak istedim ama yapamadım. çünkü excelden worde 5 tablo her tablo da 60 veri var. herkese çok teşekkür ederim. sizi daha...

Biraz geç oldu ama kurua bakmayın. bu şekilde çalışmadı.."syntax error" hatası veriyor. Not: Kusura bakmayın, kodu eksik almışım. hata düzeldi. teşekkür ederim.

...istenen formatta alarak deneyin Kodlarınızın tamamı olmasa da olasılıkla şu şekilde çalışabilir Sub taablo() Dim wrd As Word.Application Dim dok As Word.Document Dim tablo1 As Word.Table Set wrd = New Word.Application wrd.Visible = True Set dok =...

merhaba, excelden worde tabloları vba kod ile gönderiyorum. Sub taablo() Dim wrd As word.Application Dim dok As word.Document Dim tablo1 As word.Table Set wrd = New word.Application wrd.Visible = True Set dok = wrd.Documents.Open("E:\ÇALIŞMAAA\rapor.docm") dok.Tables(1).Cell(2, 2).Select...

...PDF dosyalarının yolunu yazın ' Word uygulamasını oluşturun On Error Resume Next Set wordApp = CreateObject("Word.Application") On Error GoTo 0 If wordApp Is Nothing Then MsgBox "Microsoft Word yüklenmemiş veya bulunamadı.", vbExclamation Exit Sub...

...' Buraya kaydedilecek PDF dosyalarının yolunu yazın On Error Resume Next Set wordApp = CreateObject("Word.Application") On Error GoTo 0 If wordApp Is Nothing Then MsgBox "Microsoft Word yüklenmemiş veya bulunamadı.", vbExclamation Exit Sub End...

...iptal edildi." Exit Sub End If ' Word uygulamasını başlat On Error Resume Next Set wdApp = GetObject(, "Word.Application") If wdApp Is Nothing Then Set wdApp = CreateObject("Word.Application") End If On Error GoTo 0 wdApp.Visible = True...

Selamlar Dosyamdaki aşağıda ki gibi tırnak işaretli kodlar yerine altındaki kodlarla değiştirdim. Düzgün şekilde çalıştı. 'Dim olApp As Outlook.Application Dim olApp As Object 'Dim olEmail As Outlook.MailItem Dim olEmail As Object 'Dim olInsp As Outlook.Inspector Dim olInsp As Object 'Dim...

Öncelikle, Excel dosyanızda her personelin bilgilerini içeren bir tabloya ihtiyacınız var. Örnek bir düzen şu şekilde olabilir: ABCD İsim E-posta PDF Dosya Konu Ali Veli ali@example.com ali.pdf Ders Programı Ayşe Yılmaz ayse@example.com ayse.pdf Ders Programı Bu tabloyu Personel...

zahmet veriyorum size ama. bu kezde sayfalar kaydedildi uyarısı geliyor ancak herhangi bir yere pdf dosyası kaydetmiyor. özellikle word dosyasını yeni bir klasör açıp oraya ekledim. vba yı çalıştırdım msgbox daki sayfalar kaydedildi bilgisi geldi ancak hiç bir yere kayıt edilmiş bir pdf yok. siz...

Necati Bey Merhaba, Kodu referansla birlikte uyguladım. Çalıştı. Ancak bazı sınıflarda tablo boş. Sadece günler yazıyor. Hata ile ilgili bir görsel ekledim. https://hizliresim.com/h1t1sro

...As String, my_text As String Application.StatusBar = ". . . . . . .LÜTFEN BEKLEYİNİZ . . . . . . . ." Set wrdApp = CreateObject("Word.Application") wrdApp.Visible = True sablon = ThisWorkbook.Path & "\" & "YENİ.docx" For y = 1 To Sheets.Count Set ws = ThisWorkbook.Sheets(y) sonsat =...

Necati Bey emeğinize sağlık yordum sizi. Ancak sizin kodları denediğimde wrdDoc.Tables(1).AutoFitBehavior (wdAutoFitWindow) kısmında not defined hatası alıyorum. kendi kodlarımı denediğimde derslerdeki birleştirme kodu çalışmıyor. acaba neyi yanlış yapıyorum ?

...ayniders2 As String Set ws = ThisWorkbook.Sheets("Sayfa1") sonsat = ActiveSheet.UsedRange.Rows.Count Set wrdApp = CreateObject("Word.Application") wrdApp.Visible = True sablon = ThisWorkbook.Path & "\" & "YENİ.docx" Set wrdDoc = wrdApp.Documents.Add(sablon) derssay =...

...On Error GoTo 0 ' Recommended to turn off error resume after critical code Set wrdApp = CreateObject("Word.Application") wrdApp.Visible = True sablon = ThisWorkbook.Path & "\" & "YENİ.docx" Set wrdDoc = wrdApp.Documents.Add(sablon) Set tbl = wrdDoc.Tables(1) derssay...

Hocam teşekkürler geri dönüşünüz için. kodu uyguladığımda "wdAlignRowCenter" kısmı için variable not defined hatası alıyorum. bunu 1 olarak değiştirdiğimde aynı hatayı (wdAutoFitWindow) kısmı için alıyorum

...ekle As Integer Set ws = ThisWorkbook.Sheets("Sayfa1") sonsat = ActiveSheet.UsedRange.Rows.Count Set wrdApp = CreateObject("Word.Application") wrdApp.Visible = True sablon = ThisWorkbook.Path & "\" & "YENİ.docx" Set wrdDoc = wrdApp.Documents.Add(sablon) derssay =...

...On Error GoTo 0 ' Recommended to turn off error resume after critical code Set wrdApp = CreateObject("Word.Application") wrdApp.Visible = True sablon = ThisWorkbook.Path & "\" & "YENİ.docx" Set wrdDoc = wrdApp.Documents.Add(sablon) derssay =...