word VBA为何无法批量取消图片的首行缩进呢？javascript:;

shenlong2006

想批量取消word中图片的“首行缩进”，运行下面这段代码后还是不行，不知道问题出在哪里？

代码如下：

1. Sub 批量取消图片缩进()
   
2. Dim n '图片个数
   
3. On Error Resume Next '忽略错误
   
4. For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
   
5. ActiveDocument.InlineShapes(n).Select
   
6.   With Selection.ParagraphFormat
   
7.         .CharacterUnitFirstLineIndent = 0
   
8.     End With
   
9. Next n
   
10. For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
    
11. ActiveDocument.Shapes(n).Select
    
12.   With Selection.ParagraphFormat
    
13.        .CharacterUnitFirstLineIndent = 0
    
14.     End With
    
15. Next n
    
16. End Sub

复制代码

运行前：

运行后：


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

2023-2-27 14:21 上传

点击文件名下载附件

413191246se

楼主，在第 7 行 和第 13 行代码后面各加上下面的语句就可以首行缩进了！
.FirstLineIndent = CentimetersToPoints(0)

shenlong2006

413191246se 发表于 2023-2-28 01:20
楼主，在第 7 行 和第 13 行代码后面各加上下面的语句就可以首行缩进了！
.FirstLineIndent = Centimeters ...

感谢，确实可以，不知道为什么要加上这句呢？ .CharacterUnitFirstLineIndent不是设置首行缩进的么？

413191246se

为什么要加上这句代码？不知道为什么。因为，两种代码都是取消首行缩进，单位不同，一个是厘米，一个是字符。经过测试发现，只要把字符单位的语句放到厘米单位的语句前面就管事，否则就不管事。