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不行。