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
klm = Trim(wd.Selection.Bookmarks("\page").Range.Paragraphs
.Range.Words(1))
If klm = "Konu" Then
Sat = Sat + 1
Cells(Sat, "b") = x
Cells(Sat, "c") = Trim(wd.Selection.Bookmarks("\page").Range.Paragraphs(1).Range.Words(3))
Exit For
End If
Next
Next
wd.activedocument.Close False
wd.Application.Quit
End Sub
arkdaşlar benim sorunum, makro düzgün calışıyor ama konu: ahmet i düzgün bir şekilde excelle aktarıyor. konu kısmı iki kelimeden veya daha uzun olunca sadece ilk kelimeyi aktarıyor. bunu nasıl çözebilirim?
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
klm = Trim(wd.Selection.Bookmarks("\page").Range.Paragraphs
.Range.Words(1))If klm = "Konu" Then
Sat = Sat + 1
Cells(Sat, "b") = x
Cells(Sat, "c") = Trim(wd.Selection.Bookmarks("\page").Range.Paragraphs(1).Range.Words(3))
Exit For
End If
Next
Next
wd.activedocument.Close False
wd.Application.Quit
End Sub
arkdaşlar benim sorunum, makro düzgün calışıyor ama konu: ahmet i düzgün bir şekilde excelle aktarıyor. konu kısmı iki kelimeden veya daha uzun olunca sadece ilk kelimeyi aktarıyor. bunu nasıl çözebilirim?
