以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  不能设置字体  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=194675)

--  作者:lihe60
--  发布时间:2025/1/4 8:58:00
--  不能设置字体
Dim wdc As New WordCreator()
Dim wdc As New WordCreator()
Dim fl As String = "c:\\temp\\test.docx"
Dim fnt0 As New Font("黑体", 20) \'提示字体
Dim fnt1 As New Font("宋体", 12) \'正文字体

Dim txt As String = "房屋买卖合同" 
With wdc.AddParagraph(txt)
    .ForeColor = Color.red
    .Font = New Font("微软雅黑", 40)
    .FirstLineIndent = 20 \'首行缩进20
    .SpaceBetweenLines = 50 \'行距为10
    .Alignment = Word.RtfHorizontalAlignment.center \'文本中间对齐
End With 

    .Font = New Font("微软雅黑", 40),这个代码无效,虽然有替代的办法,希望这个BUG还是解决掉。

[此贴子已经被作者于2025/1/4 9:01:37编辑过]

--  作者:有点蓝
--  发布时间:2025/1/4 9:52:00
--  
WordCreator目前无法指定字体,固定是宋体,只能设置字体大小
--  作者:lihe60
--  发布时间:2025/1/4 13:30:00
--  
字体大小不能设置的。


--  作者:lihe60
--  发布时间:2025/1/4 14:06:00
--  
如何设置文字大小?
--  作者:lihe60
--  发布时间:2025/1/4 14:09:00
--  
还有一个问题,一段文字中某些重要的文字需要设置下划线等以示提示,如何设置?
--  作者:有点蓝
--  发布时间:2025/1/4 14:16:00
--  
设置文字大小: With wdc.AddParagraph(txt,New Font("微软雅黑", 40))
--  作者:lihe60
--  发布时间:2025/1/4 15:00:00
--  
第一个”狐表“两个字是红字,第二个”狐表“两个字是下划线,第三个”狐表“两个字字体大些。首行缩进2个汉字
如何把这几个要求组合在同一段落中。


[此贴子已经被作者于2025/1/4 15:10:12编辑过]

--  作者:lihe60
--  发布时间:2025/1/4 15:01:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:test.rar


--  作者:有点蓝
--  发布时间:2025/1/4 15:15:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

--  作者:lihe60
--  发布时间:2025/1/4 15:19:00
--  
单个功能试过了,如何把这几个功能放在一起?
[此贴子已经被作者于2025/1/4 15:20:48编辑过]