请问关于ole操作word自动生成目录的有关问题

请教关于ole操作word自动生成目录的问题
请教一下，我现在用ole操作word生成一篇文档，但是不知道怎么生成文档的目录。

在word2007中录制了一段宏    
ActiveDocument.AttachedTemplate.BuildingBlockEntries("自动目录 1").Insert _
        Where:=Selection.Range, RichText:=True

请问怎么转成ole代码，非常感谢！  
[解决办法]
大概是这个么意思。

Variant vRange = vWordApp.OlePropertyGet("Selection").OlePropertyGet("Range");
Variant vAttach = vWordApp.OlePropertyGet("ActiveDocument").OlePropertyGet("AttachedTemplate");
Variant vBlock = vAttach.OlePropertyGet("BuildingBlockEntries").OleFunction("Item", "自动目录 1");
vBlock.OleFunction("Insert", vRange, true);