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

...'Microsoft Word 12.0 Object Library kod: Private Sub CommandButton1_Click() Application.ScreenUpdating = False Dim appword As Word.Application Dim docword As Word.Document Set appword = CreateObject(class:="Word.Application") If Not appword Is Nothing Then Set appword =...

Merhaba 75 sayfalık word dosyanızın tamamını kopyalayıp boş bir excel sayfasının A sütununa yapıştırınız (Tercihen Sayfa1 olsun). Aşağıdaki makro kodunu modül olarak bu Excel dosyanıza ekleyip çalıştırınız. Makro parantez içine yazılı kelimeleri Sayfa2 'de alt alta sıralayacaktır (Dosyanızda...

Merhaba Kodları birleştirmek istiyorsanız şöyle deneyebilirsiniz Dim wdApp As Object Set wdApp = CreateObject("Word.Application") Range("A1").CurrentRegion.Copy Set oDoc = wdApp.Documents.Add oDoc.Content.PasteAndFormat (wdFormatOriginalFormatting) With wdApp .Visible = True .Activate End With...

...bu olacak.. İkincisi açıkta bir word dosyası varsa kod hata veriyor.. Yardımlarınız için teşekkür ederim.. Parça 1 Dim wdApp As Word.Application Range("A1").CurrentRegion.Copy Set wdApp = CreateObject("Word.Application") wdApp.Documents.Add.Content.PasteAndFormat (wdFormatOriginalFormatting)...

bunu bir dene Sub Word() Range("A1").CurrentRegion.Copy Dim appword As Word.Application Dim docword As Word.Document Set appword = CreateObject(class:="Word.Application") If Not appword Is Nothing Then Set appword = GetObject(class:="Word.Application") appword.Visible = True Set docword =...

...sanırım bunu revize etmek gerekiyor.. Kodları paylaşıyorum desteğinizi bekliyorum, teşekkürler .. Sub Word() Dim wdApp As Word.Application Range("A1").CurrentRegion.Copy Set wdApp = CreateObject("Word.Application") wdApp.Documents.Add.Content.Paste With wdApp .Visible = True .Activate End...

Bu kod Sub Test() Dim objWord As Object Set objWord = CreateObject("Word.Application") For i = 2 To 6 Set objWdFile = objWord.documents.Add objWdFile.SaveAs ThisWorkbook.Path & Application.PathSeparator & Range("A" & i).Text & ".docx" objWdFile.Close Next objWord.Quit Set objWdFile = Nothing Set...

...myArr(1 To NoA) For i = 1 To NoA myArr(i) = StrReverse(Range("A" & i)) Next Set MyWd = CreateObject("Word.Application") MyWd.WordBasic.SortArray myArr() For i = 1 To NoA Range("B" & i) = StrReverse(myArr(i)) Next Set MyWd =...

...koda, kopya sayısı = 3 eklemek istiyorum. Yardımlarınızı rica ederim. Private Sub CommandButton1_Click() Set WD = CreateObject("word.Application") WD.Visible = True yol = ThisWorkbook.Path Dosya = Dir(yol & "\*doc*") Do While Dosya <> "" WD.Application.Documents.Open yol & "\" & Dosya...

Haluk Bey Merhabalar Sizden bir ricam olacak, yardımcı olursanız sevinirim, Sizin yazmış olduğunuz aşağıdaki makro ifadesini bir örnekte çalıştırdığımda Ctrl+Shift+t olarak ₺ para simgesi çıkıyor ancak ₺4.251,90 örneğinde görüleceği üzere rakamın solunda çıkıyor, ben para simgesinin rakamın...

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.