vba来实现对word字体格式的控制

Question

小弟想实现vba来控制word字体的自动转换，请教高手指教。
就是在文本粘贴到word文档里后自动转换成所需要的格式，不需要在设置！！

Answer 1

写了一个简单的宏，设置段落的字体、字号以及对齐方式，楼主参考一下：
Sub temp()
    Dim i As Integer
    For i = 1 To ThisDocument.Paragraphs.Count
        ThisDocument.Paragraphs(i).Range.Font.Name = "黑体"
        ThisDocument.Paragraphs(i).Range.Font.Size = 20
        ThisDocument.Paragraphs(i).Format.Alignment = wdAlignParagraphCenter
    Next
End Sub

Answer 2

通过编写Word宏命令，可以实现对Word任何对象的控制

Answer 3

先打开宏录制功能（工具 -> 宏 -> 录制新宏）；
然后把自己期望的效果操作一遍；
再停止录制宏，打开编辑器，对照自动生成的宏代码，自己修改所需部分即可。