...vbDirectory)) = 0 Then MkDir kaydet2
If Len(Dir(kaydet1, vbDirectory)) = 0 Then MkDir kaydet1
Set msword = CreateObject("word.application")
msword.Visible = True
For i = 2 To sonsatir
Set Uzlasma = msword.Documents.Open(Filename:=sablon, ReadOnly:=True)
'TAŞINMAZ SATIRLARI...
...= 0 Then MkDir kaydet2
If Len(Dir(kaydet1, vbDirectory)) = 0 Then MkDir kaydet1
For i = 2 To sonsatir
Set msword = CreateObject("word.application")
msword.Visible = True
Set Uzlasma = msword.Documents.Open(Filename:=Sablon, ReadOnly:=False)
'TAŞINMAZ SATIRLARI
Uzlasma.Bookmarks("İl").Range =...
Set msword = CreateObject("word.application")
Yukarıdaki bölümü aşağıdaki bölüm ile değiştirip denermisiniz
Set msword =CreateObject("Word.Application.16")
...= 0 Then MkDir kaydet2
If Len(Dir(kaydet1, vbDirectory)) = 0 Then MkDir kaydet1
For i = 2 To sonsatir
Set msword = CreateObject("word.application")
msword.Visible = True
Set Uzlasma = msword.Documents.Open(Filename:=sablon, ReadOnly:=False)
'TAŞINMAZ SATIRLARI
Uzlasma.Bookmarks("İl").Range =...
...= 0 Then MkDir kaydet2
If Len(Dir(kaydet1, vbDirectory)) = 0 Then MkDir kaydet1
For i = 2 To sonsatir
Set msword = CreateObject("word.application")
msword.Visible = True
Set Uzlasma = msword.Documents.Open(Filename:=Sablon, ReadOnly:=False)
'TAŞINMAZ SATIRLARI
Uzlasma.Bookmarks("İl").Range =...
...= LCase(fL.GetExtensionName(dosya.Name))
dosya_Adi = fL.GetBaseName(dosya)
If uzanti = "doc" Or uzanti = "docx" Then
Dim wd As Word.Application
'Dim wrddoc As Word.Document
Set wd = CreateObject("Word.Application")
wd.Documents.Open (dosya)
wd.Visible = True
'''''''''''''''''''''''''''''''''...
Denedim kendime uyarlayarak fakat excel şablonda bir bilgiyi örneğin ad soyad değiştirdiğinizde bir öncekinin yanına yazıyor değiştirilen ad soyad ikisi beraber çıkıyor bu sefer
...kendinize göre değiştirmezseniz çalışmaz.
Private Sub CommandButton1_Click()
Dim doc As Word.Document
Set wordapp = CreateObject("word.application")
sablon = "C:\Users\mete\Desktop\EXCELDEN WORDE YAZDIRMA\istinaftanferagat.docx"
Set doc = wordapp.Documents.Open(sablon)...
...vbDirectory)) = 0 Then MkDir kaydet2
If Len(Dir(kaydet1, vbDirectory)) = 0 Then MkDir kaydet1
Set msword = CreateObject("word.application")
msword.Visible = True
Set Uzlasma = msword.Documents.Open(Filename:=Sablon, ReadOnly:=False)
For i = 2 To sonsatir...
Makroyu denedim gerçekten çok hızlı.
Diğeri her defa aç kapa aç kapa şeklinde yapıyor.
Bunda hemen sonuçlanıyor.
Öncelikle metin içine veri çağırırken nasıl bir yol izlemeliyim?
...... ala ... tl gibi.
O kısımlara hücre oluşturup mu atlamalıyım? Teşekkürler.
...vbDirectory)) = 0 Then MkDir kaydet2
If Len(Dir(kaydet1, vbDirectory)) = 0 Then MkDir kaydet1
Set msword = CreateObject("word.application")
msword.Visible = True
Set Uzlasma = msword.Documents.Open(Filename:=Sablon, ReadOnly:=False)
For i = 2 To sonsatir...
Yukarıdaki hatanın sebebini buldum.
Makronun birinde alttaki pasif olarak yazdığım kod var, sonda aktif kodu eksik kalmış. Ekledim düzeldi.
Pasif
With Application
.DisplayAlerts = False
.ScreenUpdating = False
.Calculation = xlManual
End With
Aktif
With...
...= 0 Then MkDir kaydet2
If Len(Dir(kaydet1, vbDirectory)) = 0 Then MkDir kaydet1
For i = 2 To sonsatir
Set msword = CreateObject("word.application")
msword.Visible = True
Set Uzlasma = msword.Documents.Open(Filename:=Sablon, ReadOnly:=False)
'Değişken ile bilgi değiştirme başla
With...
...= 0 Then MkDir kaydet2
If Len(Dir(kaydet1, vbDirectory)) = 0 Then MkDir kaydet1
For i = 2 To sonsatir
Set msword = CreateObject("word.application")
msword.Visible = True
Set Uzlasma = msword.Documents.Open(Filename:=Sablon, ReadOnly:=False)
Uzlasma.Bookmarks("Ada").Range = R1.Cells(i, "F")...
...= 0 Then MkDir kaydet2
If Len(Dir(kaydet1, vbDirectory)) = 0 Then MkDir kaydet1
For i = 2 To sonsatir
Set msword = CreateObject("word.application")
msword.Visible = True
Set Uzlasma = msword.Documents.Open(Filename:=Sablon, ReadOnly:=False)
Uzlasma.Bookmarks("Ada").Range = R1.Cells(i, "F")...
...yapıştırsam yardımcı olursanız sevinirim.
Private Sub CommandButton1_Click()
Dim doc As Word.Document
Set wordapp = CreateObject("word.application")
sablon = "C:\belgelerim\sablon.docx"
For i = 2 To 2
Set doc = wordapp.Documents.Open(sablon)
doc.Bookmarks("dosya").Range.InsertAfter...
Merhaba,
Deneyiniz.
Sub WordOnizle()
Dim WordDoc As Object, yol As String
Set WordDoc = CreateObject("Word.Application")
yol = "C:\Belgelerim\" & [D2] & ".docx"
WordDoc.Visible = True
WordDoc.Documents.Open (yol)
WordDoc.Documents(yol).PrintPreview...
...uzantının sonuna ekleyip açacağımı bilemiyorum.
Sub WordOnizle()
Dim WordDoc As Object
Set WordDoc = CreateObject("Word.Application")
WordDoc.Visible = True
WordDoc.Documents.Open ("C:\belgelerim\bu kısma D2'de yazan veri adıyla kayıtlı word belgesi demem...
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.