выдает ошибку!

[maksim_serg]

Доброго всем времени суток!
подскажите, при запуске word'a 2007 все время выдается ошибка: "неверная единица измерения!". Где что настроить надо? уж очень она надоела мне!

[Гошик]

Поставить себе Офис 2003. Ни когда проблем с ней не было, а здесь новые форматы, куча ошибок.. Ну ничего в 2010 году новая версия выходит)
______________
Я создаю барное оборудование

[Aent]

maksim_serg, в региональных настройках windows смените десятичный разделитель.
Впрочем, такой эффект бывает после трояна jyku.fjo и ещё нескольких...

[maksim_serg]

у меня эта ошибка появилась после того как я в excel'е написал макрос, который открывает документ word, переходит на закладку в нем, вставляет текст и сохраняет в другой папке:

With CreateObject("word.application")
            Set x = ThisWorkbook.Sheets(1)
        
        If x.Range("Q" & i).Value <> "" Then
        .documents.Open (ThisWorkbook.Path & "\формы отчетов\лист согласований - субподряд.doc")
        Else
        .documents.Open (ThisWorkbook.Path & "\формы отчетов\лист согласований - генподряд.doc")
        End If
        
        .ActiveDocument.Bookmarks("организация").Select
        If x.Range("Q" & i).Value <> "" Then
        .Selection.InsertAfter x.Range("Q" & i).Value
        Else
        .Selection.InsertAfter x.Range("M" & i).Value
        End If
        
        p = x.Range("Z" & i).Value & " -- " & x.Range("AA" & i).Value
        .ActiveDocument.Bookmarks("период").Select
        .Selection.InsertAfter p

 p = x.Range("U" & i).Value
        p = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(p, Chr(34), ""), "|", ""), ">", ""), "<", ""), "?", ""), "/", ""), "\", ""), ":", ""), "*", "")
        
        If CheckBox5.Value = False Then
            If Len(Dir(folder1 & "\" & p & ".doc")) <> 0 Then
                p = InputBox("Введите другое название файла или нажмите Cancel, что бы заменить существующий" & Chr(10) & Chr(10) & "Файл:" & Chr(10) & p & ".doc", "Сохранить файл как", p)
                If p = "" Then p = x.Range("U" & i).Value
                               p = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(p, Chr(34), ""), "|", ""), ">", ""), "<", ""), "?", ""), "/", ""), "\", ""), ":", ""), "*", "")
            End If
        End If

        .ActiveDocument.SaveAs folder1 & "\" & p & ".doc"
        .Quit
    End With