如何将字符串写入Word
如何将字符串写入Word 问题点数：20、回复次数：3Top
1 楼caiyajun512（田鼠）回复于 2005-01-25 01:18:39 得分 0
看看word对象模型Top
2 楼webserv2（New life New job）回复于 2005-01-25 02:18:21 得分 20
Dim wordapp As New Word.ApplicationClass
Dim worddoc As New Word.Document
wordapp.Visible = True
worddoc = wordapp.Documents.Add()
Dim i As Int16
'将控件内容赋值给WORD
For i = 0 To LB1.Items.Count - 1
wordapp.Selection.TypeText(LB1.Items(i).Text)
wordapp.Selection.TypeParagraph()
Next
'保存WORD文件
worddoc.SaveAs(Server.MapPath("标准编号.doc"))
'注销WORD应用类
wordapp.Application.Quit()
worddoc = nothing
wordapp = nothing
GC.Collect()
Top
3 楼Henry0（Westwolf|西山狼）回复于 2005-01-25 06:14:02 得分 0
楼上怎么用VBTop
