帮助中的代码Dim wdc As New WordCreator
wdc.Add(New Word.Objects.RtfString("这是第一句"))
wdc.LineBreak() '另起一行
wdc.Add(New Word.Objects.RtfString("这是第二句"))
wdc.PageBreak() '另起一页
wdc.AddParagraph("这是一个段落")
wdc.LineBreak() '插入空行
wdc.AddParagraph("这也是一个段落" & vbCrLf & "段内强制换行")
Dim fl As String = "c:\temp\test.docx"
wdc.Save(fl)
Process.Start(fl)
试过了,office2016可以,wps2019不行。
[此贴子已经被作者于2025/3/4 9:52:17编辑过]
如图效果
[此贴子已经被作者于2025/3/4 9:47:29编辑过]
如图

此主题相关图片如下:微信截图_20250304094647.png
我们没有办法解决这种兼容性问题,建议把文档发给wps客服处理
发给wps官方,就说为啥这个文件在word能正常换页,在wps不行。