如何用vba代码把第一行和第二行取消首行缩进并居中对齐

zzpsx

如何用vba代码把第一行和第二行取消首行缩进并居中对齐.zip (17.32 KB, 下载次数: 4)

2024-3-27 13:37 上传

点击文件名下载附件

vbee

1. Sub 宏1()
   
2. ''第一行和第二行取消首行缩进并居中对齐
   
3. For i = 1 To 2
   
4. With ActiveDocument.Paragraphs(i).Range
   
5.     .ParagraphFormat.FirstLineIndent = CentimetersToPoints(0)
   
6.     .ParagraphFormat.Alignment = wdAlignParagraphCenter
   
7. End With
   
8. Next i
   
9. 
   
10. End Sub
    

复制代码

zzpsx

vbee 发表于 2024-3-27 14:04

谢谢高手，不过还没有真正居中。

batmanbbs

4-5之间加一句

zzpsx

batmanbbs 发表于 2024-3-27 15:17
4-5之间加一句

谢谢高手，还是不行。

vbee

zzpsx 发表于 2024-3-27 16:06
谢谢高手，还是不行。

1. Sub 宏1()
   
2. ''第一行和第二行取消首行缩进并居中对齐
   
3. 
   
4. For i = 1 To 2
   
5. ActiveDocument.Paragraphs(i).Range.Select
   
6. Selection.MoveLeft
   
7. With Selection.ParagraphFormat
   
8.     .CharacterUnitFirstLineIndent = 0
   
9.     .FirstLineIndent = CentimetersToPoints(0)
   
10.     .Alignment = wdAlignParagraphCenter
    
11. 
    
12. End With
    
13. Next i
    
14. 
    
15. 
    
16. End Sub

复制代码

vbee

要先选择才行。

PS。贴代码要审核

batmanbbs

zzpsx 发表于 2024-3-27 16:06
谢谢高手，还是不行。

我这里测试没有问题

小花鹿

说法要规范一下，不是行，而是段落

小花鹿

zzpsx 发表于 2024-3-27 16:06
谢谢高手，还是不行。

运行两次，试试