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

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

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

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

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

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

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

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

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

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

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

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

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

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

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