Word' de bir kelimeyi aratıp paragraf başı yapılması

[tamer42]

Merhabalar,

Word dökümanı içinde bir kelimeyi aratıp, bu kelimeyi bulunca paragraf başı yapacak bir kod yazmak istiyorum.
Örnek: "When" kelimesi aranacak;

Önceki hali:

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.

Sonraki hali:

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.

Yarımlarınız için şimdiden teşekkürler.
İyi Çalışmalar.

 

[NBATMAN]

Merhaba,

verdiğiniz örnekte tesadüf mü bilmiyorum aradığınız kelime "When" bir cümle bittikten sonra, başlayan yeni cümlenin ilk kelimesi. Aramalarınız hep bu şekilde bir başka cümlenin ilk kelimesini bulmak şeklinde mi olacak yoksa bu bir tesadüfte aslında rast gele bir noktadaki her hangi bir kelime aranacak.

 

[Murat OSMA]

Sn. Leumruk'un kodlarıdır.

Private Sub CommandButton1_Click()
Set wd = CreateObject("word.Application")
wd.Visible = True

yol = ThisWorkbook.Path
wd.Application.Documents.Open yol & "\[COLOR="Red"]wordadı[/COLOR].doc"

    wd.Selection.Find.ClearFormatting
    wd.Selection.Find.Replacement.ClearFormatting
    With wd.Selection.Find
        .Text = "[COLOR="Red"]When[/COLOR]"
        .Replacement.Text = [COLOR="red"]vbNewLine & "When"[/COLOR]
        .Forward = True
        .Wrap = 1
    End With
    wd.Selection.Find.Execute Replace:=2

wd.ActiveDocument.Close True
wd.Application.Quit
MsgBox "İşlem tamamlanmıştır.", vbInformation, "l e u m r u k"
End Sub

 

[tamer42]

Sn. Murat ,Sn. Leumruk çok teşekkürler
şimdilik bir sıkıntı görünmüyor.

Birde aynı anda bu "When" kelimesinin font rengini kırmızı yapabilir miyiz.

İyi Çalışmalar dilerim

 

[Murat OSMA]

Zannediyorum bu kod işinizi görecektir.

wd.Selection.Find.Font.ColorIndex = wdRed

 

[tamer42]

Zannediyorum bu kod işinizi görecektir.

wd.Selection.Find.Font.ColorIndex = wdRed

Sn Murat verdiğiniz Bu kodu hangi satıra yazmamız gerekli?

[color=red]............
wd.Selection.Find.Execute Replace:=2[/color]

bu satırın hemen altına yazdım fakat bir değişiklik olmadı

teşekkürler, iyi çalışmalar.

 

[tamer42]

Sn Murat Merhaba,

 ...............
 wd.Selection.Find.ClearFormatting
    wd.Selection.Find.Replacement.ClearFormatting
    [color=red][B]wd.Selection.Find.Replacement.Font.Color = vbRed[/B][/color]
.........

bu şekilde çözülmüştür.

İlginize Çok teşekkür ederim.

İyi Çalışmalar.

 

[Murat OSMA]

Rica ederim Sn. tamer42, ben bir şey yapmış sayılmam.
Kodlar Sn. Leumruk'a aittir.

Word ile ilgili diğer sorunlarınızda sitede arama yaparsanız daha kısa yoldan çözüme ulaşabilirsiniz.

Size de iyi çalışmalar dilerim.

Hoşça kalın !

 

[tamer42]

Merhabalar,
Benzer bir konu, form içinde aradım ama bulamadım.

Bir Word dosyasında;
":" iki nokta üst üste den bir önce gelen kelime' nin kırmızıya boyanması işi

Önceki hali > abc :
Sonraki hali > abc :

İyi Çalışmalar.

 

[tamer42]

Word dosyası kodla satırbaşı yapınca gelen kare işareti

Merhabalar,

ekteki Belge1 adlı belgeyi bu kodla "Ecke:" kelimesini satırbaşı yaptıktan sonra,

"Ecke:" kelimesinin öncesinde ekli resimdeki gibi bir kare işareti geliyor. Dosyayı farklı kaydedip, kapatıp tekrar açınca kayboluyor.
bunun sebebi nedir?

Sub Word_NewLine()
Set wd = CreateObject("word.Application")
wd.Visible = True

yol = ThisWorkbook.Path

wd.Application.Documents.Open yol & "\Belge1.docx"

    wd.Selection.Find.ClearFormatting
    wd.Selection.Find.Replacement.ClearFormatting
    With wd.Selection.Find
        .Text = "Ecke:"
        .Replacement.Text = vbNewLine & "Ecke:"
        .Forward = True
        .Wrap = 1
    End With
    wd.Selection.Find.Execute Replace:=2

'wd.ActiveDocument.Close True
'wd.Application.Quit
MsgBox "İşlem tamamlanmıştır."

End Sub

Teşekkürler, iyi Çalışmalar.