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

...= "doc" Or LCase(fL.GetExtensionName(Dosya)) = "docx" Then i = i + 1 If i = 1 Then Set wrdApp = CreateObject("Word.Application") Set wrdDoc = wrdApp.Documents.Add wrdApp.Visible = True End If yer = Dosya Set objWord = CreateObject("Word.Application") objWord.Visible = True Set docWord =...

Sub KlasordekiWordDosyalariniTekSayfadaBirlestir() Dim dlg As FileDialog Dim klasorYolu As String Dim dosyaAdı As String Dim anaDoc As Document Dim eklenecekDoc As Document Dim docRange As Range Set anaDoc = Documents.Add Set dlg =...

..."Aktarım Seçimi") If userChoice = vbCancel Then Exit Sub On Error Resume Next Set wdApp = GetObject(Class:="Word.Application") If wdApp Is Nothing Then Set wdApp = CreateObject(Class:="Word.Application") On Error GoTo 0 wdApp.Visible = True Set wdDoc =...

Private Sub CommandButton1_Click() Dim Doc As Word.Document Dim WordApp As Word.Application Dim DesktopPath As String Dim NewFolderPath As String Dim FolderName As String Dim i As Integer DesktopPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\"...

Private Sub CommandButton1_Click() Dim Doc As Word.Document Dim WordApp As Word.Application Dim Sablon As String Dim i As Integer Sablon = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop") & "\" MkDir ("MEK DENETİM RAPORLARI") Set WordApp = New...

...Muzaffer Ali beyin kodundan uyarlanmıştır. Private Sub CommandButton1_Click() Dim Doc As Word.Document Dim WordApp As Word.Application Dim Sablon As String Dim i As Integer Sablon = "C:\Users\mehmet.karakas\Desktop\2025 Denetim\" Set WordApp = New Word.Application...

...kodu silip yerine aşağıdakini kopyalayın. Private Sub CommandButton1_Click() Dim Doc As Word.Document Dim WordApp As Word.Application Dim Sablon As String Dim i As Integer Sablon = "C:\Users\mehmet.karakas\Desktop\2025 Denetim\" Set WordApp = New Word.Application...

...olmazsa word dosyanızı da paylaşın. Private Sub CommandButton1_Click() Dim doc As Word.Document Set wordapp = CreateObject("word.application") sablon = "C:\Users\mehmet.karakas\Desktop\2025 Denetim\MEK.docx" Set doc = wordapp.Documents.Open(sablon) For i = 2 To 7...

...excel çok kasıyor. --------------------- Private Sub CommandButton1_Click() Dim doc As Word.Document Set wordapp = CreateObject("word.application") sablon = "C:\Users\mehmet.karakas\Desktop\2025 Denetim\MEK.docx" For i = 2 To 7 Set doc = wordapp.Documents.Open(sablon)...

...Function ayar(ad, isimsay) 'On Error Resume Next Dim wordApp As Object Dim doc As Object Set wordApp = GetObject(class:="Word.Application") Set doc = wordApp.Documents.Add ad = Split(ad, " ") For i = 0 To UBound(ad) doc.Content.Text = ad(i)...

merhaba, yardımcı olursanız cok sevinirim. adres mektup birleştirmeden ürettiğim 110 sayfalık word belgesini pdf olarak tek tek kaydetmek istiyorum. ancak her sayfanın 2. satırı isimler var. bu isimleride dosya ismi olarak vermek istiyorum. ... isimleri alamadan işlemi şu şekilde yapabiliyorum...

Necati bey merhaba, benzer bir sorunumda benim var. yardımcı olursanız cok sevinirim. adres mektup birleştirmeden ürettiğim 110 sayfalık word belgesini pdf olarak tek tek kaydetmek istiyorum. ancak her sayfanın 2. satırı isimler var. bu isimleride dosya ismi olarak vermek istiyorum. ...

Hocam ne yazık ki çalışmadı. Tabloları boş olarak aldı.

...for döngüsü kurmam gerekiyor anladığım çok uzun hatasını geçmem için. yada başka bir yolu var mı? Sub wordtablo() Dim wrd As word.Application Dim dok As word.Document Dim tablo1 As word.Table Set wrd = New word.Application wrd.Visible = True Set dok =...

Geç oldu kusura bakmayın. bu şekilde istediğim oldu. teşekkür ederim. yukarıdaki koddan aşağı yukarı 200 adet var. bunu hepsine ayrı ayrı uygulamam gerekecek. for döngüsü kurmak istedim ama yapamadım. çünkü excelden worde 5 tablo her tablo da 60 veri var. herkese çok teşekkür ederim. sizi daha...

Biraz geç oldu ama kurua bakmayın. bu şekilde çalışmadı.."syntax error" hatası veriyor. Not: Kusura bakmayın, kodu eksik almışım. hata düzeldi. teşekkür ederim.

...istenen formatta alarak deneyin Kodlarınızın tamamı olmasa da olasılıkla şu şekilde çalışabilir Sub taablo() Dim wrd As Word.Application Dim dok As Word.Document Dim tablo1 As Word.Table Set wrd = New Word.Application wrd.Visible = True Set dok =...

merhaba, excelden worde tabloları vba kod ile gönderiyorum. Sub taablo() Dim wrd As word.Application Dim dok As word.Document Dim tablo1 As word.Table Set wrd = New word.Application wrd.Visible = True Set dok = wrd.Documents.Open("E:\ÇALIŞMAAA\rapor.docm") dok.Tables(1).Cell(2, 2).Select...

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