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

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

...üzerinde işlem yapmak istiyorsunuz. Bunun için aşağıdaki kodu kullanabilirsiniz. Kodlarda bulunan "NesneAdı" yerine kendi word nesnenizin adını yazmalısınız. ActiveSheet.OLEObjects("NesneAdı").Verb (xlVerbPrimary) Set WDApp = GetObject(, "Word.Application") Set WDDoc =...

Sn Haluk ilgi ve alakanıza çok teşekkürler, Müsaadelerinize bir konu daha sorabiliyorum, kalan tablolarda metin fontu bold olmayan satırlarda, satır yüksekliğini nasıl azalta biliriz? Satır yüksekliği mevcut halinden biraz daha küçük olacak biçimde ekli resimde olduğu şekliyle; "Satır...

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

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

Merhaba, Bir word dosyasında boş olan satırları nasıl silebiliriz? dosyayı yukarıdan aşağıya doğru tarayacak, hiç bir şey olmayan satırları silecek. ilginize şimdiden teşekkürler, Spr = Application.PathSeparator wPath = ThisWorkbook.Path & Spr & "Word" wrdDoc = wPath & Spr &...

...= CreateObject("WScript.Shell") strYol = objShell.SpecialFolders("Desktop") yol = ThisWorkbook.Path Set objWord = CreateObject("word.Application") objWord.Visible = True objWord.Application.Documents.Open yol & "\" & "Test.docx", passworddocument:="1234", ReadOnly:=False Set wd =...

Çok teşekkürler Sn Halit Sağlıklı ve mutlu günler....

Bir çok yöntemi vardır ben sadece bir tanesini yazıyorum. Sub deneme() Dim wrdApp As Word.Application Dim wrdDoc As Word.Document Dim i As Integer Dim Spr As Variant Set wrdApp = CreateObject("Word.Application") Set wrdDoc = wrdApp.Documents.Add Spr = Application.PathSeparator wPath =...

Şok teşekkürler Sn Serdar Sağlıklı günler dilerim.

...Sub Excelden_Worde() Dim ktp As Workbook Set ktp = ThisWorkbook Dim nsnk As Object Set nsnk = CreateObject("word.application") nsnk.Visible = True Set nsnd = nsnk.Documents.Add nsnd.PageSetup.Orientation = 1 Const syfsonu As Long = 7 Dim syf As...

...yapmak gerekecektir. ..................................... .............................................. Dim wrdApp As Word.Application Dim wrdDoc As Word.Document Dim i As Integer Dim Spr As Variant Set wrdApp = CreateObject("Word.Application") Set wrdDoc =...