奇怪的段落缩进问题

zorsite

请教诸位高手：
我有一份文档，明明段落格式的各种缩进设置均为0，但段落却有左右缩进，百思不得其解，请诸位高手解惑。

奇异的段落格式.rar (12.01 KB, 下载次数: 22)

2020-1-5 10:35 上传

点击文件名下载附件

cuanju

请将段落格式设置成两端对齐。

zorsite

cuanju 发表于 2020-1-5 14:31
请将段落格式设置成两端对齐。

我试了，两端对齐也无法解决问题。

yhs185

奇怪         

ming0018

1. Private Sub ReplaceXML()
   
2.     Dim doc As Document
   
3.     Set doc = ActiveDocument
   
4.     Set reg = CreateObject("VBSCRIPT.REGEXP")
   
5.     With reg
   
6.         .Global = True
   
7.         .Pattern = "<w:divId w:val=" & """" & "\d+" & """" & "/>"
   
8.     End With
   
9.     doc.Content.InsertXML reg.Replace(doc.Content.WordOpenXML, "")
   
10. End Sub

复制代码

zorsite

ming0018 发表于 2020-1-6 09:40

非常强大的代码，完美的解决了我的问题。
能否请高手解释一下原因？
期待自己也学会分析问题。

ming0018

zorsite 发表于 2020-1-14 14:17
非常强大的代码，完美的解决了我的问题。
能否请高手解释一下原因？
期待自己也学会分析问题。

不清楚你文档的来源，表面上通过操作无法解决问题，于是就查了一下底层的XML代码，发现多了DivId这个标签，于是将这个标签删除后，问题才解决。

任我小行

ming0018 发表于 2020-1-14 16:36
不清楚你文档的来源，表面上通过操作无法解决问题，于是就查了一下底层的XML代码，发现多了DivId这个标签 ...

您好，问下如何查 底层的 XML代码？在哪里操作啊？

任我小行

ming0018 发表于 2020-1-6 09:40

您好 复制完这个代码，放到WORD的什么地方啊？