- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何在word creator中实现图片在顶层，文字在底层的套打效果 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=195658)
-- 发布时间：2025/2/25 22:33:00
-- 如何在word creator中实现图片在顶层，文字在底层的套打效果
如题，
此主题相关图片如下：112.png
-- 发布时间：2025/2/25 22:53:00
--
暂时没有办法
-- 发布时间：2025/2/26 0:12:00
--
可能我没有说清楚，这个和word的“衬于文字底下”的功能一模一样的。
此主题相关图片如下：无标题.png
-- 发布时间：2025/2/26 8:43:00
--
目前还没有提供文字环绕的相关功能
-- 发布时间：2025/2/26 20:16:00
--
不是说了可以找
完整文档到c1的官网看：https://developer.mescius.com/componentone/docs/win/online-wordlibrary/overview.html |
-- 发布时间：2025/2/28 7:50:00
--
请狐表官方回复一下，急用。如果文字环绕的东西做不到，就没法使用电子盖章功能了啊。
[此贴子已经被作者于2025/2/28 7:50:39编辑过]
-- 发布时间：2025/2/28 8:32:00
--
11
[此贴子已经被作者于2025/2/28 8:32:26编辑过]
-- 发布时间：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编辑过]