Обработка части текста из ячейки ворда - VBA

Узнай цену своей работы

Формулировка задачи:

Пытаюсь скопировать часть текста из ячейки ворда. все содержимое копируется. не получается скопировать часть текста. "1. Руководитель Департамента АА - Иванов 2. Руководитель Управления ВВ - Петров". Нужно в ячейку поставить "Департамента АА", в лучшем случае на следующую строку еще "Управления ВВ".
дает ошибку в строке "With rt.Find '"
в данном фрагменте для проверки делаю выборку по строке "Руководитель Департамента СС - Сидоров"
как я понимаю не правильно задается диапазон обработки потому что "Sheets(3).Cells(l, 4).Value = Replace(Replace(rt.Text, Chr(7), ""), Chr(13), "")" не работает. как правильно задать .Range для текста в ячейке?

Решение задачи: «Обработка части текста из ячейки ворда»

textual
Листинг программы
 rt = wdTbl.Cell(3, 2).Range.Text
n = InStr(1, rt, "2.") '  начальная позиция "2."
k = InStr(n, rt, " - ") ' позиция первого " - " после "2."
s = Mid(rt, n + 3, k - n + 2) ' часть текста от "2." до " - "

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 4.067 из 5
Похожие ответы