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

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

Bu şekilde dener misiniz; Sub WordTablo_Optimize() Dim wrd As Word.Application Dim dok As Word.Document Dim excelSatir As Long, wordSutun As Long Dim sutunHarfleri As Variant sutunHarfleri = Array("B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L") Set wrd = New...

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

Bazı kısımları kendinize göre düzenlemeniz gerekebilir; Sub TumVerileriAktar() Dim wrd As Word.Application Dim dok As Word.Document Dim tablo As Word.Table Dim excelSatir As Long, wordTabloNo As Long, wordSatir As Long Dim veriAraligi As Range, hucre As Range Dim i As...

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.

Excel'de göründüğü gibi alması için format koruması yapılarak alınabilir. Dener misiniz; Sub taablo() Dim wrd As word.Application Dim dok As word.Document Dim tablo1 As word.Table Dim sayiDegeri As Variant Set wrd = New word.Application wrd.Visible = True Set...

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

Deneyip sonucu paylaşabilir misiniz; Sub ExtractTablesToExcel() Dim olApp As Outlook.Application Dim olNamespace As Outlook.Namespace Dim olFolder As Outlook.MAPIFolder Dim olItems As Outlook.Items Dim olMail As Outlook.MailItem Dim olItem As Object Dim i As Long...

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