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

  1. K

    VBA İle Word Dosyası Düzenlerken Salt Okunur Hatası Alma?

    ...okunur halde kalmasın. saygılar herkese. Private Sub CommandButton1_Click() Dim doc As Word.Document Set wordapp = CreateObject("word.application") sablon = "C:\belgelerim\sablon.docx" Set doc = wordapp.Documents.Open(sablon) doc.Bookmarks("t").Range.InsertAfter Cells(1, 1)...
  2. RBozkurt

    Çözüldü VBA | Word Mail Merge Hk.

    ...strWordTemplate = ThisWorkbook.Path & "\etiketRA.docx" strSavePath = ThisWorkbook.Path & "\Etiket " Set wdApp = CreateObject("Word.Application") If wdApp Is Nothing Then Set wdApp = CreateObject("Word.Application") End If For Each wdDoc In wdApp.Documents wdDoc.Close...
  3. halit3

    Soru VBA İle Excel'den Word'e Aktarım Kayıt Hatası

    ...Sub CommandButton1_Click() Dim doc As Word.Document For i = 2 To Cells(Rows.Count, "a").End(3).Row Set wordapp = CreateObject("word.application") Teminat = "C:\Users\atar\Desktop\Teminat Mektupları\Mektup\Teminat.docx" 'Teminat = ThisWorkbook.Path & "\deneme1.doc" Set doc =...
  4. N

    Çözüldü VBA İle Excel’den Word'e Tablo Aktarma

    Sub EXCELDEN_WORDE_TABLO() Dim wordApp As New Word.Application, wdDoc As Word.Document With wordApp .Visible = True .Activate Set wdDoc = .Documents.Open _ ("C:\Users\ÖZDEMİR\OneDrive\Masaüstü\EXCELDEN_WORDE_TABLO_AKTARMA\DENEME TABLOLARI (2).doc") If...
  5. Korhan Ayhan

    Çözüldü VBA İle Excel’den Word'e Tablo Aktarma

    ...Bu sebeple arama yapılmasını tavsiye ediyoruz. Yoksa sürekli benzer konular açılıp benzer cevaplar paylaşılıyor. Linkteki konuları inceleyebilirsiniz. https://www.excel.web.tr/search/315427/?q=word.application&o=date Yetersiz gelirse linkteki konularıda inceleyebilirsiniz. Arama Sonuçları
  6. R

    Soru VBA Word Doldurma Hatası Hakkında

    Merhaba hocam bunu pdf olarak değilde word olarak keydedilmesini istiyorsak nasil bir yol izlemeliyiz. .pdf yazan yeri .docx olarak değiştiridğimde word dosyları oluşuyor ama hatalı word oluşuyor açılmıyor.
  7. halit3

    Word soru düzenleme

    ...istediğiniz düzenleme olsun ve kayıt etsin. kod Sub tablo_word13() 'referanslar 'Microsoft Word 12.0 Object Library Dim objWord As Word.Application Dim docWord As Word.Document yol = Application.GetOpenFilename(FileFilter:="Word Files (*.doc*), *.doc*") ', Title:="Choose Files"...
  8. halit3

    Word soru düzenleme

    Kodu yeniden düzenledim. Sub tablo_word12() 'referanslar 'Microsoft Word 12.0 Object Library Dim objWord As Word.Application Dim docWord As Word.Document yol = Application.GetOpenFilename(FileFilter:="Word Files (*.doc*), *.doc*") ', Title:="Choose Files", MultiSelect:=True) If yol = False...
  9. halit3

    Word soru düzenleme

    ...= Nothing Exit Sub End If Cells.ClearContents Cells.Interior.ColorIndex = xlNone yol = objDialog.Filename Dim objWord As Word.Application Dim docWord As Word.Document Set objWord = CreateObject("Word.Application") objWord.Visible = True Set docWord = objWord.Documents.Open(Filename:=yol...
  10. N

    Word de birden fazla aynı isimli yer imi oluşturabilme

    ...dolmakta. Yani sizin mevcut kodlarınız zaten bunu yapacaktır. Örnek bir kod: Private Sub CommandButton1_Click() Dim wd As Word.Application, wdDoc As Word.Document, bm As Variant Dim ws As Worksheet, deg As Range, x As Integer y_imi = Array("sicil", "rutbe", "ad", "TC_No", "Tel_No") Set ws...
  11. tukayf

    Userformdan Word'e veri gönderme

    yol = ThisWorkbook.Path Set wd = CreateObject("word.Application") wd.Visible = True wd.Application.Documents.Open yol & "\" & "sablon.doc" 'sablon dosyasını açan komut For x = 0 To 88 wd.ActiveDocument.Bookmarks(y_imi(x)).Range.Select wd.Selection = Deg(x) wd.ActiveDocument.Bookmarks.Add...
  12. tukayf

    Userformdan Word'e veri gönderme

    ...Bey'e ait uyarlayıp kullanmaya çalışıyorum. Private Sub CommandButton1_Click() Dim apWord As Object Set apWord = CreateObject("Word.Application") apWord.Documents.Open "D:\BELGE\Word.doc" apWord.Visible = True apWord.Selection.TypeParagraph apWord.Selection.TypeText Text:=TextBox1.Text &...
  13. Astalavista58

    VBA İle Bulunduğun Yıla Göre Klasör Oluşturma

    ...fdObj = CreateObject("Scripting.FileSystemObject") Set fso = CreateObject("Scripting.FileSystemObject") Set wordapp = CreateObject("word.application") sablon = "C:\Users\Semah\Desktop\ÜCRETSİZ İZİN\5 Hizmet Yılını Doldurduğundan\1-MATBU ÜST YAZI SAKIN DEĞİŞİKLİK YAPMA.docx" ss =...
  14. Astalavista58

    VBA İle Bulunduğun Yıla Göre Klasör Oluşturma

    ...Dim ss As Integer Dim sablon As String Set fso = CreateObject("Scripting.FileSystemObject") Set wordapp = CreateObject("word.application") sablon = "C:\Users\Semah\Desktop\ÜCRETSİZ İZİN\5 Hizmet Yılını Doldurduğundan\1-MATBU SAKIN DEĞİŞİKLİK YAPMA.docx" ss =...
  15. D

    Excelden Worde Tablo Aktarmak

    ...yaptım bu buton yardımıyla tabloyu otomatık olarak aktarabilirmiyiz ekte dosyaları koyuyyorum . Sub wordtabloekle() Dim wrd As Word.Application Dim dok As Word.Document Set wrd = New Word.Application wrd.Visible = True Set dok = wrd.Documents.Add With wrd.Selection .Style = "Başlık 1"...
  16. F

    Çözüldü Çıktı Sayısı Kadar, Sayfaların Üzerine Sayfa Sayılarını Yazdırmak..

    World de çalıştıramadım. Sanırım Yer imi kısmında falan hata yapıyorum.
  17. F

    Çözüldü Çıktı Sayısı Kadar, Sayfaların Üzerine Sayfa Sayılarını Yazdırmak..

    Excel işe yaradı. Dediğiniz gibi Sayfanın alt orta kısmına yazıyor. Peki istediğimiz yerde (belirlediğimiz yerde) yazması mümkün mü.
  18. N

    Çözüldü Çıktı Sayısı Kadar, Sayfaların Üzerine Sayfa Sayılarını Yazdırmak..

    Excel için alternatif, Sayfa alt orta kısmına numaraları yazar. Sub OzelYaz() Dim s As Integer, i As Integer s = Application.InputBox("Kaç Sayfa Yazdırayım", Type:=2) Application.EnableEvents = False For i = 1 To s ActiveSheet.PageSetup.CenterFooter = i...
  19. hadromer

    Yazılan Bir Kodda Değişlik Yapmak

    ...N1 As String, N4 As Integer, N5 As Double Dim myvar As String, myvartop As Integer, sonsat As Long Set objWord = CreateObject("Word.Application") objWord.Visible = True Set objDoc = objWord.Documents.Add objDoc.PageSetup.LeftMargin = objWord.CentimetersToPoints(1.9)...
  20. RBozkurt

    Soru VBA Word Doldurma Hatası Hakkında

    Sayın @Korhan Ayhan üstadım. Emeğinize sağlık. Verileri çoğaltıp denedim sonuç resimdeki gibi. Teşekkür ederim.
Üst