Макросы, перенесенные с 97, в 2000 работают не правильно

Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = 'Do you want to continue ?'   ' Define message.
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons.
Title = 'MsgBox Demonstration'  ' Define title.
Help = 'DEMO.HLP'   ' Define Help file.
Ctxt = 1000 ' Define topic
        ' context.
        ' Display message.
 Count = ActiveDocument.Shapes.Count
 MsgBox (Count)
 ActiveDocument.Application.Visible = False
 For x = 1 To Count
    If ActiveDocument.Shapes.Item(x).Type = msoTextBox Then
        ActiveDocument.Shapes.Item(x).Select
        If Selection.ShapeRange.Height < 300 And  Selection.ShapeRange.Width < 300 Then
    Selection.ShapeRange.Height = 120
    Selection.ShapeRange.Width = 120
    Selection.ShapeRange.TextFrame.MarginLeft = 0
    Selection.ShapeRange.TextFrame.MarginRight = 0.2
    Selection.ShapeRange.TextFrame.MarginTop = 0
    Selection.ShapeRange.TextFrame.MarginBottom = 0.2
    Selection.ShapeRange.RelativeHorizontalPosition = wdRelativeHorizontalPositionColumn
    Selection.ShapeRange.RelativeVerticalPosition = wdRelativeVerticalPositionParagraph
    Selection.ShapeRange.Left = CentimetersToPoints(-0.81)
    Selection.ShapeRange.Top = CentimetersToPoints(0)
    Selection.ShapeRange.LockAnchor = False
    Selection.Font.Size = fonts
    Selection.Font.Name = fontn
    Selection.Font.Italic = fonti
    Selection.Font.Bold = fontb
   
    End If
    End If
 Next