Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Технологии
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 23.05.2016, 21:43
modemaizer modemaizer вне форума
Прохожий
 
Регистрация: 23.05.2016
Сообщения: 1
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Аналог метода Range.Cells из Word в Delphi

Доброго всем!
Собственно, сабж.
Требуется в таблице ворда перебрать все ячейки последовательно от первой до последней. Именно так, не построчно. Почему? Попробую объяснить:

Суть задачи - есть файл с таблицами - справочник адресов электропочты. В крайних правых ячейках - адрес. В ячейке слева от адреса - адресат. Это всё, что нужно из таблицы вытащить, поэтому прохожу последовательно, считываю, если распознаю адрес - беру пару <предыдущая>+<текущая>. Форматирование таблиц просто конское! Ячейки могут быть объединены во все стороны, поэтому вариант считывать построчно отпадает.

В VBA это решилось так:
Код:
With oTable
    For Each Cell In .Range.Cells()
        CellStr = Replace(Cell.Range.Text, Chr(7), "")
        If (InStr(CellStr, "@") > 0) Then
            Str = Replace(Sname, Chr(13), " ") + ";" + Replace(RemoveEnters(CellStr), Chr(13), ", ")
            objTF.writeline Str
        End If
        Sname = CellStr
    Next
End With

В Delphi упёрся в метод Range.Cells.

Посоветуйте, куда копать? Обходные пути?
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 20:09.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter