Нужно переписать все символы из некого открытого документа Word в массив символов Delphi.
Как это  правильно сделать?
Нашел тупой и медленный способ
......
var  data:array[1..100000] of char;
.....
Form1.L:=WordApp.ActiveDocument.Characters.Count;
for i:=1 to Form1.L do
   begin
     s:=WordApp.ActiveDocument.Range(i-1,i).Text;
     if Length(s)<1 then s:=' ';
     Form1.data[i]:=s[1];
  end;
.....

Вариант
var   s:string;
 s:=(WordApp.ActiveDocument.Range.Text);
не подходит, т.к в моих документах есть символы, которые некоректно заносятся в s(полагаю символ конца строки для delphi).

Я бы посоветовал сначала весь WordApp.ActiveDocument.Range(от начала до конца).Text затащить в TStringList и работал бы уже с ним. А дергать посимвольно из ворда действительно долго.

А зачем именно массив символов? Чем строка или TStringList не подходят?