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

  1. Hoksisamuray1

    Sadece belli hücrelerdeki resimleri silmek için makro

    Ustad bu sabah pc geldıgımde rstart yapmıstı. Word de calısmıs oldugum pernonel makroların olmadıgını gordum. Calısmıs oldugum modullere ulasma sansım varmı acaba teknık olarak?
  2. asdsxx

    UserForm, TextBox'daki bilgileri pdf çıktı alma

    ...= True Then j = j + 1 End If Next i If j = 0 Then MsgBox "Seçim Yapmadınız": Exit Sub 'On Error Resume Next Dim appword As Word.Application Dim docword As Word.Document Set appword = CreateObject(class:="Word.Application") If Not appword Is Nothing Then Set appword =...
  3. K

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

    H Hocam teşekkürler sağolunn çözüldü ama hızında pek değişme olmadı salt okumur konusunu çözdü şükür
  4. RBozkurt

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

    ...& "\sablon.docx" Dosya = ThisWorkbook.Path & "\güncel.docx" 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 Set doc = Word_App.Documents.Open(Sablon) With doc...
  5. K

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

    Hocam Bookmarks için veri aldığım sayfa DATA sayfası ancak aşağıda gösterdiğim gibi belirtmeme rağmen Bookmarks hata veriyor gene .Bookmarks("t").Range.InsertAfter Worksheets("DATA").Cells(8, 1) .Bookmarks("tarih").Range.InsertAfter Worksheets("DATA").Cells(9, 1)...
  6. RBozkurt

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

    ...& "\sablon.docx" Dosya = ThisWorkbook.Path & "\güncel.docx" 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 Set doc = Word_App.Documents.Open(Sablon) With doc...
  7. K

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

    Hocam hata veriyor neden ama bilemedim bi türlü
  8. K

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

    Hocam elinize sağlık yarın ilk fırsatta deniyeceğim ve dönüş yapıcağım
  9. RBozkurt

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

    ...Object Dim doc As Word.Document sablon = "C:\belgelerim\sablon.docx" Dosya = "C:\kayıtlar\güncel.docx" Set wordapp = GetObject(, "Word.Application") If Err.Number <> 0 Then Set wordapp = CreateObject("Word.Application") On Error GoTo 0 Set doc = wordapp.Documents.Open(sablon)...
  10. 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)...
  11. 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...
  12. 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 =...
  13. 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...
  14. 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ı
  15. 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.
  16. 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"...
  17. 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...
  18. 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...
  19. 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...
  20. 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...
Üst