为何无法替换掉word中所有图片的“首行缩进”？

shenlong2006

我想一次将所有图片的“首行缩进”取消掉，用替换的办法发现不管用，不知道问题出在哪里呢？


取消图片缩进.rar (350.47 KB, 下载次数: 6)

2023-3-3 15:45 上传

点击文件名下载附件

守候_CJ

经测试，仅替换段落缩进确实替换不了，此处提供以下面两种方法：
方法一、Word VBA代码
（代码也可以用替换，此处就用其他方法了）

1. Function 纯文本(ByVal myString As String) As String
   
2.     Dim s As String
   
3.    
   
4.     s = myString
   
5.     s = Replace(s, " ", "")
   
6.     s = Replace(s, "　", "")
   
7.     s = Replace(s, vbTab, "")
   
8.     s = Replace(s, Chr(7), "")
   
9.     s = Replace(s, Chr(11), "")
   
10.     s = Replace(s, Chr(13), "")
    
11.     s = Replace(s, Chr(160), "")
    
12.    
    
13.     纯文本 = s
    
14. End Function
    
15. 
    
16. Sub 图片段居中()
    
17.     Dim pa As Paragraph
    
18.     Dim ispCount As Integer
    
19.     Dim lenTrim  As Integer
    
20.     For Each pa In ActiveDocument.Paragraphs
    
21.         ispCount = pa.Range.InlineShapes.Count
    
22.         If ispCount > 0 Then
    
23.             lenTrim = Len(纯文本(pa.Range.Text))
    
24.             If ispCount = lenTrim Then
    
25.                 With pa.Range
    
26.                     .Style = pa.Range.Document.Styles("正文") '设置样式为正文以免影响其他位置格式，可省
    
27.                     .ParagraphFormat.CharacterUnitFirstLineIndent = 0 '设置首行字符缩进为0
    
28.                     .ParagraphFormat.FirstLineIndent = 0 '设置首先缩进0磅
    
29.                     .ParagraphFormat.Alignment = wdAlignParagraphCenter '图片居中
    
30.                 End With
    
31.             End If
    
32.         End If
    
33.     Next
    
34. End Sub

复制代码

▼

413191246se

守候老师：你没用“CentimetersToPoints(0)”直接用 0 也管用，经测试没有问题。

守候_CJ

413191246se 发表于 2023-3-3 23:07
守候老师：你没用“CentimetersToPoints(0)”直接用 0 也管用，经测试没有问题。

wuwenbin32415

不用vba，用基础的操作方法（替换）怎么做？

守候_CJ

wuwenbin32415 发表于 2023-3-5 20:03
不用vba，用基础的操作方法（替换）怎么做？

替换 我上面第二种方法就是

wuwenbin32415

谢谢守候老师，我有2个问题请教：1、为什么替换为一定要有“格式”里的“样式”、“正文”？如果没有这个而只有“格式”里的“段落” 、“特殊格式”、“（无）”就没有效果。2、替换时在查找框里输入“图形”即^g会有效，但是单纯查找时用“图形”即^g却查找不到这4张图片，只能选中一张（最后一张），这是为什么？

守候_CJ

wuwenbin32415 发表于 2023-3-6 22:37
谢谢守候老师，我有2个问题请教：1、为什么替换为一定要有“格式”里的“样式”、“正文”？如果没有这个而 ...

1.具体原因尚不清楚，但很可能和手动设置过格式有关
2.经测试
（1）【^g】在查找/替换/导航都有效，只是查找的时候不能像其他文字一次全选；
（2）在通配符模式下没有查找图片功能

wuwenbin32415

谢谢守候老师，^g好像只能查找到嵌入型的图片，不能找到非嵌入型的图片，是这样吧？

shenlong2006

守候_CJ 发表于 2023-3-3 19:11
经测试，仅替换段落缩进确实替换不了，此处提供以下面两种方法：
方法一、Word VBA代码
（代码也可以用替 ...

感谢指教，研究好几天没明白什么原因