Несколько способов форматирования и обработки данных в Word документах с помощью IS-Builder.

Замеченное наблюдение к вставке текста в Word:

при вставке большого количества текста в word-овский документ с ошибками (грамматические/пунктуационные) 2010 Office ругается на большое количество ошибок и не хочет "показывать" отчет.

Чтобы этого избежать, можно программно отключать проверку орфографии:

ActiveDocument.ShowSpellingErrors = False
ActiveDocument.ShowGrammaticalErrors = False

создал простенькую таблицу.  с помощью данного материала

// Создадим объект приложения Microsoft Word
WordApp = CreateObject("Word.Application")
// Создадим новый документ
NewDoc = WordApp.Documents.Add()
// Добавим в него текст
Table = NewDoc.Tables.Add(NewDoc.Paragraphs(1).Range; 3; 5)
i =1
while i <7 // КАНТ простой линией
 Table.Borders('-'&i).LineStyle = 1
 i=i+1
endwhile

расположение  = 'C:\DirLogs\'

название=  "таблица.doc"
путь = расположение & название

WordApp.Visible = false
NewDoc.SaveAs(путь)    // куда сейвим
NewDoc.Close(false)    // закрываем док
WordApp.Quit()         // закрываем приложение

автору большое спасибо )) собрал отчет не громоздкий
 

Пожалуйста.

В добавлении: Установить ширину столбца таблицы

Doc.Tables(1).Columns(1).PreferredWidth = Word.CentimetersToPoints(17.5)     

Для открытия документа в режиме чтения необходимо прописать параметры у метода Open следующим образом:

Word = CreateObject("Word.Application")  
Doc = Word.Documents.Open('Путь к документу'; True; True)
Word.Visible = true 

Третий параметр (True) указывает, что документ открывается в режиме чтения.

Для выделения определенного текста в документе можно воспользоваться, примерно, следующим кодом:

  Word = CreateObject("Word.Application")  
  Doc = Word.Documents.Open('Путь к документу'; True; True)
  myRange = Doc.Content 
  // Поиск текста для выделения
  myRange.Find.Execute("Выделяемый текст"; True)     
  isFind = myRange.Find.Found 
  while isFind
    // Выделения текста цветом
    myRange.Font.ColorIndex = 3
    myRange.Find.Execute("Выделяемый текст"; True)     
    isFind = myRange.Find.Found
  endwhile            
  Word.Visible = True 

Видимо, я не правильно поняла задачу по режиму открытия документа.

Нашел небольшой недочет:
в 4 пункте:  должно быть:

и 

у Вас параметры эти перепутаны

Евгений, спасибо за замечание, данные в пункте 4 поправила.

Хорошая статья, Елизавета спасибо.

Для быстрого нахождения материала и для обсуждения добавляю свои комментарии: 

1) Свойство таблицы "Повторять как заголовок на каждой странице"

Table.Rows.HeadingFormat = False
Table.Rows(1).HeadingFormat = True

2) Пример для удаления после разрыва страницы (до разрыва находится Закладка "СписокРассылки") страницы без содержания:

 CountTabl = WordDocument.Tables.Count           
 // Удаление двух таблиц 6-ой и 5-ой
 WordDocument.Tables.Item(CountTabl - 1).Delete
 WordDocument.Tables.Item(CountTabl - 1).Delete                       
 // Удаляем последний параграф с данными
 CountP = WordDocument.Paragraphs.Count           
 WordDocument.Paragraphs(CountP).Range.Delete
 // Удаляем строки после Закладки
 If WordDocument.Bookmarks.Exists("СписокРассылки")             
   WordDocument.Bookmarks("СписокРассылки").Range.Delete
   WordDocument.Bookmarks("СписокРассылки").Range.Delete
   WordDocument.Bookmarks("СписокРассылки").Range.Delete                           
 endif
 //WordDocument.Bookmarks("\Line").Range.Delete           
 //WordDocument.Paragraphs(CountP - 2).Range.Delete

3) Полезная статья о Закладках http://www.transcriber.ru/etudesrus/hlp_objbookmark.htm

Константин, спасибо за дополнительную информацию.

Елизавета, большое спасибо за данную статью! Очень много интересного для себя нашел. Но вот какой вопрос: Можно ли в ячейки сделать форматирование по горизонтали?

Пробовал сделать...

Doc.Tables(1).Rows(1).Cells(1;3).HorizontalAlignment = 1

Но ругается на недопустимое число параметров 

Добрый день, Константин.

"Можно ли в ячейки сделать форматирование по горизонтали?", да можно. Для выравнивания содержимого ячейки используйте аналогичный код, который описан в данной статье в пункте 13, т.е. код будет выглядеть следующим образом:

Doc.Tables(1).Cell(1;3).Range.ParagraphFormat.Alignment = 1 // выравнивание текста по центру в ячейке первой строки третьего столбца 

Елизавета, к сожалению так он делает форматирование по горизонтали всей колонки, а не отдельно взятой ячейки 

Константин, пробовала отформатировать текст в ячейки, используя приведенный мною код выше, форматируется только текст одной ячейки, а не всей колонки.

Попробуйте вот этот код для форматирования текста в ячейке:

Doc.Tables(1).Rows(1).Cells(3).Range.ParagraphFormat.Alignment = 1 

Для получения параметров из документа Word:

Param = Doc.BuiltInDocumentProperties.Item(WdBuiltInProperty).Value

typedef enum WdBuiltInProperty
{
wdPropertyTitle = 1,
wdPropertySubject = 2,
wdPropertyAuthor = 3,
wdPropertyKeywords = 4,
wdPropertyComments = 5,
wdPropertyTemplate = 6,
wdPropertyLastAuthor = 7,
wdPropertyRevision = 8,
wdPropertyAppName = 9,
wdPropertyTimeLastPrinted = 10,
wdPropertyTimeCreated = 11,
wdPropertyTimeLastSaved = 12,
wdPropertyVBATotalEdit = 13,
wdPropertyPages = 14,
wdPropertyWords = 15,
wdPropertyCharacters = 16,
wdPropertySecurity = 17,
wdPropertyCategory = 18,
wdPropertyFormat = 19,
wdPropertyManager = 20,
wdPropertyCompany = 21,
wdPropertyBytes = 22,
wdPropertyLines = 23,
wdPropertyParas = 24,
wdPropertySlides = 25,
wdPropertyNotes = 26,
wdPropertyHiddenSlides = 27,
wdPropertyMMClips = 28,
wdPropertyHyperlinkBase = 29,
wdPropertyCharsWSpaces = 30
} WdBuiltInProperty;

небольшое замечание к предыдущему комментарию:

если вы хотите получить количество страниц в документе сразу после загрузки документа, то необходимо перед запросом количества страниц сделать паузу (sleep(1))? чтобы Word успел обновить параметр, иначе результат вернется неверным.

Пример можно посмотреть в ответе на вопрос

делаю интегрированный отчет (ртф) и нужно проставить маркеры (квадратики, кружки и пр. ерунду), подскажите, как это сделать?

Такие маркеры, как квадратики и кружки - это просто символы, причем они входят в "обычные" шрифты. Вопрос в том, как вставить эти символы, ведь редактор ISBL-кода этого не позволяет. Один из способов - "препарировать", т.е. изучить содержимое RTF-файла, в котором есть эти символы. Создайте в приложении WordPad документ с нужными маркерами, сохраните его в формате RTF, откройте текстовым редактором, например notepad, и изучайте, какими управляющими последовательностями закодированы нужные символы :)

Почему рекомендую WordPad, а не Word - последний вставляет в RTF-файл очень много дополнительного "мусора", это мешает поиску нужной информации. Но в WordPad-е сложнее подобрать нужный символ, поэтому для удобства можно набрать символы в Word и скопировать их в WordPad.

Например, вот простейший шаблон RTF-отчета, состоящего из одного символа "□" :

#[РТФЗагОтч("Да"; ; "К"; 1; 1; 1.5; 1; ; )]
#{\lang1049\f1\u9633?\lang1033\f2}
#[РТФКонОтч()]

Полезная статья. Дополню кодом по вставке ссылки на документ в ячейку таблицы

Document = DocApplication.Documents.Open(ModelFilePath)
Tabl = Document.Tables(1)
Cell = Tabl.Cell(1; 7)
Document.Hyperlinks.Add(Cell.Range; Doc.Hyperlink(hltText); ; ; DocName;)

А может кто-нибудь подсказать причину такого поведения:
1. Есть документ с текстом после таблицы.
2. Добавляем текст командой Doc.Paragraphs(X).Range.Text = 'текст'
3. При формировании документа системой 'текст' оказывается не в абзаце, а в таблице выше, в одной из ячеек Doc.Tables(1).Range.

Такое впечатление, что для обращения к абзацам текста и то ли строкам, то ли отдельным  ячейкам таблицы (так и не понял, по какому принципу) используется одно и то же сквозное индексирование. Справка по объектной модели MS офиса об этом умалчивает.

Как корректно обращаться в таком случае к абзацам текста после таблицы?