求VB代码：打开一个WORD文档，把第一行设置宋体3号居中，其余设置仿宋5号，然后将所有内容写到另一文件中

Answer 1

Private Sub Command1_Click()
Dim WDApp As Object
Dim Mydoc As Object
Dim MyRange As Object
Dim MySelection As Object
Set WDApp = CreateObject("Word.Application")
Set Mydoc = WDApp.Documents.Open(App.Path & "\test.doc")
Set MyRange = Mydoc.Paragraphs.First.Range
WDApp.Selection.WholeStory
WDApp.Selection.Font.Name = "宋体"
WDApp.Selection.Font.Size = 11
MyRange.SetRange MyRange.Start, MyRange.End - 1
MyRange.Select
Set MySelection = WDApp.Selection
MySelection.ParagraphFormat.Alignment = wdAlignParagraphCenter
MySelection.Font.Size = 16
Mydoc.SaveAs App.Path & "\123456.doc"
WDApp.Quit
End Sub

追问

wdAlignParagraphCenter是不是有问题？运行时显示变量未定义。

追答

引用WORD了么？我这里运行无问题，要源代码的话留下QQ