...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...
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 ?
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...
...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...
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...
...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...
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
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...
...--- 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...
...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...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.