ole-word.sbs

来自「SPSS的实战介绍」· SBS 代码 · 共 18 行

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