以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  WordCreator 字体不变化  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=196101)
--  作者：shanshuizhujian
--  发布时间：2025/3/28 15:49:00
--  WordCreator 字体不变化
Dim wdc As New WordCreator()
Dim fl As String = "c:\\temp\\test.docx"
Dim fnt As New Font("黑体", 15)
wdc.AddParagraph("Foxtable是什么?")
wdc.AddParagraph("Foxtable是电子表格", fnt)
wdc.AddParagraph("Foxtable也是数据库", fnt, color.RosyBrown)
wdc.AddParagraph("Foxtable是一个优秀的应用软件", fnt, Color.Red, Word.RtfHorizontalAlignment.Center)
wdc.AddParagraph("Foxtable也是一个高效率的开发工具", fnt, Color.Green, Word.RtfHorizontalAlignment.Right)
wdc.Save(fl) \'保存文件
Process.Start(fl) \'打开文件  
word字体还是宋体。
--  作者：有点蓝
--  发布时间：2025/3/28 15:54:00
--  
WordCreator不支持改字体
--  作者：shanshuizhujian
--  发布时间：2025/3/28 15:55:00
--  
只能使用宋体吗？
--  作者：shanshuizhujian
--  发布时间：2025/3/28 15:56:00
--  
Dim wdc As New WordCreator()
Dim fl As String = "c:\\temp\\test.docx"
Dim txt As String
For i As Integer = 1 To 5
    txt = txt & "Foxtable不仅是一个优秀的应用软件，同时又是一个高效率的开发工具。"
Next
With wdc.AddParagraph(txt)
    .ForeColor = Color.Green
    .Font = New Font("微软雅黑", 9)
    .FirstLineIndent = 20   \'首行缩进20
    .SpaceBetweenLines = 10 \'行距为10
    .Alignment = Word.RtfHorizontalAlignment.Justify \'文本两端对齐
End With
wdc.Save(fl)
Process.Start(fl)  
这个是示例代码，显示不是微软雅黑，还是宋体。 
--  作者：有点蓝
--  发布时间：2025/3/28 16:02:00
--  
只能使用宋体
--  作者：shanshuizhujian
--  发布时间：2025/3/28 16:10:00
--  
我测试了，加上第三个参数之后，发现英文的可以变化，中文的无法变化。