Word'den Excel'e seçimli aktarım

[Bariscil]

İyi günler.
Sitenizde verdiğiniz hizmeti çok beğendim ve verdiğiniz bu hizmetten ötürü sizlere çok teşekkür ederim.

Bir Word dosyası ile bir Excel dosyası aynı klasörde yer almaktadır.

Word dosyasının satır başlarında koyu puntoyla yazılı İngilizce kelimeler var.

Bu İngilizce kelimelerinin bazılarının yanında bir boşluktan sonra parantez içerisinde fonetik okunuşları yer almaktadır.

Bu İngilizce kelimeleri bu Excel dosyasının A sütununa, fonetik okunuşlarını ise (Eğer fonetik okunuşları varsa) bu Excel dosyasının B sütununa yazan bir makro programını sizlerden istirham ediyorum.

Buna ilişkin örnek Word ve Excel dosyaları mesajın ekinde yer almaktadır.

 

[leumruk]

Merhaba,
Tek mesajlıları dönüş yapıyor mu yapmıyor mu yoklamadan pek cevap vermiyorum ama bir istisna yapayım.

Sub Veri_Al()
yol = ThisWorkbook.Path & "\Ornek.doc"
Set wd = CreateObject("word.Application")
wd.Visible = True
wd.Application.Documents.Open yol
Columns("a:b").Clear
For Each prg In wd.ActiveDocument.Paragraphs
If prg.Range.ComputeStatistics(Statistic:=3) > 0 Then
deg = Split(prg, " (")
If UBound(deg) > 0 Then
If prg.Range.Words(1).Font.Bold = True Then
Sat = Sat + 1
Cells(Sat, 1) = deg(0)
Cells(Sat, 2) = Split(deg(1), ")")(0)
End If
End If
End If
Next
MsgBox "İşlem tamamlanmıştır.", vbInformation, "l e u m r u k"
End Sub

 

[Bariscil]

Yardımınızdan ötürü size çok teşekkür ederim.

Bu makro programıyla ilgili şöyle bir düzeltmenin yapılmasının uygun olacağını düşünüyorum:

Word dosyasının satır başlarındaki koyu puntolu İngilizce kelimenin hemen yanındaki bir boşluktan sonra parantez işareti varsa, o İngilizce kelimeyi Excel dosyasının A sütununa ve parantez işareti içindeki fonetik okunuşunu da hemen yanındaki B sütununa yazılmasının daha uygun olacağını düşünüyorum.

İyi günler.

 

[leumruk]

Yardımınızdan ötürü size çok teşekkür ederim.

Bu makro programıyla ilgili şöyle bir düzeltmenin yapılmasının uygun olacağını düşünüyorum:

Word dosyasının satır başlarındaki koyu puntolu İngilizce kelimenin hemen yanındaki bir boşluktan sonra parantez işareti varsa, o İngilizce kelimeyi Excel dosyasının A sütununa ve parantez işareti içindeki fonetik okunuşunu da hemen yanındaki B sütununa yazılmasının daha uygun olacağını düşünüyorum.

İyi günler.

Merhaba,
Makronun bu istediğinizi yapıyor olması gerekli. Aslında sizin bu istediğiniz tam da benim eklediğim makronun açıklaması gibi olmuş...

 

[Bariscil]

Tam denemediğimden bu oldu, kusuruma bakmayınız.