老师好！有这样一组字符串：【甲亢】（1）坚持治疗，注意在医生指导下的药物治疗或减量。（2）合理安排工作与休息，定期复查。（3）内科治疗;【糖尿病】（1）饮食疗法：按糖尿病饮食进餐，原则是：高纤维素、高蛋白、低脂肪、忌糖。（2）皮肤护理，尿糖测定。口服降糖药物或胰岛素治疗。（3）内科治疗;【消化性溃疡】（1）内科治疗。按时服药，用足疗程。（2）劳逸结合，定时进食。 通过代码
Dim tm As String = ProjectPath & "Attachments\导检单.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\导检单.doc" '指定目标文件
Dim wrt As New WordReport(Tables("表A"),tm,fl) '定义一个WordReport
Dim r As Row = Tables("表A").current
Dim str() As String = r("内科_诊断建议").Split(";")
Dim temp As String = ""
For Each s As String In str
If temp > "" Then
temp = temp & vbcrlf & s
Else
temp = s
End If
Next
wrt.ReplaceOne("[内科_诊断建议]",temp)
wrt.Build()
wrt.show()
拆分成：
【甲亢】（1）坚持治疗，注意在医生指导下的药物治疗或减量。（2）合理安排工作与休息，定期复查。（3）内科治疗
【糖尿病】（1）饮食疗法：按糖尿病饮食进餐，原则是：高纤维素、高蛋白、低脂肪、忌糖。（2）皮肤护理，尿糖测定。口服降糖药物或胰岛素治疗。（3）内科治疗
【消化性溃疡】（1）内科治疗。按时服药，用足疗程。（2）劳逸结合，定时进食。
现在我想继续拆分成下面的版式，该怎么做？请指点，谢谢！
【甲亢】
（1）坚持治疗，注意在医生指导下的药物治疗或减量。
（2）合理安排工作与休息，定期复查。
（3）内科治疗
【糖尿病】
（1）饮食疗法：按糖尿病饮食进餐，原则是：高纤维素、高蛋白、低脂肪、忌糖。
（2）皮肤护理，尿糖测定。口服降糖药物或胰岛素治疗。
（3）内科治疗
【消化性溃疡】
（1）内科治疗。按时服药，用足疗程。
（2）劳逸结合，定时进食。
[此贴子已经被作者于2015/9/25 16:42:31编辑过]
加好友 
发短信
Post By：2015/9/25 16:41:00 [显示全部帖子]
谢谢了