在Form1做一个RichTextBox,名称为rtb,Visible为False
Private Sub Form1_Load()
rtb.Text = Form1.Text & VBCRLF & Form2.Text & VBCRLF & Form3.Text & VBCRLF ......
rtb.SaveFile "D:\Word.rtf"
shell "C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE D:\Word.rtf"
End Sub
'手上没VB，没测试
可以把&换成，
效果更好
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024