本示例显示 Templates 集合中每个模板的名称。

For i = 1 To Templates.Count
    MsgBox Templates(i).Name & " is template number " & i
Next i