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

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

...Dim fL As Object, fs As Object Set fL = CreateObject("Scripting.FileSystemObject") sat = 1 sut = 1 Set wrdApp = CreateObject("Word.Application") Set wrdDoc = wrdApp.Documents.Add wrdApp.Visible = True With wrdApp.ActiveDocument.PageSetup .LeftMargin = 30 '50 'sol .RightMargin = 10 '50...

...As Object, f As Object Set fL = CreateObject("Scripting.FileSystemObject") sat = 1 sut = 1 sayi = 3 Set wrdApp = CreateObject("Word.Application") Set wrdDoc = wrdApp.Documents.Add wrdApp.Visible = True With wrdApp.ActiveDocument.PageSetup .LeftMargin = 30 '50 'sol .RightMargin = 10 '50...

...= "Picture" Then Picture.Delete End If Next Picture yol = objDialog.Filename 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 =...

sizlere zahmet veriyorum, teşekkür ederim. Aşağıda gif ekledim. Söylediğiniz gibi güncel kodu denedim ekrandaki hatayı alıyorum.