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

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)

Aşağıdaki kodu herhangi bir module ekleyin ve TestFindAll makrosunu verilerinizin olduğu sayfa aktif iken çalıştırınız. Makro kodu https://www.cpearson.com/excel/findall.aspx# sayfasından alınmış ve sizin sorunuza göre uyarlanmıştır. Sub TestFindAll() On Error Resume Next...

...Microsoft Word xx.0 Object Library aktif edildikten sonra, Option Explicit Sub MSWord_Yazi_veResim_Yolla() 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 sonsat =...

Merhaba, Sub ExtractCase() Dim i As Long Dim upper As String Dim lower As String For i = 1 To 100 upper = "" lower = "" Dim word As Variant Words = Split(Cells(i, 1).Value, " ") For Each word In Words If UCase(word) = word Then upper = upper & word & " " Else...

...satır ekleyin. Private Sub CommandButton1_Click() Dim wordapp As Object, doc As Object, i As Integer Set wordapp = CreateObject("word.application") sablon = "C:\Users\ismail\Desktop\Test\test.docx" Set doc = wordapp.Documents.Open(sablon) doc.Bookmarks("\page").Range.Copy For i = 2 To 103...