Word dosyasından veri çekme

[tamer42]

Merhaba,
Ekli excel dosyasında "Konular" sayfasında 1 ' den 10' a kadar konu numara ve başlıkları bulunuyor.

Aynı şekilde bu konu başlıklarında yine Ekli word dosyasında; 1 ' den 10' a kadar koyu font ile yazılmış konu başlıkları bulunuyor.

yapmaya çalıştığım Userform' da hangi konuyu seçersem word dosyasında o konu başlığı altındaki verileri alıp Veri sayfasına getirmesi,

Özetle; 2 nolu konuyu seçersem, 2 ile 3 nolu konular arasında yer alan metinleri alıp getirmesi, bunun için aşağıdaki kodu oluşturdum fakat resim olarak getiriyor, formatıyla metin olarak getirmesi için nasıl bir düzenleme yapılabilir?

desteğiniz için şimdiden teşekkürler,

Sub OpenDocFromExcel(ByVal s As Integer)
Dim start As Variant
Dim ennd As Variant

    Set wordapp = CreateObject("word.Application")
    wordapp.Documents.Open myDoc
    wordapp.Visible = True
    
    start = "A" & s
    ennd = "A" & s + 1
Set rngStart = ActiveDocument.Bookmarks(start).Range
Set rngEnd = ActiveDocument.Bookmarks(ennd).Range

ActiveDocument.Range(rngStart.start, rngEnd.End).Copy

WS.Range("B4").PasteSpecial

End Sub

iyi çalışmalar.