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

  1. N

    Soru VBA Word Doldurma Hatası Hakkında

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

    Soru VBA Word Doldurma Hatası Hakkında

    ...= 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 =...
  3. Korhan Ayhan

    EXCELDE WORD E ÇEVİRME

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

    Çoklu word dosyasına veri gönderme hakkında yardım talebi

    ...= 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 '''''''''''''''''''''''''''''''''...
  5. F

    Excelden word de hazırlanmış metin içerisine veri aktarma

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

    Excelden word de hazırlanmış metin içerisine veri aktarma

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

    Soru VBA Word Doldurma Hatası Hakkında

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

    Soru VBA Word Doldurma Hatası Hakkında

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

    Soru VBA Word Doldurma Hatası Hakkında

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

    Soru VBA Word Doldurma Hatası Hakkında

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

    Soru VBA Word Doldurma Hatası Hakkında

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

    Soru VBA Word Doldurma Hatası Hakkında

    ...= 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")...
  13. halit3

    Soru VBA Word Doldurma Hatası Hakkında

    ...= 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")...
  14. O

    Excelden Word Belgesi açma kodu

    ...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...
  15. Ömer

    Excelden Word Belgesi açma kodu

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

    Excelden Word Belgesi açma kodu

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

    Paragraf Ayarı

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

    Excel sayfasındaki verileri Word tablosuna aktarmak

    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 ?
  19. A

    Excel sayfasındaki verileri Word tablosuna aktarmak

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

    Excel'den bir hüceyi word de istediğimiz bir metnin yerine göndermek

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