以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  帮助中”在Word中绘图”实例在命令窗口打开后没有绘制  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194844)

--  作者:飞云
--  发布时间:2025/1/20 15:49:00
--  帮助中”在Word中绘图”实例在命令窗口打开后没有绘制
按照帮助文件中”在Word中绘图”实例,复制代码在命令窗口打开后没有绘制,请问老师是使用WPS的原因吗?
--  作者:有点蓝
--  发布时间:2025/1/20 15:50:00
--  
之前回复过了:http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=194795&skin=0
--  作者:飞云
--  发布时间:2025/1/20 16:33:00
--  
看到了,老师,我用off2010可以,还有一个问题,表格中的图片位置能设定吗?
--  作者:飞云
--  发布时间:2025/1/20 16:35:00
--  
还有,是不是只能导出“宋体”,我设置其他都不行。
--  作者:飞云
--  发布时间:2025/1/20 16:39:00
--  
上次提出表格变形的问题,wps多家一行就不变形(但是最后一行不能合并),off就不不涉及变形问题。
--  作者:飞云
--  发布时间:2025/1/20 16:45:00
--  
图片点击可在新窗口打开查看
--  作者:飞云
--  发布时间:2025/1/20 16:52: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/1/20 17:11:00
--  
目前不支持改字体,只能默认为宋体
--  作者:飞云
--  发布时间:2025/1/20 17:15:00
--  
好的老师,表格中图片的位置能设定吗?
--  作者:有点蓝
--  发布时间:2025/1/20 17:20:00
--  
暂时无法设定