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

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

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

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

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

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

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

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

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

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

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

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

...Application.OnKey "+{F3}" End Sub ' Sub CaseChange() Dim lngType As Long, MyRng As Range Set MyWd = CreateObject("Word.Application") Set MyDoc = MyWd.Documents.Add On Error Resume Next X = CommandBars.ActionControl.Parameter On Error GoTo 0 If j > 0 Then X = j...

Sub sell() Dim sk As Worksheet Dim u As Range Set sk = Sheets("sf") Dim i As Integer Dim ie As Object Dim document As HTMLDocument Set ie = Nothing Set ie = CreateObject("InternetExplorer.Application") ie.Visible = True For i = 2 To sk.Range("c" & Rows.Count).End(xlUp).Row 'sipariş...

...= LCase(fL.GetExtensionName(dosya.Name)) dosya_adi = fL.GetBaseName(dosya) If Uzanti = "doc" Or Uzanti = "docx" Then Dim wrdApp As Word.Application Dim wrdDoc As Word.Document Set wrdApp = CreateObject("Word.Application") wrdApp.Documents.Open (dosya) wrdApp.Visible = True say =...

selamlar veri çekmede hata alıyorum yardımcı olabilirmisiniz teşekkürler Sub sell() Dim sk As Worksheet Dim u As Range Set sk = Sheets("sf") Dim i As Integer Dim ie As Object Dim document As HTMLDocument Set ie = Nothing Set ie = CreateObject("InternetExplorer.Application")...

Sub OpenDocFromExcel() Dim wordapp1 As Word.Application Dim wordapp2 As Word.Application Dim myDoc1 As Word.Document Dim myDoc2 As Word.Document dosyayolu1 = "C:\Users\a\Desktop\b\11.docx" dosyayolu2 = "C:\Users\a\Desktop\b\22.docx" Set wordapp1 = CreateObject("word.Application") Set...

Bunu denermisiniz. Sub OpenDocFromExcel() Dim wordapp1 As Word.Application Dim wordapp2 As Word.Application Dim myDoc1 As Word.Document Dim myDoc2 As Word.Document dosyayolu1 = ThisWorkbook.Path & "\11.doc" dosyayolu2 = ThisWorkbook.Path & "\22.doc" Set wordapp1 =...

Bende de aynı sorun var çözemedim hala

...dosyayolu = "C:\Users\a\Desktop\b\11.docx" dosyayolu2 = "C:\Users\a\Desktop\b\22.docx" Set wordapp = CreateObject("word.Application") Set wordapp2 = CreateObject("word.Application") wordapp.Documents.Open dosyayolu wordapp2.Documents.Open dosyayolu2 wordapp.Visible =...

...yapmak istiyorum, kullandığım kod aşağıda yardımcı olursanız sevinirim; Private Sub CommandButton1_Click() Dim teklif_formu As Word.Application Set teklif_formu = New Word.Application teklif_formu.Visible = True teklif_formu.Activate teklif_formu.Documents.Add Environ("UserProfile") &...