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

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

Herkese merhaba Buradaki makroyu kullanarak word dosyamdaki sayfaları ayrı belge olarak kaydedeceğim fakat dosyaların isimlerinin de belgede yazan yazıyla adlandırılmasını istiyorum. Şu anki belgemde Mektup birleştirme ile hazırlanmış katılım belgeleri var. Bu belgelerin hepsinde de sadece...

Şablon sabit, tüm raporlar bir uygulama tarafından tipik şekilde oluşturuluyor. Sizin daha önce hazırladığınız kod üzerinden deniyorum ama henüz hiç import edemedim. Sub import_kod() Dim FSO As Object, dosya As Variant, pdfDoc As PDFDocument, pages As PDFPageCollection Dim t As...

bu konuda aşağıdaki kodu buldum, mail gövdesini Excel' e kopyalama yapıyor, sorun yok. benim işlemim bundan sonra başlıyor, excel' e kopyalanan verinin "A" sütununda bir kritere göre (>100) filtre edilmesi, buradan kopyala yapılıp başka sayfaya yapıştırmayı nasıl yapabilir? özetle Outlook...