[已解决]求助：word文档中格式设置代码 (VBA代码求助)

hwc2ycy

8.

1.     Selection.WholeStory
   
2.     With Selection.Font
   
3.         .Size = 16
   
4.         .Name = "宋体"
   
5.     End With

复制代码

hwc2ycy

7.

1.     Selection.WholeStory
   
2.     Selection.ParagraphFormat.LineSpacing = 25

复制代码

hwc2ycy

10.

1.     Selection.WholeStory
   
2.     Selection.Find.ClearFormatting
   
3.     Selection.Find.Replacement.ClearFormatting
   
4.     With Selection.Find
   
5.         .Text = "^p^p"
   
6.         .Replacement.Text = "^p"
   
7.     End With
   
8.     Selection.Find.Execute Replace:=wdReplaceAll

复制代码

hwc2ycy

5.

1.     Selection.WholeStory
   
2.     Selection.Find.ClearFormatting
   
3.     Selection.Find.Replacement.ClearFormatting
   
4.     With Selection.Find
   
5.         .Text = "(^13)(^32){1,100}"
   
6.         .Replacement.Text = "^13"
   
7.         .MatchWildcards = True
   
8.     End With
   
9.     Selection.Find.Execute Replace:=wdReplaceAll

复制代码

hwc2ycy

6.

1.     Selection.WholeStory
   
2.     Selection.Find.ClearFormatting
   
3.     Selection.Find.Replacement.ClearFormatting
   
4.     With Selection.Find
   
5.         .Text = "(^32){1,100}(^13)"
   
6.         .Replacement.Text = "^13"
   
7.          .MatchWildcards = True
   
8.     End With
   
9.     Selection.Find.Execute Replace:=wdReplaceAll

复制代码

hwc2ycy

第9题实在弄不出来了。

yjwdjfqb

hwc2ycy 发表于 2012-10-22 22:20
4.

太感谢朋友了，非常的好用！！！