День Добрый.  
Выяснилось, что код валится на шаге открытия шаблона, расположенного на сетевом диске. Причем офис 2007 офис нормально открывает эти шаблоны.    
2010 ругается на ошибку "не удается открыть банк макросов".  
 
 For j = 1 To  Application.FileDialog(msoFileDialogFilePicker).SelectedItems.Count  
 link = Application.FileDialog(msoFileDialogFilePicker).SelectedItems(j)  
Dim oWord As Word.Application  
 Dim oDoc As Word.Document  
 Set oWord = CreateObject("Word.Application")  
 Set oDoc = oWord.Documents.Add(link)   'в этом месте валится  
Next j  
Если заменить oWord.Documents.Add(link) на oWord.Documents.Open(link), то макрос заработает и в 2010,но мне нужно обрабатывать эти файлы как шаблоны.  
Если шаблоны лежат на локально машине, то тоже никаких ошибок не наблюдается  
Может быть подскажете?