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

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.

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