Dim wdc As New WordCreator()
Dim fnt As New Font("宋体", 12)
Dim rtr As New Word.Objects.RtfString( "狐表", fnt)
rtr.ForeColor = Color.red
wdc.Add(rtr)
wdc.Add( New Word.Objects.RtfString( "是电子表格,", fnt))
rtr = New Word.Objects.RtfString( "狐表", fnt)
rtr.Underline = Word.RtfUnderlineStyle.Single
wdc.Add(rtr)
wdc.Add( New Word.Objects.RtfString( "也是数据库。", fnt))
rtr = New Word.Objects.RtfString( "狐表", New Font("宋体", 20))
wdc.Add(rtr)
wdc.Add( New Word.Objects.RtfString( "是一个优秀的应用软件。", fnt))
Dim fl As String = "c:\temp\test.docx"
wdc.Save(fl) '保存文件
Process.Start(fl) '打开文件
加好友 
发短信
Post By：2025/1/4 9:52:00 [显示全部帖子]
此主题相关图片如下：1.png