DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
.Worde yazdığım resmi yazıların konu:......... Kısımlarını excell tablosunda örnekde anlattığım şekilde görme imkanım varmı acaba?
Sub veri_al()
Set wd = CreateObject("word.Application")
wd.Visible = True
wrd = ThisWorkbook.Path & "\ABC.doc"
wd.Application.documents.Open wrd
Range("b2:c1000").ClearContents
Sat = 1
For x = 1 To wd.activedocument.ComputeStatistics(2)
wd.Selection.GoTo What:=1, Which:=2, Name:=x
For y = 1 To 5
Set prg = wd.Selection.Bookmarks("\page").Range.Paragraphs(y).Range
If Trim(prg.Words(1)) = "Konu" Then
Sat = Sat + 1
Cells(Sat, "b") = x
klm = Val(Len(prg.Words(1)) + Len(prg.Words(2)))
Cells(Sat, "c") = Right(prg, Len(prg) - klm)
Exit For
End If
Next
Next
wd.activedocument.Close False
wd.Application.Quit
End Sub
.yurttaş üstat ben bu dediklerinizi yapacak bilgiye sahip deyilim. müsayit bir zamanda bu dediklerinizi abc örneğine uyarlayabilirmisiniz?
Eline koluna sağlık üstat tam istediğim gibi olmuş, ama konu kısmı uzun olduğu zaman sadece ilk cümleyi aktarıyor. mesela konu: ahmet tiryaki iken sadece ahmet i aktarıyor..
Dosyalarınız yukarıda anlattığım şekilde yapılmış hali ekte.
.
Set prg = wd.Selection.Bookmarks("\page").Range.Paragraphs(y).Range
ActiveDocument.Bookmarks(y).Range
İyigünler üstadım;Merhaba,
Sorunuz pek açık değil. Yukarıdaki ifade y değerinin verdiği paragrafı alır. Bunun yer imi olarak karşılığı:
Daha kesin bir cevap için daha kesin ifadeler kullanmalısınız.Kod:ActiveDocument.Bookmarks(y).Range
.
.
.
yol = ThisWorkbook.Path
Set wd = CreateObject("word.Application")
wd.Visible = True
wd.Application.Documents.Open yol & "\" & "DENEME.DOC"
wd.Selection.Goto What:=-1, Name:="ad"
wd.Selection = UserForm2.TextBox1.Text
wd.Selection.Goto What:=-1, Name:="soyad"
wd.Selection = UserForm2.TextBox3.Text
wd.Selection.Goto What:=-1, Name:="dtarih"
wd.Selection = UserForm2.TextBox4.Text
Set wddoc = wd.activedocument
wddoc.SaveAs yol & "\" & Format(Now, "dd_mm_yyyy_hh_mm_ss") & ".doc"
wd.Application.Quit
.
.
.
.
.
.
wd.Selection.Goto What:=-1, Name:="ad"
MsgBox wd.Selection.Text
.
.
.
MsgBox wd.ActiveDocument.Bookmarks("ad").Range