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

...yapmak istiyorum, kullandığım kod aşağıda yardımcı olursanız sevinirim; Private Sub CommandButton1_Click() Dim teklif_formu As Word.Application Set teklif_formu = New Word.Application teklif_formu.Visible = True teklif_formu.Activate teklif_formu.Documents.Add Environ("UserProfile") &...

Herkese merhaba Buradaki makroyu kullanarak word dosyamdaki sayfaları ayrı belge olarak kaydedeceğim fakat dosyaların isimlerinin de belgede yazan yazıyla adlandırılmasını istiyorum. Şu anki belgemde Mektup birleştirme ile hazırlanmış katılım belgeleri var. Bu belgelerin hepsinde de sadece...

Şablon sabit, tüm raporlar bir uygulama tarafından tipik şekilde oluşturuluyor. Sizin daha önce hazırladığınız kod üzerinden deniyorum ama henüz hiç import edemedim. Sub import_kod() Dim FSO As Object, dosya As Variant, pdfDoc As PDFDocument, pages As PDFPageCollection Dim t As...

bu konuda aşağıdaki kodu buldum, mail gövdesini Excel' e kopyalama yapıyor, sorun yok. benim işlemim bundan sonra başlıyor, excel' e kopyalanan verinin "A" sütununda bir kritere göre (>100) filtre edilmesi, buradan kopyala yapılıp başka sayfaya yapıştırmayı nasıl yapabilir? özetle Outlook...

...VBA ile Word dosyası açmak için önce Word application tanımlaması yapılır. Örnek Dim WordApp as object set WordApp = createobject("Word.Application") Word referansı eklemek yerine word sınıfı bir değişkene atanmış oldu. Bu şekilde bir değişkene word programı atanırsa hangi versiyon olursa...

...If .Show <> 0 Then dosyaYolu = .SelectedItems(1) Dim wrdApp As Object Set wrdApp = CreateObject("Word.Application") wrdApp.Visible = True Dim wrdDoc As Object Set wrdDoc =...

...- Firma Adının ilk kelimesini 'yol = Environ("USERPROFILE") & "\Desktop\" yol = ThisWorkbook.Path & "\" Set wd = CreateObject("Word.Application") wd.Visible = True wd.documents.Add Application.Wait (Now + TimeValue("0:00:03")) sonsat = Cells(Rows.Count, 1).End(3).Row For x = 1 To sonsat Step...

Hocam bu kod çalıştı 3 saniye yapınca biraz yavaş ama olsun işimi gördü. Hata kodu olan son macro olduğu yerde loopa girdi hatadan çıkamadı o yüzden bunu kullandım. Eline emeğine sağlık. Hakkını helal et. Birde eğer mümkünse ve bildiğin hazır mail gönderme macrosu varsa iletebilir misin...

...- Firma Adının ilk kelimesini yol = Environ("USERPROFILE") & "\Desktop\" yol = ThisWorkbook.Path & "\" Set wd = CreateObject("Word.Application") wd.Visible = True sonsat = Cells(Rows.Count, 1).End(3).Row For x = 1 To sonsat Step 43 Range("a" & x & ":c" & x + 17).Copy wd.documents.Add Tekrar...

...- Firma Adının ilk kelimesini yol = Environ("USERPROFILE") & "\Desktop\" yol = ThisWorkbook.Path & "\" Set wd = CreateObject("Word.Application") wd.Visible = True sonsat = Cells(Rows.Count, 1).End(3).Row For x = 1 To sonsat Step 43 Range("a" & x & ":c" & x + 17).Copy wd.documents.Add...

...True, False Sub WD_Aktar() 'BA Bilgilendirme - Firma Adının ilk kelimesini yol = ThisWorkbook.Path & "\" Set wd = CreateObject("Word.Application") wd.Visible = True sonsat = Cells(Rows.Count, 1).End(3).Row For x = 1 To sonsat Step 43 Range("a" & x & ":c" & x + 17).Copy wd.documents.Add...

...tam hali bu Sub WD_Aktar() 'BA Bilgilendirme - Firma Adının ilk kelimesini yol = ThisWorkbook.Path & "\" Set wd = CreateObject("Word.Application") wd.Visible = True sonsat = Cells(Rows.Count, 1).End(3).Row For x = 1 To sonsat Step 43 Range("a" & x & ":c" & x + 17).Copy wd.documents.Add...

...çalıştırdım Sub WD_Aktar() 'BA Bilgilendirme - Firma Adının ilk kelimesini yol = ThisWorkbook.Path & "\" Set wd = CreateObject("Word.Application") wd.Visible = True sonsat = Cells(Rows.Count, 1).End(3).Row For x = 1 To sonsat Step 43 Range("a" & x & ":c" & x + 17).Copy wd.documents.Add...

...Sub WD_Aktar() 'BA Bilgilendirme - Firma Adının ilk kelimesini yol = ThisWorkbook.Path & "\" Set wd = CreateObject("Word.Application") wd.Visible = True sonsat = Cells(Rows.Count, 1).End(3).Row For x = 1 To sonsat Step 43 Range("a" & x & ":c" & x + 17).Copy wd.documents.Add wd.Selection.Paste...

...Sub WD_Aktar() 'BA Bilgilendirme - Firma Adının ilk kelimesini yol = ThisWorkbook.Path & "\" Set wd = CreateObject("Word.Application") wd.Visible = True sonsat = Cells(Rows.Count, 1).End(3).Row For x = 1 To sonsat Step 43 Range("a" & x & ":c" & x + 17).Copy wd.documents.Add...

Sub Test() Dim objWord As Object On Error GoTo ErrHandler: Set objWord = CreateObject("Word.Application") ' Makro kodları buraya yazilacak.... ' ......... ' ....... ' .... ' .. GoTo SafeExit: ErrHandler: If Err.Number = 429 Then...

...ActiveSheet.OLEObjects("Örnek") obj.Verb (xlVerbPrimary) obj.Object.SaveAs strYol & "\" & " Örnek" & ".docx" Set wd = CreateObject("word.Application") wd.Visible = True wd.Application.Documents.Open strYol & "\" & " Örnek" & ".docx" obj.Object.Application.Quit False Sec =...

Hocam dediklerini harfiyen uyguladım ve sonuç aldım yine teşekkür ediyorum. Ek olarak ilk gönderdiğim kodda belirttiğim: objWord.Application.Documents.Open yol & "\" & "Test.docx", passworddocument:="1234", ReadOnly:=False Kod satırında bulunan Word belgesi açma şifresini barındıran kod...

Çok teşekkürler,

...Then MsgBox MyFile & " isimli dosya bulunamadı !", vbCritical Exit Sub End If Set WdApp = CreateObject("Word.Application") ' WdApp.Visible = True WdApp.Documents.Open MyFile Set myTable = WdApp.ActiveDocument.Tables(1) For i =...