Word dosyasında Paragrafın ilk kelimesini bulmak

[tamer42]

Merhabalar,
Bir word dosyasında paragrafın ilk kelimesini kod yazarak nasıl bulabiliriz?

Örnek metin:

Video provides a powerful way to help you prove your point. When you click Online Video, you can paste in the embed code for the video you want to add.
You can also type a keyword to search online for the video that best fits your document.

Bu paragrafta kod çalıştığı zaman "Video" ve "You" sonucunu verecek.

İyi Çalışmalar.

 

[hamitcan]

Video ve You kelimelerinin paragraf başı olduğunu kabul ettim.

       For i = 1 To ActiveDocument.Paragraphs.Count
                    s = InStr(1, ActiveDocument.Paragraphs(i), " ") - 1
            MsgBox Left(ActiveDocument.Paragraphs(i), s)
       Next

 

[systran]

bu da alternatif ossun, internetten buldum. (http://www.vbaexpress.com/forum/archive/index.php/t-10111.html)

For Each oPara In ActiveDocument.Paragraphs
strFirstWord = oPara.Range.Words(1).Text
MsgBox strFirstWord
Next

 

[tamer42]

Video ve You kelimelerinin paragraf başı olduğunu kabul ettim.

       For i = 1 To ActiveDocument.Paragraphs.Count
                    s = InStr(1, ActiveDocument.Paragraphs(i), " ") - 1
            MsgBox Left(ActiveDocument.Paragraphs(i), s)
       Next

Sn Hamitcan öncelikle ilginize teşekkürler,


kod çalıştığı zaman ilk paragraf OK , "Video" sonucu geliyor, yalnız devamında

"You" gelmeden önce ekteki hata mesajını alıyorum.

İyi Çalışmalar.

 

[Murat OSMA]

Bu kodları kullanabilirsiniz;

Sub Paragraftaki_İlk_Kelimeleri_Bul()
    Dim Rky As Object, yol$, i%, ayır
    Set Rky = CreateObject("Word.Application")
    Rky.Visible = True
    yol = ThisWorkbook.Path
    Rky.Application.Documents.Open yol & "\[COLOR="Red"]Wordadı.doc[/COLOR]"' ya da formata göre [COLOR="Red"]docx[/COLOR]
    With Rky.ActiveDocument
        If .Paragraphs.Count > 0 Then
            For i = 1 To .Paragraphs.Count
                Set paragraf = .Paragraphs(i).Range
                ayır = Split(paragraf, " ")
                MsgBox ayır(0)
            Next i
        End If
    End With
    i = Empty: yol = "": ayır = "": Set Rky = Nothing
End Sub

 

[hamitcan]

Sn Hamitcan öncelikle ilginize teşekkürler,


kod çalıştığı zaman ilk paragraf OK , "Video" sonucu geliyor, yalnız devamında

"You" gelmeden önce ekteki hata mesajını alıyorum.

İyi Çalışmalar.

"You" olarak başlayan satırı paragraf olarak görmüyor demektir. Bu yüzden o satırın başına gelip bir kere enter tuşuna basmanız gerkiyor.

 

[tamer42]

Bu kodları kullanabilirsiniz;

Sub Paragraftaki_İlk_Kelimeleri_Bul()
    Dim Rky As Object, yol$, i%, ayır
    Set Rky = CreateObject("Word.Application")
    Rky.Visible = True
    yol = ThisWorkbook.Path
    Rky.Application.Documents.Open yol & "\[COLOR="Red"]Wordadı.doc[/COLOR]"' ya da formata göre [COLOR="Red"]docx[/COLOR]
    With Rky.ActiveDocument
        If .Paragraphs.Count > 0 Then
            For i = 1 To .Paragraphs.Count
                Set paragraf = .Paragraphs(i).Range
                ayır = Split(paragraf, " ")
                MsgBox ayır(0)
            Next i
        End If
    End With
    i = Empty: yol = "": ayır = "": Set Rky = Nothing
End Sub

Sn Murat çok teşekkürler,
Birde aynı şekilde bir paragrafta kaç kelime olduğunu nasıl bulabiliriz.

İyi Çalışmalar.

 

[Murat OSMA]

Rica ederim.

Word menülerinde (tam olarak nerede hatırlamıyorum) her satır veya her paragrafta kaç kelime, kaç karakter olduğun gösteren bir seçenek olduğunu hatırlıyorum.

Sizin buradaki amacınız nedir ? Sayıyı bularak ne elde etmeye çalışıyorsunuz ?

 

[tamer42]

Sn Murat kelime sayısını bulmaktaki amacım

Örnek: 3. kelimenin font rengini kırmızı yapmak.

teşekkürler, İyi Çalışmaalr.

 

[Murat OSMA]

Paragraftaki 3. kelimenin mi yoksa herhangi bir satırdaki 3. kelimenin mi ?

 

[tamer42]

Paragraftaki 3. kelimenin mi yoksa herhangi bir satırdaki 3. kelimenin mi ?

Paragraftaki 3. kelime,
Not: Elimdeki paragraflar da zaten tek satır.

iyi Çalışmalar.