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

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

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

emeğinize sağlık, istediğim gibi çalışıyor. Teşekkür ederim

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

Teşekkür ederim şablonu oluşturdum ama her başlangıçta açıyor son çıktıda logo ve vektörler bulunmuyor?

...Microsoft Word xx.0 Object Library aktif edildikten sonra, Option Explicit Sub MSWord_Yazi_veResim_Yolla2() Dim wrdApp As Word.Application Dim wrdDoc As Word.Document Dim objWdRange As Word.Range, Image As String Dim sonsat As Long, i As Long, j As Integer, l As Integer Dim esas As String...

Necati bey ellerinize sağlık çok teşekkür ederim. Bunların sayfaların belli yerlerine vektör görsel ekleyeceğim tam olarak kod yapısını nereye nasıl yazabilirim. (1 logo, 2 vektör şekil)