Foxtable(狐表)用户栏目专家坐堂 → 不能设置字体


  共有157人关注过本帖树形打印复制链接

主题:不能设置字体

帅哥哟,离线,有人找我吗?
lihe60
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6902 积分:43712 威望:0 精华:0 注册:2009/3/2 14:07:00
不能设置字体  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
lihe60
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6902 积分:43712 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2025/1/4 13:30:00 [显示全部帖子]

字体大小不能设置的。


 回到顶部
帅哥哟,离线,有人找我吗?
lihe60
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6902 积分:43712 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2025/1/4 14:06:00 [显示全部帖子]

如何设置文字大小?

 回到顶部
帅哥哟,离线,有人找我吗?
lihe60
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6902 积分:43712 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2025/1/4 14:09:00 [显示全部帖子]

还有一个问题,一段文字中某些重要的文字需要设置下划线等以示提示,如何设置?

 回到顶部
帅哥哟,离线,有人找我吗?
lihe60
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6902 积分:43712 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2025/1/4 15:00:00 [显示全部帖子]

第一个”狐表“两个字是红字,第二个”狐表“两个字是下划线,第三个”狐表“两个字字体大些。首行缩进2个汉字
如何把这几个要求组合在同一段落中。


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

 回到顶部
帅哥哟,离线,有人找我吗?
lihe60
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6902 积分:43712 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2025/1/4 15:01:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:test.rar


 回到顶部
帅哥哟,离线,有人找我吗?
lihe60
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6902 积分:43712 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2025/1/4 15:19:00 [显示全部帖子]

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

 回到顶部
帅哥哟,离线,有人找我吗?
lihe60
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6902 积分:43712 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2025/1/4 15:21:00 [显示全部帖子]

第一个”狐表“两个字是红字,第二个”狐表“两个字是下划线,第三个”狐表“两个字字体大些,首行缩进2个汉字。
如何把这几个要求组合在同一段落中。

上传一下代码。
[此贴子已经被作者于2025/1/4 15:28:08编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
lihe60
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6902 积分:43712 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2025/1/4 15:30:00 [显示全部帖子]

Dim wdc As New WordCreator()
Dim
fnt As New Font("宋体", 12)
wdc.Add(
New Word.Objects.RtfString( "Foxtable是电子表格,", fnt))
wdc.Add(
New Word.Objects.RtfString( "Foxtable也是数据库。", fnt))
Dim
rtr As New Word.Objects.RtfString( "Foxtable是一个优秀的应用软件,", fnt)
rtr.ForeColor = Color.Brown
wdc.Add(rtr)
rtr =
New Word.Objects.RtfString( "Foxtable也是一个高效率的开发工具!", fnt)
rtr.ForeColor = Color.Green
wdc.Add(rtr)

Dim
fl As String = "c:\temp\test.docx"
wdc.Save(fl)
'保存文件
Process.Start(fl)
'打开文件

这个代码如何改?

 回到顶部
帅哥哟,离线,有人找我吗?
lihe60
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6902 积分:43712 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2025/1/4 20:01:00 [显示全部帖子]

但是首行没有缩进2个字符。

 回到顶部
总数 13 1 2 下一页