کپی پاراگراف خاص از ورد

[narese]

سلام یک فایل ورد داشتم که می خواستم اطلاعات آنرا وارد اکسس کنم .خصوصیات فایل وردی :
هر مطلب آن با مطلب دیگر توسط ستاره جدا شده است.(نمونه در ضمیمه آمده است)
هر خط آن بصورت یک پاراگراف آمده است.بنابراین هر پاراگراف ورد میشود یک رکورد اکسس.(پاراگراف 1 الی 3)
تا اینجا مشکلی نیست دوستان کمک کردند و کدش را بهم دادند :



Sub fw()
On Error Resume Next
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("table1")
Set w = CreateObject("Word.Application")
Set dc = w.Documents.Open("d:\la.docx")
For t = 1 To dc.Paragraphs.Count
sr = dc.Paragraphs(t).Range.Text

If Left(sr, 3) = "***" Then
rs.AddNew

sr = dc.Paragraphs(t + 1)
n = InStr(1, sr, ":", vbTextCompare)
rs!fld1 = Right(sr, Len(sr) - n)

sr = dc.Paragraphs(t + 2)
n = InStr(1, sr, ":", vbTextCompare)
rs!fld2 = Right(sr, Len(sr) - n)

sr = dc.Paragraphs(t + 3)
n = InStr(1, sr, ":", vbTextCompare)
rs!fld3 = Right(sr, Len(sr) - n)

rs.Update
End If
Next
dc.Close
Set w = Nothing
End Sub


حال مشکلی که وجوددارد ،توضیحات هر مطلب است که ممکن است بعضی فیلد ها داشته باشند و در پاراگراف چهارم به بعد قرار می گیرد.(در فایل ورد ضمیمه مشهوداست)
لطفا راهنمایی بفرمایید که چطور میشه کد را اصلاح کرد که بشود پاراگراف چهارم به بعد فایل وردی را در یک رکورد از اکسس قرار داد

[narese]

پاسخ در آدرس ذیل آمده است

http://barnamenevis.org/showthread.php?501194-%DA%A9%D9%85%DA%A9-%DA%A9%D8%AF-%D8%A7%D9%86%D8%AA%D9%82%D8%A7%D9%84-%D9%85%D8%B7%D9%84%D8%A8-%D8%A7%D8%B2-%D9%88%D8%B1%D8%AF-%D8%A8%D9%87-%D8%A7%DA%A9%D8%B3%D8%B3&p=2238964#post2238964