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

...Veri = S1.Range("A2:V" & Son).Value On Error Resume Next Set Word_App = GetObject(, "Word.Application") If Err.Number <> 0 Then Set Word_App = CreateObject("Word.Application") On Error GoTo 0 For X = LBound(Veri, 1) To UBound(Veri, 1) Set Uzlasma =...

@halit3 ustam merhaba. Makronuz çalışıyor. Problem yok. Excel dosyasının olduğu dizindeki word dosyalarını aynı dizine aynı isimle kaydediyor. Bu işlemi dosyaları browse yöntemiyle seçtirerek yapabilir miyiz? Teşekkür ederim.

...teşekkür ederim. Kodu alta yazıyorum. Private Sub CommandButton1_Click() Dim doc As Word.Document Set wordapp = CreateObject("word.application") sablon = "D:\****\*****\Desktop\schedule.docx" For i = 2 To 4 Set doc = wordapp.documents.Open(sablon) doc.bookmarks("date").Range.InsertAfter...

Okuduğum bir haberde aşağıdaki bilgiyi paylaşmışlar; Microsoft, Office uygulamalarında VBA (Visual Basic for Application) makrolarının varsayılan olarak devre dışı bırakılacağını duyurdu. Bu değişiklik, kötü amaçlı yazılımların yayılmasını önlemek için yapılmış ve internet'ten indirilen ve...

...vbDirectory)) = 0 Then MkDir kaydet2 If Len(Dir(kaydet1, vbDirectory)) = 0 Then MkDir kaydet1 Set msword = CreateObject("word.application") msword.Visible = True For i = 6 To sonsatir Set Uzlasma = msword.Documents.Open(Filename:=sablon, ReadOnly:=True) 'TAŞINMAZ SATIRLARI...

...vbDirectory)) = 0 Then MkDir kaydet2 If Len(Dir(kaydet1, vbDirectory)) = 0 Then MkDir kaydet1 Set msword = CreateObject("word.application") msword.Visible = True For i = 6 To sonsatir Set Uzlasma = msword.Documents.Open(Filename:=sablon, ReadOnly:=True) 'TAŞINMAZ SATIRLARI...

...Veri = S1.Range("A2:V" & Son).Value On Error Resume Next Set Word_App = GetObject(, "Word.Application") If Err.Number <> 0 Then Set Word_App = CreateObject("Word.Application") On Error GoTo 0 For X = LBound(Veri, 1) To UBound(Veri, 1) Set Uzlasma =...

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

...= 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) 'TAŞINMAZ SATIRLARI Uzlasma.Bookmarks("İl").Range =...

Set msword = CreateObject("word.application") Yukarıdaki bölümü aşağıdaki bölüm ile değiştirip denermisiniz Set msword =CreateObject("Word.Application.16")

Merhaba Resimdeki hatayı almaktayım

...= 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) 'TAŞINMAZ SATIRLARI Uzlasma.Bookmarks("İl").Range =...

...= 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) 'TAŞINMAZ SATIRLARI Uzlasma.Bookmarks("İl").Range =...

Ek olarak bizim forumda da linkteki konuları incelemeniz fayda sağlayabilir. https://www.excel.web.tr/search/255369/?q=word.application&o=date

...= LCase(fL.GetExtensionName(dosya.Name)) dosya_Adi = fL.GetBaseName(dosya) If uzanti = "doc" Or uzanti = "docx" Then Dim wd As Word.Application 'Dim wrddoc As Word.Document Set wd = CreateObject("Word.Application") wd.Documents.Open (dosya) wd.Visible = True '''''''''''''''''''''''''''''''''...

Denedim kendime uyarlayarak fakat excel şablonda bir bilgiyi örneğin ad soyad değiştirdiğinizde bir öncekinin yanına yazıyor değiştirilen ad soyad ikisi beraber çıkıyor bu sefer

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