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

Teşekkürler. Referans bölümünde object library 12 değil de 16 yüklü (işaretli) görünüyor. Ancak makroyu çalıştırdığımda Dim objWord As Word.Application kısmında User defined type not defined hatası veriyor. Beceremedim herhalde.

...MyFile = .SelectedItems.Item(1) Else Exit Sub End If End With Set objWord = CreateObject("Word.Application") Set objDoc = objWord.Documents.Open(MyFile) With objWord.Selection.Find .ClearFormatting .Text = "ÖZEL ESASLAR:" End With...

@halit3 hocam bu kodları sizin kod yazıp ta 6 dosyayı birleştirip oluşan ana dosyada çalıştırıyorum. Excelle foto altındaki yazıları alıyor sadece :( bana lazım olan yine wordde sizin oluşturduğunuz tablo hali ama alfabetik sıralı. Aşağıda örnek bir foto var. O şekilde sıralı yapmam lazım.

...uzanti = fL.GetExtensionName(dosya) If uzanti = "doc" Or uzanti = "docx" Then yol = dosya ReDim veri(5000) Dim objWord As Word.Application Dim docWord As Word.Document Dim ImgItem As Word.InlineShape Set objWord = CreateObject("Word.Application") objWord.Visible = True Set docWord =...

...uzanti = fL.GetExtensionName(dosya) If uzanti = "doc" Or uzanti = "docx" Then yol = dosya ReDim veri(5000) Dim objWord As Word.Application Dim docWord As Word.Document Dim ImgItem As Word.InlineShape Set objWord = CreateObject("Word.Application") objWord.Visible = True Set docWord =...

...Object Set fL = CreateObject("Scripting.FileSystemObject") sat1 = 1 sut1 = 1 say1 = 3 yuk = 220 '165 Set wrdApp = CreateObject("Word.Application") Set wrdDoc = wrdApp.Documents.Add wrdApp.Visible = True With wrdApp.ActiveDocument.PageSetup .LeftMargin = 30 '50 'sol .RightMargin = 10 '50...

Mükemmelsiniz hocam ellerinize sağlık :) Şu an süper çalışıyor. Tabi diğer yazdığınız macroya nazaran daha yavaş convert işlemi yapıyor ama o ekranda çıkan "save - don't save" kutucuğu çıkmadan başka bir klasöre convert işlemini yapıyor.

...If "~$" = Mid(dosya.Name, 1, 2) Then GoTo Atla2 If uzanti = "doc" Or uzanti = "docx" Then veri = dosya Dim objWord As Word.Application Dim docWord As Word.Document Set objWord = CreateObject("Word.Application") objWord.Visible = True Set docWord = objWord.Documents.Open(Filename:=veri...

hocam nasıl teşekkür edeceğimi şaşırdım, elinize sağlık. Çok minnettarım. Sizin bu yardımseverliğinize karşın bende altın üye oldum. Çok teşekkür ediyoprum

...As Object Set fL = CreateObject("Scripting.FileSystemObject") sat1 = 1 sut1 = 1 say1 = 3 yuk = 255 '165 Set wrdApp = CreateObject("Word.Application") Set wrdDoc = wrdApp.Documents.Add wrdApp.Visible = True With wrdApp.ActiveDocument.PageSetup .LeftMargin = 30 '50 'sol .RightMargin = 10 '50...

Hocam konuyu hortlatıyorum gibi olucak ama çok güzel çalışıyor hatta baya bir yol kat ettim. Ancak şu andaki dosyalarımda save - save as çıkmaya başladı. tek tek hepsine don't save diyorum. o yüzden de kullanamıyorum şu anda. Bunun için kod üzerinden mi yoksa program üzerinden mi birşey...

...Object Set fL = CreateObject("Scripting.FileSystemObject") sat1 = 1 sut1 = 1 say1 = 3 yuk = 220 '165 Set wrdApp = CreateObject("Word.Application") Set wrdDoc = wrdApp.Documents.Add wrdApp.Visible = True With wrdApp.ActiveDocument.PageSetup .LeftMargin = 30 '50 'sol .RightMargin = 10 '50...

her bir dosyam farklı sayfa numaralarına sahip. birisi 200, birisi 96 gibi. son veridiğiniz kodlarda yukarıdaki hatayı alıyorum. excel'de düğme ekleyip denedim yine aynı. Bir önceki kodunuz muazzam çalışıyor ama 3 numaralı dosyamda takılıyor.

...Object Set fL = CreateObject("Scripting.FileSystemObject") sat1 = 1 sut1 = 1 say1 = 3 yuk = 255 '165 Set wrdApp = CreateObject("Word.Application") Set wrdDoc = wrdApp.Documents.Add wrdApp.Visible = True With wrdApp.ActiveDocument.PageSetup .LeftMargin = 30 '50 'sol .RightMargin = 10 '50...

...= fL.GetBaseName(dosya) If "~$" = Mid(dosya.Name, 1, 2) Then GoTo Atla2 If Uzanti = "doc" Or Uzanti = "docx" Then Dim wrdApp As Word.Application Dim wrdDoc As Word.Document Set wrdApp = CreateObject("Word.Application") wrdApp.Documents.Open (dosya) wrdApp.Visible = True Klasor =...

...= LCase(fL.GetExtensionName(dosya.Name)) dosya_adi = fL.GetBaseName(dosya) If Uzanti = "doc" Or Uzanti = "docx" Then Dim wrdApp As Word.Application Dim wrdDoc As Word.Document Set wrdApp = CreateObject("Word.Application") wrdApp.Documents.Open (dosya) wrdApp.Visible = True Klasor =...

...= LCase(fL.GetExtensionName(dosya.Name)) dosya_adi = fL.GetBaseName(dosya) If Uzanti = "doc" Or Uzanti = "docx" Then Dim wrdApp As Word.Application Dim wrdDoc As Word.Document Set wrdApp = CreateObject("Word.Application") wrdApp.Documents.Open (dosya) wrdApp.Visible = True say =...

@halit3 resmen kodlarla görsel şölen yapmaya devam ediyorsunuz :)

...Object Set fL = CreateObject("Scripting.FileSystemObject") sat1 = 1 sut1 = 1 say1 = 3 yuk = 255 '165 Set wrdApp = CreateObject("Word.Application") Set wrdDoc = wrdApp.Documents.Add wrdApp.Visible = True With wrdApp.ActiveDocument.PageSetup .LeftMargin = 30 '50 'sol .RightMargin = 10 '50...

@halit3 siz ne muhteşem bir insansınız. Hafta içi hafta sonu demediniz benim için uğraştınız. Kod muhteşem çalışıyor. Tam istediğim gibi. Çok teşekkür ediyorum. Elleriniz dert görmesin.