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

  1. catalinastrap

    PDF to XML

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

    Xml To Pdf

    ...' 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...
  3. A

    exeldeki veriyi worde aktarmak için kod düzeltme

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

    Satış Raporlarını Email Gönder

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

    Outlook'tan Excel'e tablo kopyalama

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

    70 öğretmenin ders programını e-posta gönderme

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

    VBA ile Word dosyasındaki belirli sayfaları isim seçerek yazdırmak

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

    Excel tablosunu Word tablosuna aktarmak

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

    Excel tablosunu Word tablosuna aktarmak

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

    Excel tablosunu Word tablosuna aktarmak

    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 ?
  11. N

    Excel tablosunu Word tablosuna aktarmak

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

    Excel tablosunu Word tablosuna aktarmak

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

    Excel tablosunu Word tablosuna aktarmak

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

    Excel tablosunu Word tablosuna aktarmak

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

    Excel tablosunu Word tablosuna aktarmak

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

    Excel tablosunu Word tablosuna aktarmak

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

    Excel tablosunu Word tablosuna aktarmak

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

    Excel'de ki Resim URL'ni Worde Aktarma

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

    Excel'de ki Resim URL'ni Worde Aktarma

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

    Excel'de ki Resim URL'ni Worde Aktarma

    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)
Üst