Sub Main
	Dim objWord As Object
	Set objWord=CreateObject("Word.Basic")
	With objWord
	  .AppRestore
	  .AppMaximize 1
	  .FileNewDefault
	  .ViewPage
	  .InsertPara
	  .Insert "我已經成功打開Word!"
	  .StartOfLine 1
	  .Bold
	  .FontSize 30
	  .CenterPara
	End With
	Set objWord=Nothing
End Sub