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

maalesef makro bilgim yok ama Haluk Bey'in söylediği şekilde bir kez daha yaptım oldu, teşekkür ederim yanıtınız için ben her seferinde bağlantı ekle de diyordum demek o yüzden olmuyor, sizin dediğiniz gibi sadece ikon yapınca şu an için oldu gibi duruyor. Teşekkür ederim.

Makroyla Word açmak işinizi görmez mi? CreateObject("Shell.Application").Open "d:\.....\.....\Büyük.docm"

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

Teşekkürler Haluk Bey. Mantığını anladım. Önce biçim seçip sonra metin eklemek gerekiyor demek ki. Ancak paragraf hizalamayı yapmadı nedense. Bu kodlara oluşturulan dosyayı açmak ya da bulunduğu klasörü açmak için kod eklenebilir mi?

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

Haluk Bey, bu kodları dosyada yaptığım bazı değişikliklere göre değiştirdim ve kendime uygun hale getirdim. Çok teşekkür ederim, çok güzel çalışıyor. Yapamadığım 2 şey kaldı, görevleri sıralarken madde imlerini koyulaştıramadım ve metni iki yana yasla özelliğini yapamadım. Kendim excel...

Şimdi word dosyasını farklı kaydedip o dosya üzerinde denedim, oldu. Teşekkürler. İlk denemede yanlış bir şeyler yaptım demek ki.:oops:

Teşekkürler. Ancak maalesef işlem tamamlanmıyor. "Excel başka bir ugulamanın OLE eylemini tamamlamasını bekliyor" şeklinde hata veriyor. Tamam denince 10 saniye bekleyip tekrar aynı hatayı veriyor. Makro sonlanmıyor. Pause/break vs işe yaramıyor. Görev yöneticisinden işlem sonlandırmak zorunda...

Bunda da aynı tanımlama hatasını verdi maalesef.

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