将会一直加分至300分！请踊跃回答“Word VBA（或VB+引用Microsoft Word 9.0 Object Library）的高手请进！”

Question

 Dim wordapp As New Word.Application
        Dim worddoc As Word.Document
        Dim text As Word.Selection
        Set worddoc = wordapp.Documents.Add(, , , True)
        Set text = wordapp.Selection
        text.TypeText ("你是否会了，哈哈！")
        Set line1 = worddoc.Paragraphs(1).Range
   
        line1.ParagraphFormat.Alignment = wdAlignParagraphCenter
         With line1.Font
             .Bold = True
             .Name = "宋体"
             .Size = 20
         End With
        wordapp.Visible = True

Answer 1

 Dim wordapp As New Word.Application
        Dim worddoc As Word.Document
        Dim text As Word.Selection
        Set worddoc = wordapp.Documents.Add(, , , True)
        Set text = wordapp.Selection
        text.TypeText ("你是否会了，哈哈！")
        Set line1 = worddoc.Paragraphs(1).Range
   
        line1.ParagraphFormat.Alignment = wdAlignParagraphCenter
         With line1.Font
             .Bold = True
             .Name = "宋体"
             .Size = 20
         End With
        wordapp.Visible = True

Answer 2

请写详细点;
Email通知我:[email protected]

Answer 3

你不说详细点别人怎么回答你
www.applevb.com

Answer 4

终于有人看到了！好激动，555...
众位大侠请看http://www.csdn.net/expert/TopicView.asp?id=58619，感激不尽

Answer 5

Dim wordapp As Word.Application
Dim doc As Word.Document
Dim sel As Word.Selection
Dim ff, fn As String
Set wordapp = New Word.Application
wordapp.Documents.Add
Set doc = wordapp.ActiveDocument
Set sel = wordapp.Selection
fn = InputBox("*****", "xxxxx")
ff = App.Path & "\" & fn
sel.TypeText ("dkkfkfkdkdkfkkkakk")
doc.SaveAs ff
Debug.Print ff
wordapp.Visible = True
Set wordapp = Nothing