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编辑过]
还有一个问题,一段文字中某些重要的文字需要设置下划线等以示提示,如何设置?
第一个”狐表“两个字是红字,第二个”狐表“两个字是下划线,第三个”狐表“两个字字体大些。首行缩进2个汉字
[此贴子已经被作者于2025/1/4 15:10:12编辑过]
单个功能试过了,如何把这几个功能放在一起?
[此贴子已经被作者于2025/1/4 15:20:48编辑过]