Wordden excele belirli verileri alma

[GOGO05]

Worde yazdığım resmi yazıların konu:......... Kısımlarını excell tablosunda örnekde anlattığım şekilde görme imkanım varmı acaba?

 

[Emine Şahin]

Üst bilgi alt bilgi olayı değil mi?
Excelde de Alt bilgi üst bilgi olayı var tabi...

 

[GOGO05]

Üst bilgi alt bilgi olayı değil arkadaşım, onu zaten kullanıyorum. mesala worde 50 sayfa yazı yazdım bu yazıların konularını excele aktarmak istiyorum...

 

[Merhum İdris SERDAR]

Worde yazdığım resmi yazıların konu:......... Kısımlarını excell tablosunda örnekde anlattığım şekilde görme imkanım varmı acaba?

.

1. Konu: Ahmet vs... yazan yerleri Heading yapın.

2. Word Dosyasının en başına bir sayfa ekleyin.

3. References / Table of Contents'ten (Başvurular / İçindekiler) bu sayfada içindekileri oluşturun.

4. Bunu Kopyalayarak istediğiniz şekilde Excel dosyanıza yapıştırın.

5 Gerekli düzenlemeleri isteğinize göre yapın.


.

 

[GOGO05]

yurttaş üstat ben bu dediklerinizi yapacak bilgiye sahip deyilim. müsayit bir zamanda bu dediklerinizi abc örneğine uyarlayabilirmisiniz?

 

[leumruk]

Merhaba,
Makro ile bir çözüm ürettim. Ekteki klasörü rardan çıkarın. Excel dosyasını açıp butona basın.

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

 

[Merhum İdris SERDAR]

yurttaş üstat ben bu dediklerinizi yapacak bilgiye sahip deyilim. müsayit bir zamanda bu dediklerinizi abc örneğine uyarlayabilirmisiniz?

.

Dosyalarınız yukarıda anlattığım şekilde yapılmış hali ekte.

.

 

[GOGO05]

.

Dosyalarınız yukarıda anlattığım şekilde yapılmış hali ekte.

.

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.

 

[leumruk]

Merhaba,
6 numaralı mesajımdaki kod ve ek güncellenmiştir. Yeniden deneyiniz.

 

[Yarkan]

Pekiyi

peki evraklar o kadar düzenli değilse, yani ilk konunun altına gelip enter e bastığımızda aşağısı kaydığı için getiremiyor, onun bir çözümü yokmu?


Birde farklı isimlerde bir sürü Word olursa hepsinin içinden konuları listeleyebilirmi?

 

[everestinternet]

İyigünler;

Set prg = wd.Selection.Bookmarks("\page").Range.Paragraphs(y).Range

satırının word belgesindeki yer imlerine göre uyarlanışı nasıl olur ?

Hayırlı çalışmalar...

 

[leumruk]

Merhaba,
Sorunuz pek açık değil. Yukarıdaki ifade y değerinin verdiği paragrafı alır. Bunun yer imi olarak karşılığı:

ActiveDocument.Bookmarks(y).Range

Daha kesin bir cevap için daha kesin ifadeler kullanmalısınız.

 

[everestinternet]

Merhaba,
Sorunuz pek açık değil. Yukarıdaki ifade y değerinin verdiği paragrafı alır. Bunun yer imi olarak karşılığı:

ActiveDocument.Bookmarks(y).Range

Daha kesin bir cevap için daha kesin ifadeler kullanmalısınız.

İyigünler üstadım;

İlgi ve alakanız için öncelikle teşekkür ederim. Aşağıdaki gibi bir uygulamam var ve sağlıklı olarak çalışıyor.

    .
    .
    .
    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
    .
    .
    .

Yukarıdaki yapmış olduğum iş Deneme.doc adlı word dosyasının içinde daha önceden tanımlanmış olan yer imlerinin bulunduğu yerlere (ad, soyad, dtarih) userrformdaki textboxlarda bulunan bilgileri aktarmaktır.

Şimdi burada sormak istediğim soru bu işlemin tersi yapılabilinir mi? Ben biraz uğraştım. En son olarak;

    .
    .
    .
    wd.Selection.Goto What:=-1, Name:="ad"
    MsgBox wd.Selection.Text
    .
    .
    .

yazarak kodları derlediğim zaman karşıma mesaj olarak "ad" isimli yer iminin ilk harfini veriyor. Yani diyelimki daha önceden kayıt edilmiş olan Word dosyasındaki "ad" isimli yer iminde "Nihat" diye yazıyorsa bunun ilk harfi olan "N" harfini alabiliyorum. Bu yer imindeki "Nihat" ifadesinin komplesini nasıl excele çekebilirim. Umarım anlatabilmişimdir.

Hayırlı çalışmalar...

 

[leumruk]

Merhaba,
Git tanımını kullanmadan aşağıdaki gibi ismi yazılı yer iminde bulunan metni görebilirsiniz. Daha kesin sonuç için örnek dosya ekleyiniz.

MsgBox wd.ActiveDocument.Bookmarks("ad").Range