[KaKTuZ49]

Сделал неиного сам. Вот что получилось у меня. Но есть вопрос:

Код:

Dim DOMDocument, Node, tmpStr 
Set DOMDocument = CreateObject("MSXML2.DOMDocument") 
With DOMDocument 
    .Load "C:\XML\" & basename 
    if .parseError.reason <> "" Then 
        MsgBox .parseError.reason,vbCritical 

        WScript.Quit 

    End if 
    With .documentElement.SelectSingleNode("списокСубъектов") 
        tmpStr = "" 
        For Each Node in .SelectNodes("субъект") 
            sNomer = Node.GetAttribute("идентификаторСубъекта") 
             firm = Node.GetAttribute("имя")           
    MsgBox sNomer 
   MsgBox firm 
  Next 
 End With 
End With

В поле имя иногда могут быть кавычки. А мне надо, что там были только буквы безо всяких кавычек.
Как мне сделать замену символов(коротко - удалить):
'
"
»
«

[KaKTuZ49]

Разобрался. Сделал вот так :

Код:

firm = Replace(firm,"'","")
firm = Replace(firm,"""", "")
firm = Replace(firm,"»", "")
firm = Replace(firm,"«", "")

Корректировка не нужна?