Dear Experts

I use following procedure to insert a drawing textbox in Excel.
Now I want to insert drawing textbox in Microsoft Word.
Please help

oexcel.activesheet.shapes.addtextbox(msotextorientationhorizontal, 311, 290, 363.75, 15).select
oexcel.selection.characters.text = thisform.text2.value
with oexcel.selection.font
	.name = "Arial"
	.fontstyle = "Regular"
	.size = 10
	.bold = .t.
	.strikethrough = .f.
	.superscript   = .f.
	.subscript     = .f.
	.outlinefont   = .f.
	.shadow        = .f.
	.underline     = xlunderlinestylenone
	.colorindex    = xlautomatic
endwith