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

[blademan]

请踊跃回答“Word VBA（或VB+引用Microsoft Word 9.0 Object Library）的高手请进！”（就在这个问题的楼下）
真的会给解决问题的人加300分！决不食言！

[xiaohei]

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

[xiaohei]

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

[blademan]

这我还不会？
大哥，我问的不是这个。

[3w]

请写详细点;
Email通知我:[e-mail]

[TechnoFantasy]

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

[anstern]

莫名奇妙,你到底想问什么,先把问题说出来

[blademan]

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

[jinkai_woo]

9494

[farrio]

不会……

[EverythingIdo]

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