ник: akkorn
Ну так что может быть проще?
Пишем так примерно:
On Error Resume Next
Dim i As Long, ii As String
For i = 0 To oDoc.Properties.Count - 1
ii = ii & oDoc.Properties(i).Name
ii = ii & " = "
ii = ii & oDoc.Properties(i).Value
ii = ii & vbCrLf
Next i
MsgBox ii
On Error GoTo 0 |
On Error Resume Next тут обязателен, т.к. имя имеют все свойства, а вот значение не обязательно все (оно м.б. тупо не присвоено). Соотв при обращении- ошибка.
