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

  1. 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...
  2. 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 ?
  3. 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...
  4. E

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

    15. mesajı yazan kişi farklı hocam.
  5. ÖmerFaruk

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

    ...replTxt = Range("B" & Target.Row) If Len(findTxt) < 1 Or Len(replTxt) < 1 Then Exit Sub Set wdApp = CreateObject("Word.Application") wdApp.Visible = False Set wdDoc = wdApp.Documents.Open("C:\klasör\altklasör\deneme word.doc") With wdDoc.Content.Find...
  6. E

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

    Bu kodu çalıştırabildim. Yazdırma işini de hallettim ama Birden fazla kelimeyi birden fazla değişiklik haline nasıl getirebilirim denedim ama hata aldım. Ahmeti a1 hücresinde değiştirdiğim hale Mehmet i de a2 de değiştirdim hale getirmem lazım. Bir de örneğin doc dosyasında Ahmet var ve başka...
  7. ÖmerFaruk

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

    ...Range("A1")) Is Nothing Then Exit Sub findTxt = "Ahmet" replTxt = Target.Value Set wdApp = CreateObject("Word.Application") wdApp.Visible = False Set wdDoc = wdApp.Documents.Open("C:\klasör\altklasör\deneme word.doc") With wdDoc.Content.Find...
  8. E

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

    Hocam denedim çalıştıramadım kodla alakalı değil ben bişeyleri yanlış yapıyorum sanırım. Modüle içine kodu yapıştırıp bold olan yerleri kendime göre düzenleyip Sayfa1 A1 e yazı yazdığımda word dosyasındaki "Ahmet" yazısının değişmesi lazım ama değişmiyor
  9. ÖmerFaruk

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

    ...Aşağıdaki satırlardaki BOLD kısımları kendinize göre uyarlamalısınız findTxt = "Ahmet" replTxt = Worksheets("Sayfa1").Range("A1").Value Set wdApp = CreateObject("Word.Application") wdApp.Visible = False Set wdDoc = wdApp.Documents.Open("C:\klasör\altklasör\deneme word.doc")
  10. E

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

    Hocam emeğiniz için teşekkür ederim. Öncelikle bu kodu module oluşturup oraya kopyaladım dosyayı makro kaydedecek şekle getirdim dosya konumunu ayarladım örnek word dosyasını oluşturdum ama dosya açıkken ve kapalıyken denememe rağmen maalesef çalıştıramadım. Dosya uzantısı docx di uzantıyı doca...
  11. mancubus

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

    ...replTxt As String findTxt = "Ahmet" replTxt = Worksheets("Sayfa1").Range("A1").Value Set wdApp = CreateObject("Word.Application") wdApp.Visible = False Set wdDoc = wdApp.Documents.Open("C:\klasör\altklasör\deneme word.doc") With wdDoc.Content.Find...
  12. halit3

    Tabloyu Worde Aktarma

    ...Sub deneme() son = Cells(Rows.Count, "c").End(3).Row Range(Cells(7, "c"), Cells(son, "f")).Copy Set wrdApp = CreateObject("Word.Application") Set wrdDoc = wrdApp.Documents.Add wrdApp.Visible = True wrdApp.ActiveDocument.Range.Paste Application.DisplayAlerts = False sat1 =...
  13. H

    Tabloyu Worde Aktarma

    ...--- Comment ' in the VBE select Tools, References and check the Microsoft Word X.X object library' --- Comment 'Dim wdApp As Word.Application, wdDoc As Word.Document, ws As Worksheet Application.ScreenUpdating = False Application.StatusBar = "Creating new document..." Set wdApp =...
  14. M

    Çalışan programları listelemek

    ...ama yapamadım. yardımlarınızı bekliyorum. (listelemek olmayabilir. Uygulama çalışıyor, Yada kapalı mesaj vermesi yeterli) Sub word_kapat() On Error Resume Next Set wrd = GetObject(, "word.Application") If Err.Number <> 0 Then MsgBox "Dosya kapalı.", vbInformation Else: MsgBox "Açık" End If...
  15. H

    Excel'den Word'de kelime değiştirme

    ...If MyFile.Name = ActiveWorkbook.Name Or MyFile.Name = "~$Wordde Kelime Degistir.xlsm" Then GoTo 10 Set WA = CreateObject("Word.Application") WA.Documents.Open (pathh & "\" & MyFile.Name) WA.Visible = False 'True WA.Activate...
  16. H

    Excel'den Word'de kelime değiştirme

    ...String Dim objWord As Object, regExp As Object filePath = "C:\TestFolder\testx.docx" Set objWord = CreateObject("Word.Application") Set myDoc = objWord.Documents.Open(filePath) from_text = [a1] to_text = [b1] Set regExp =...
  17. halit3

    Excel'den Word'de kelime değiştirme

    referanslarda word seçilmeli veya Sub tablo_word1() Dim objWord As Word.Application Dim docWord As Word.Document Set objWord = CreateObject("Word.Application") objWord.Visible = True yol = "C:\testx.docx" Set docWord = objWord.Documents.Open(Filename:=yol, ReadOnly:=True) Set myRange =...
  18. halit3

    Excel'den Word'de kelime değiştirme

    ...As String, to_text As String Dim WA As Object pathh = "C:\testx.docx" from_text = [a1] to_text = [b1] Set WA = CreateObject("Word.Application") WA.Documents.Open (pathh) WA.Visible = True WA.Activate WA.Selection.Find.ClearFormatting WA.Selection.Find.Replacement.ClearFormatting With WA With...
  19. H

    Excel'den Word'de kelime değiştirme

    ...Dim oCell As Integer Dim from_text As String, to_text As String Dim WA As Object pathh = "C:\testx.docx" Set WA = CreateObject("Word.Application") WA.Documents.Open (pathh) WA.Visible = True 'For oCell = 1 To 100 'from_text = Sheet1.Range("A" + CStr(oCell)).Value 'to_text =...
  20. L

    Soru Dolu hücreleri büyük veya küçük harf yapma ve seçilen şablonun bulunduğu klasörün içine kaydetme

    Private Sub CommandButton1_Click() Dim doc As Word.Document Set wordapp = CreateObject("word.application") dosya = Application.GetOpenFilename("Lütfen Dosyayı Seçiniz (*.docx),*.docx;") If dosya <> "False" Then MsgBox "Dosya Seçildi." Else MsgBox "Dosyayı Seçmediniz!" End If For Each x In...
Üst