Koyu renkli yazılan kelimeler grubunu paragraf başı yapmak

[tamer42]

Merhabalar,
bir Word belgesindeki "Koyu renkli (bold) yazılan kelimeler grubunu" paragraf başı yapacak bir kod yazmak istiyorum.

Örnek:

Önceki hali

das Leben gut einrichten yaşamı iyi planlamak Grünanlagen einrichten yeni yeşil alanlar tesis etmek jdn einrichten (birisini) yeni işine alıştırmak sich auf etw einrichten hazırlıklı olmak sich mit etw einrichten işini idare etmek

Sonraki hali

das Leben gut einrichten yaşamı iyi planlamak
Grünanlagen einrichten yeni yeşil alanlar tesis etmek
jdn einrichten (birisini) yeni işine alıştırmak
sich auf etw einrichten hazırlıklı olmak
sich mit etw einrichten işini idare etmek

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

 

[leumruk]

Merhaba,
İsteğiniz makro ile çözülebilir. Aşağıdaki kodu deneyiniz.

Dim knt As Boolean
knt = False
For x = 1 To ActiveDocument.Words.Count
    If ActiveDocument.Words(x).Font.Bold = False Then knt = True
    If ActiveDocument.Words(x).Font.Bold = True And knt = True Then
    ActiveDocument.Words(x).InsertParagraph
    knt = False
    Say = Say + 1
    End If
Next
MsgBox "İşlem tamamlandı. Toplam: " & Say & " paragraf oluşturuldu.", vbInformation, " l e u m r u k"

 

[tamer42]

Sn Leumruk çok teşekkürler,

Bir durum daha var. bu kodlar direct Word üzerinden çalışıyor.

Excel üzerinden çalıştırmak için nasıl bir düzenleme yapmak gereklidir?

iyi çalışamalar.

 

[leumruk]

Merhaba,

Sub Paragraf_Olustur()
Set wdsor = Application.FileDialog(msoFileDialogFilePicker)
wdsor.Filters.Clear
wdsor.Filters.Add "WORD", "*.doc*"
If wdsor.Show Then
    dosya = wdsor.SelectedItems(1)
Set wd = CreateObject("word.Application")
wd.Visible = True
wd.documents.Open dosya
Dim knt As Boolean
knt = False
For x = 1 To wd.ActiveDocument.Words.Count
    If wd.ActiveDocument.Words(x).Font.Bold = False Then knt = True
    If wd.ActiveDocument.Words(x).Font.Bold = True And knt = True Then
    wd.ActiveDocument.Words(x).InsertParagraph
    knt = False
    Say = Say + 1
    End If
Next
MsgBox "İşlem tamamlandı. Toplam: " & Say & " paragraf oluşturuldu.", vbInformation, " l e u m r u k"
End If
End Sub

 

[tamer42]

Sn Leumruk çok teşekkürler,
iyi ki varsınız...