fix 在附录里输入表题，下页附录会直接顶上来

2023-09-17 16:27:29 +08:00
parent 7319d9a118
commit 18bea574ca
1 changed files with 3 additions and 1 deletions
@@ -605,7 +605,9 @@
            oParagraph.AddText('XXX')
            oDocument.InsertContent([oParagraph])
            let GetNext = oParagraph.GetNext()
-            GetNext.Delete()
+            GetNext.SetSpacingAfter(0)
            GetNext.SetSpacingBefore(0)
            // GetNext.Delete()
            // oParagraph.Delete()
          } catch (error) {
            console.error(error)