Tách câu trong Word sang Excel bằng VBA

Mình có 1 file word tên "du lieu".
Mình nhờ mọi người giúp để tách các câu trong file word này thành các câu riêng biệt. (Cuối các câu này có thể là dấu chấm "." hoặc dấu chấm than "!"; hoặc dấu chấm phẩy ";")
Sau đó các câu này được điền sang 1 file excel khác theo dòng.
Cám ơn mọi người nhiều!

Thử đoạn code này trên Word xem sao.

Private Sub SplitSentences()
    Dim objxlApp As Object
    Dim objxlWb As Object
    Dim objxlSh As Object
    Dim i As LongPtr
    i = 0
    Set objxlApp = CreateObject("Excel.Application")
    objxlApp.Visible = True
    objxlApp.ScreenUpdating = False
    Set objxlWb = objxlApp.Workbooks.Add
    Set objxlSh = objxlWb.Sheets(1)
    Application.ScreenUpdating = False
    With Selection
        .HomeKey wdStory
        Do
            .MoveRight wdSentence, 1, wdExtend
            objxlSh.Range("A1").Offset(i, 0).Value = .Text
            .Collapse wdCollapseEnd
            i = i + 1
        Loop Until .Bookmarks.Exists("EndOfDoc")
    End With
    objxlApp.ScreenUpdating = True
    Application.ScreenUpdating = True
    Application.ScreenRefresh
    Set objxlApp = Nothing
    Set objxlWb = Nothing
    Set objxlSh = Nothing
End Sub

Dưới đây là file mẫu minh họa có kết quả kèm theo.
17827

Khóa học SprinGO phù hợp

Khóa học Power PI – Ứng dung trong Nhân sự

TỔNG QUAN KHÓA HỌC: POWER BI CHO NGÀNH NHÂN SỰ Khóa học Power BI cho Nhân sự được thiết kế dành riêng cho các...

Xem khóa học