共8 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：如何在word creator中实现图片在顶层，文字在底层的套打效果
1楼
playmal 发表于：2025/2/25 22:33:00如题，
此主题相关图片如下：112.png
此主题相关图片如下：112.png2楼
有点蓝 发表于：2025/2/25 22:53:00暂时没有办法
3楼
playmal 发表于：2025/2/26 0:12:00可能我没有说清楚，这个和word的“衬于文字底下”的功能一模一样的。
此主题相关图片如下：无标题.png
此主题相关图片如下：无标题.png4楼
有点蓝 发表于：2025/2/26 8:43:00目前还没有提供文字环绕的相关功能
5楼
playmal 发表于：2025/2/26 20:16:00不是说了可以找
完整文档到c1的官网看：https://developer.mescius.com/componentone/docs/win/online-wordlibrary/overview.html |
6楼
playmal 发表于：2025/2/28 7:50:00请狐表官方回复一下，急用。如果文字环绕的东西做不到，就没法使用电子盖章功能了啊。
[此贴子已经被作者于2025/2/28 7:50:39编辑过]
7楼
有点蓝 发表于：2025/2/28 8:32:0011
[此贴子已经被作者于2025/2/28 8:32:26编辑过]
8楼
有点蓝 发表于：2025/2/28 8:43:00可以通过绘图实现：http://www.foxtable.com/webhelp/topics/6045.htm
Dim wdc As New WordCreator()
Dim txt As String
For i As Integer = 1 To 5
txt = txt & "Foxtable不仅是一个优秀的应用软件，同时又是一个高效率的开发工具。"
Next
For i As Integer = 1 To 5
With wdc.AddParagraph(txt, New Font("宋体", 9))
.ForeColor = Color.Green
.FirstLineIndent = 20 '首行缩进20
.SpaceBetweenLines = 10 '行距为10
.Alignment = Word.RtfHorizontalAlignment.Justify '文本两端对齐
End With
Next
Dim rc As New System.Drawing.RectangleF(250, 50, 150, 100) '定义一个矩形，用于指定绘制位置和尺寸
Dim pgf As New Word.Objects.RtfParagraph()
Dim fnt As New Font("宋体", 12)
pgf.Add(New Word.Objects.RtfString("日期：2025年02月28日" & vbCrLf & "签名 ：张三", fnt))
wdc.DrawParagraph(rc, pgf)
rc = New System.Drawing.RectangleF(250, 50, 200, 200)
wdc.DrawImage( getimage("印章.png"), rc)
Dim fl As String = "d:\问题\test.docx"
wdc.Save(fl)
Process.Start(fl)
[此贴子已经被作者于2025/2/28 8:43:24编辑过]
共8 条记录, 每页显示 10 条, 页签:
[1]