[已解决]设置word中倒数第二行文字格式的vba代码

yjwdjfqb

设置word中倒数第二行文字格式的vba代码

将倒数第二行的文字的格式设置为：

字体为25号，黑体
右对齐方式


请老师是们帮帮忙，谢谢大家了！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-1-13 21:34

1.     With Selection
   
2. 
   
3.         .EndKey Unit:=wdStory
   
4.         .MoveUp Unit:=wdLine, Count:=1
   
5.         .EndKey Unit:=wdLine, Extend:=wdExtend
   
6.         Debug.Print .Range.Text
   
7. 
   
8.         With .Font
   
9.             .Size = 25
   
10.             .Name = "黑体"
    
11.         End With
    
12.         With .ParagraphFormat
    
13.             .Alignment = wdAlignParagraphRight
    
14.         End With
    
15.         .HomeKey Unit:=wdStory
    
16.     End With

复制代码

录的。

跳转到最佳答案楼层

hwc2ycy

1.     With Selection
   
2. 
   
3.         .EndKey Unit:=wdStory
   
4.         .MoveUp Unit:=wdLine, Count:=1
   
5.         .EndKey Unit:=wdLine, Extend:=wdExtend
   
6.         Debug.Print .Range.Text
   
7. 
   
8.         With .Font
   
9.             .Size = 25
   
10.             .Name = "黑体"
    
11.         End With
    
12.         With .ParagraphFormat
    
13.             .Alignment = wdAlignParagraphRight
    
14.         End With
    
15.         .HomeKey Unit:=wdStory
    
16.     End With

复制代码

录的。