Code chuyển dữ liệu từ word sang excel

[tranvanhung2009]

Xin chào mọi người!
Mình có 1 file word tên "du lieu".
Mình nhờ mọi người giúp mình viết 1 đoạn VBA để tách các câu trong file word này thành các câu riêng biệt.
Sau đó các câu này được điền sang 1 file excel khác theo dòng.
Dưới đây là file mẫu minh họa có kết quả kèm theo.
Cám ơn mọi người nhiều!

 

[giaiphap]

Xin chào mọi người!
Mình có 1 file word tên "du lieu".
Mình nhờ mọi người giúp mình viết 1 đoạn VBA để tách các câu trong file word này thành các câu riêng biệt.
Sau đó các câu này được điền sang 1 file excel khác theo dòng.
Dưới đây là file mẫu minh họa có kết quả kèm theo.
Cám ơn mọi người nhiều!

Dùng thử đoạn code này.

Public Sub GiaiPhap()
Dim sec As Range, para As Paragraph, i As Integer
Dim myExcel As Object
Dim myWb As Object
Set myExcel = CreateObject("Excel.Application")
Set myWb = myExcel.Workbooks.Add
    Application.DisplayAlerts = False
    i = 0
    For Each para In ActiveDocument.Paragraphs
        For Each sec In para.Range.Sentences
            i = i + 1
            myWb.Sheets(1).Range("A" & i).Value = sec.Text
        Next sec
    Next para
    
    Application.DisplayAlerts = True
    myWb.SaveAs FileName:="D:\test.xlsx"
    myWb.Close False
    Set myWb = Nothing
    myExcel.Quit
Set myExcel = Nothing
MsgBox "Mo file o duong dan 'D:\test.xlsx' de xem kq"
End Sub

 

[tranvanhung2009]

Dùng thử đoạn code này.

Public Sub GiaiPhap()
Dim sec As Range, para As Paragraph, i As Integer
Dim myExcel As Object
Dim myWb As Object
Set myExcel = CreateObject("Excel.Application")
Set myWb = myExcel.Workbooks.Add
    Application.DisplayAlerts = False
    i = 0
    For Each para In ActiveDocument.Paragraphs
        For Each sec In para.Range.Sentences
            i = i + 1
            myWb.Sheets(1).Range("A" & i).Value = sec.Text
        Next sec
    Next para
   
    Application.DisplayAlerts = True
    myWb.SaveAs FileName:="D:\test.xlsx"
    myWb.Close False
    Set myWb = Nothing
    myExcel.Quit
Set myExcel = Nothing
MsgBox "Mo file o duong dan 'D:\test.xlsx' de xem kq"
End Sub

Cám ơn anh rất nhiều!

 

[tranvanhung2009]

Xin chào anh giaiphap!
Nhờ anh giúp em viết đoạn code nối lại các câu trong Word.
Em có các câu trong văn bản kèm theo, nó là các câu rời rạc được cách nhau bởi dấu enter. Giờ em muốn nối các câu đó lại thành đoạn văn.
Xin cám ơn anh nhiều!