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

yjwdjfqb

求助：word文档中格式设置代码

word
请老师们帮帮我写下word文档中设置格式的几句代码

1、消除当前整篇word文档中,所有格式

2、设置当前整篇word文档中,对齐方式为,两端对齐

3、设置当前整篇word文档中,段落,首行缩进,2字符

4、替换当前整篇word文档中,所有硬回车为换回车

5、删除当前整篇word文档中,每个段落开始的空格

6、删除当前整篇word文档中,每个段落最后的空格

7、设置当前整篇word文档中,行距,固定值,25 磅

8、设置当前整篇word文档中,所有字体为,3号,宋体

9、设置当前整篇word文档中,第一行字体为,2号,宋体,加粗

10、删除当前整篇word文档中,所有的空回车行


虽然能从录制宏中得到，但录制出来的宏，很长，为此想请各位老师朋友们，帮帮忙（最好就是能，一个功能一句代码，越精短越好），
谢谢大家了！！！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-10-21 08:11

1.
Selection.WholeStory: Selection.ClearFormatting

2.
Selection.WholeStory:Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify

3.
Selection.WholeStory: Selection.ParagraphFormat.CharacterUnitFirstLineIndent = 2

跳转到最佳答案楼层

hwc2ycy

1.
Selection.WholeStory: Selection.ClearFormatting

2.
Selection.WholeStory:Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify

3.
Selection.WholeStory: Selection.ParagraphFormat.CharacterUnitFirstLineIndent = 2

yjwdjfqb

hwc2ycy 发表于 2012-10-21 08:11
1.
Selection.WholeStory: Selection.ClearFormatting

感谢朋友的帮助，第1到3个好用，感谢!!!

hwc2ycy

其实录了宏，再对比下，就知道变化了。
我也是第一次在WORD里用宏，不是很熟。

yjwdjfqb

hwc2ycy 发表于 2012-10-21 08:11
1.
Selection.WholeStory: Selection.ClearFormatting

朋友你好，能不能麻烦帮我把那几个功能也帮帮我写下，谢谢你了!!!

hwc2ycy

yjwdjfqb 发表于 2012-10-21 21:52
朋友你好，能不能麻烦帮我把那几个功能也帮帮我写下，谢谢你了!!!

明天帮你写吧。

yjwdjfqb

hwc2ycy 发表于 2012-10-21 22:35
明天帮你写吧。

太感谢朋友了，祝你天天开心!!!

yjwdjfqb

hwc2ycy 发表于 2012-10-21 22:35
明天帮你写吧。

朋友你好，如果有空的时候，请帮我写下，word中那几个问题的代码好吧，谢谢你了朋友！！！

hwc2ycy

yjwdjfqb 发表于 2012-10-22 22:02
朋友你好，如果有空的时候，请帮我写下，word中那几个问题的代码好吧，谢谢你了朋友！！！

不好意思，忙忘了。马上开工，

hwc2ycy

4.

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

复制代码