Sub insert_object()
	ActiveSheet.OLEObjects.Add(ClassType:="Word.Document.8", _
	'Word200のオブジェクトを挿入します
	Link:=False, _
	'リンクしません
        DisplayAsIcon:=False).Activate
	'アイコン表示しません
End Sub