[basmach]

Если только текст, то в место

Код:

Clipboard.Clear;
      COM_Word.Documents.Open(DirPath + FieldByName('cDocumentPath').AsString);
      COM_Word.ActiveDocument.Select;     // Âûäåëÿåì ÁÄ
      COM_Word.Selection.Copy;
       if (Length(Clipboard.AsText)>0) and (Clipboard.HasFormat(CF_TEXT)) then begin
        Edit;
        FieldByName('cDocumentContent').AsString := Clipboard.AsText;
        Post;
      end; // if

можно

Код:

FieldByName('cDocumentContent').AsString:=COM_Word.ActiveDocument.Range.Text;