'create document
        Set docWord = appWord.Documents.Add()
        docWord.PageSetup.LeftMargin =  80 
        docWord.PageSetup.RightMargin =  20 
        docWord.PageSetup.TopMargin =  50 
        docWord.PageSetup.BottomMargin =  50 
        docWord.PageSetup.Orientation = wdOrientLandscape
        appWord.Visible = True
     With docWord.Sections( 1 )
     Set rngCurrent = docWord.Range
           With rngCurrent
             .Text = " ... " ' - ввожу текст
             .Select
             .Font.Name = "Times New Roman"
             .Font.Size =  18 
             .Font.Italic = False
             .Font.Bold = True
             .ParagraphFormat.Alignment = wdAlignParagraphCenter
             .Collapse Direction:=wdCollapseEnd ' - пытаюсь снять выделение - не снимается???

           End With
    End With