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

Merhaba, Bir word dosyasında boş olan satırları nasıl silebiliriz? dosyayı yukarıdan aşağıya doğru tarayacak, hiç bir şey olmayan satırları silecek. ilginize şimdiden teşekkürler, Spr = Application.PathSeparator wPath = ThisWorkbook.Path & Spr & "Word" wrdDoc = wPath & Spr &...

...= CreateObject("WScript.Shell") strYol = objShell.SpecialFolders("Desktop") yol = ThisWorkbook.Path Set objWord = CreateObject("word.Application") objWord.Visible = True objWord.Application.Documents.Open yol & "\" & "Test.docx", passworddocument:="1234", ReadOnly:=False Set wd =...

Çok teşekkürler Sn Halit Sağlıklı ve mutlu günler....

Bir çok yöntemi vardır ben sadece bir tanesini yazıyorum. Sub deneme() Dim wrdApp As Word.Application Dim wrdDoc As Word.Document Dim i As Integer Dim Spr As Variant Set wrdApp = CreateObject("Word.Application") Set wrdDoc = wrdApp.Documents.Add Spr = Application.PathSeparator wPath =...

Şok teşekkürler Sn Serdar Sağlıklı günler dilerim.

...Sub Excelden_Worde() Dim ktp As Workbook Set ktp = ThisWorkbook Dim nsnk As Object Set nsnk = CreateObject("word.application") nsnk.Visible = True Set nsnd = nsnk.Documents.Add nsnd.PageSetup.Orientation = 1 Const syfsonu As Long = 7 Dim syf As...

...yapmak gerekecektir. ..................................... .............................................. Dim wrdApp As Word.Application Dim wrdDoc As Word.Document Dim i As Integer Dim Spr As Variant Set wrdApp = CreateObject("Word.Application") Set wrdDoc =...

...fName = Application.InputBox("yasin") If fName = 1 Then ActiveSheet.Name = fName Range("A1:K" & x).Copy Set objword = CreateObject("Word.Application") objword.Visible = True Set MyDoc = objword.Documents.Add(DocumentType:=wdNewBlankDocument) objword.Selection.PasteSpecial Link:=False...

...= Application.InputBox("yeni", "yasin") If fName = 1 Then ActiveSheet.Name = fName Range("A1:K25").Copy Set objword = CreateObject("Word.Application") objword.Visible = True Set MyDoc = objword.Documents.Add(DocumentType:=wdNewBlankDocument) objword.Selection.PasteSpecial Link:=False...

...= Application.InputBox("yeni", "yasin") If fName = 1 Then ActiveSheet.Name = fName Range("A1:ı25").Copy Set objword = CreateObject("Word.Application") objword.Visible = True Set MyDoc = objword.Documents.Add(DocumentType:=wdNewBlankDocument) objword.Selection.PasteSpecial Link:=False...

Merhaba Haluk Hocam, Son satırı sarıya boyayıp "font sınıfının name özelliği kurulamaz" deyip hata veriyor. Neden olabilir? (dosyayı kapatıp yeniden açınca bir defa düzgün çalışıyor, hatalar arka arkaya farklı fontlar isteyince ortaya çıkıyor) Saygılarımla

Sistem fontlarını değil de örneğin masaüstünde bulunan "fontlarim"klasöründeki fontlar için de aynısını yapabilir miyiz?

Tekrar, tekrar, tekrar teşekkür ederim

...- 05/04/2019 - 31/01/2020 'E-Posta: sa4truss@gmail.com Dim objWord As Object, i As Integer Set objWord = CreateObject("Word.Application") For i = 1 To objWord.FontNames.Count Cells(i, 1) = "EXCEL.WEB.TR" Cells(i, 1).Font.Size = 48 Cells(i...

Te Teşekkür ederim, Tam da aradığım buydu

...teşekkür ederim emeğine sağlık, küçük bir problemim daha var umarum çözümü vardır.. Dim wdApp As Object Set wdApp = CreateObject("Word.Application") Range("A1").CurrentRegion.Copy Set oDoc = wdApp.Documents.Add oDoc.Content.PasteAndFormat (wdFormatOriginalFormatting) paylaşmış oldugun...

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