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

...kendinize göre değiştirmezseniz çalışmaz. Private Sub CommandButton1_Click() Dim doc As Word.Document Set wordapp = CreateObject("word.application") sablon = "C:\Users\mete\Desktop\EXCELDEN WORDE YAZDIRMA\istinaftanferagat.docx" Set doc = wordapp.Documents.Open(sablon)...

...vbDirectory)) = 0 Then MkDir kaydet2 If Len(Dir(kaydet1, vbDirectory)) = 0 Then MkDir kaydet1 Set msword = CreateObject("word.application") msword.Visible = True Set Uzlasma = msword.Documents.Open(Filename:=Sablon, ReadOnly:=False) For i = 2 To sonsatir...

Makroyu denedim gerçekten çok hızlı. Diğeri her defa aç kapa aç kapa şeklinde yapıyor. Bunda hemen sonuçlanıyor. Öncelikle metin içine veri çağırırken nasıl bir yol izlemeliyim? ...... ala ... tl gibi. O kısımlara hücre oluşturup mu atlamalıyım? Teşekkürler.

...vbDirectory)) = 0 Then MkDir kaydet2 If Len(Dir(kaydet1, vbDirectory)) = 0 Then MkDir kaydet1 Set msword = CreateObject("word.application") msword.Visible = True Set Uzlasma = msword.Documents.Open(Filename:=Sablon, ReadOnly:=False) For i = 2 To sonsatir...

Yukarıdaki hatanın sebebini buldum. Makronun birinde alttaki pasif olarak yazdığım kod var, sonda aktif kodu eksik kalmış. Ekledim düzeldi. Pasif With Application .DisplayAlerts = False .ScreenUpdating = False .Calculation = xlManual End With Aktif With...

...= 0 Then MkDir kaydet2 If Len(Dir(kaydet1, vbDirectory)) = 0 Then MkDir kaydet1 For i = 2 To sonsatir Set msword = CreateObject("word.application") msword.Visible = True Set Uzlasma = msword.Documents.Open(Filename:=Sablon, ReadOnly:=False) 'Değişken ile bilgi değiştirme başla With...

...= 0 Then MkDir kaydet2 If Len(Dir(kaydet1, vbDirectory)) = 0 Then MkDir kaydet1 For i = 2 To sonsatir Set msword = CreateObject("word.application") msword.Visible = True Set Uzlasma = msword.Documents.Open(Filename:=Sablon, ReadOnly:=False) Uzlasma.Bookmarks("Ada").Range = R1.Cells(i, "F")...

...= 0 Then MkDir kaydet2 If Len(Dir(kaydet1, vbDirectory)) = 0 Then MkDir kaydet1 For i = 2 To sonsatir Set msword = CreateObject("word.application") msword.Visible = True Set Uzlasma = msword.Documents.Open(Filename:=Sablon, ReadOnly:=False) Uzlasma.Bookmarks("Ada").Range = R1.Cells(i, "F")...

...yapıştırsam yardımcı olursanız sevinirim. Private Sub CommandButton1_Click() Dim doc As Word.Document Set wordapp = CreateObject("word.application") sablon = "C:\belgelerim\sablon.docx" For i = 2 To 2 Set doc = wordapp.Documents.Open(sablon) doc.Bookmarks("dosya").Range.InsertAfter...

Merhaba, Deneyiniz. Sub WordOnizle() Dim WordDoc As Object, yol As String Set WordDoc = CreateObject("Word.Application") yol = "C:\Belgelerim\" & [D2] & ".docx" WordDoc.Visible = True WordDoc.Documents.Open (yol) WordDoc.Documents(yol).PrintPreview...

...uzantının sonuna ekleyip açacağımı bilemiyorum. Sub WordOnizle() Dim WordDoc As Object Set WordDoc = CreateObject("Word.Application") WordDoc.Visible = True WordDoc.Documents.Open ("C:\belgelerim\bu kısma D2'de yazan veri adıyla kayıtlı word belgesi demem...

...Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim app As Microsoft.Office.Interop.Word.Application Dim dokuman As Microsoft.Office.Interop.Word.Document Dim paragraf As Microsoft.Office.Interop.Word.Paragraph If...

Merhaba, söylediklerinizi yaptım. Ancak aşağıdaki gibi dosya bulunamadı hatası alıyorum. word ve excel dosyalarını aynı klasöre aldım. Word'e modül ekleyip kodları yapıştırdım. Çalıştır düğmesine bastım böyle bir hata aldım. Yardımcı olabilir misiniz ?

Merhaba Excel ve word dosyaları aynı klasörde olsun. Aşağıdaki kodları word de bir modül oluşturup, yapıştırın. Sub ff() say = ActiveDocument.Tables.Count If say > 0 Then Selection.EndKey unit:=wdStory, Extend:=wdMove ActiveDocument.Sections.Add Selection.GoTo What:=wdGoToPage...

15. mesajı yazan kişi farklı hocam.

...replTxt = Range("B" & Target.Row) If Len(findTxt) < 1 Or Len(replTxt) < 1 Then Exit Sub Set wdApp = CreateObject("Word.Application") wdApp.Visible = False Set wdDoc = wdApp.Documents.Open("C:\klasör\altklasör\deneme word.doc") With wdDoc.Content.Find...

Bu kodu çalıştırabildim. Yazdırma işini de hallettim ama Birden fazla kelimeyi birden fazla değişiklik haline nasıl getirebilirim denedim ama hata aldım. Ahmeti a1 hücresinde değiştirdiğim hale Mehmet i de a2 de değiştirdim hale getirmem lazım. Bir de örneğin doc dosyasında Ahmet var ve başka...

...Range("A1")) Is Nothing Then Exit Sub findTxt = "Ahmet" replTxt = Target.Value Set wdApp = CreateObject("Word.Application") wdApp.Visible = False Set wdDoc = wdApp.Documents.Open("C:\klasör\altklasör\deneme word.doc") With wdDoc.Content.Find...

Hocam denedim çalıştıramadım kodla alakalı değil ben bişeyleri yanlış yapıyorum sanırım. Modüle içine kodu yapıştırıp bold olan yerleri kendime göre düzenleyip Sayfa1 A1 e yazı yazdığımda word dosyasındaki "Ahmet" yazısının değişmesi lazım ama değişmiyor

...Aşağıdaki satırlardaki BOLD kısımları kendinize göre uyarlamalısınız findTxt = "Ahmet" replTxt = Worksheets("Sayfa1").Range("A1").Value Set wdApp = CreateObject("Word.Application") wdApp.Visible = False Set wdDoc = wdApp.Documents.Open("C:\klasör\altklasör\deneme word.doc")