# coding: utf-8
require "win32ole"
word=WIN32OLE.new('word.Application')
word.visible=true
doc=word.Documents
doc.add
sel=word.Selection
a=word.ActiveDocument
#标题
a.Styles.Add('Name'=>"toc1")
fon=a.Styles("toc1").Font
fon.Size=14
fon.Bold=true
fon.Name="宋体"
#设置标题
sel.Style=a.Styles("toc1")
sel.TypeText('Text'=>'唇形')
#doc.save
#可参考VBA宏来调用相应的属性及方法