PPT中怎么没有宏录制功能呢？大神帮我写一段代码

倚松听琴

谁帮我写一段宏代码，在ppt2013中，实现以下功能： 1、对于选定文字，修改文字为黑体字，字号为14号，加粗。 修改对齐方式为两端对齐，文本之前缩进为0，首行缩进1.27厘米。段前0磅，段后0磅，行距1.5倍行距

vbee

1. Sub Macro1()
   
2. '
   
3. ' 宏由 Administrator 记录，日期: 2024/9/21
   
4. 
   
5.     With ActiveWindow.Selection.TextRange.Font
   
6.         .NameAscii = "黑体"
   
7.         .NameOther = "黑体"
   
8.         .NameFarEast = "黑体"
   
9.         .Size = 14
   
10.         .Bold = msoTrue
    
11.         
    
12.     End With
    
13. 
    
14.     With ActiveWindow.Selection.TextRange.ParagraphFormat
    
15.         .Alignment = ppAlignJustify
    
16.         .LineRuleWithin = msoTrue
    
17.         .SpaceWithin = 1.5
    
18.         .LineRuleBefore = msoFalse
    
19.         .SpaceBefore = 0
    
20.         .LineRuleAfter = msoFalse
    
21.         .SpaceAfter = 0
    
22.     End With
    
23. End Sub
    

复制代码