Как преобразовать текст в таблицу

Комментариев: 6

1. 

   Алена
   13.09.2007 в 13:35 | #1

   Спасибо за очень полезную информацию. Вопрос: если фрагментов текста, которые нужно отделить знаком разделителя, более 100, к примеру. Может быть есть способ как автоматизировать этот процесс? Прошу меня извинить, если ответ на этот вопрос находится на сайте - информации много, сразу все не прочитаешь.

   С уважением!
2. 

   Админ
   13.09.2007 в 20:58 | #2

   Мне думается, способ разделения предполагает непосредственное участие человека - ведь надо знать, что именно отделять. Но если есть определенные правила, то можно написать макрос.
3. 

   @lex
   14.12.2007 в 00:47 | #3

   Функция хорошая, но не хорошо работает (темболее далеко не идеально работает).

   У меня возникла необходимость воспользоватся впервые со времени как я узнал в период учебы в коледже о этой функции, и я очень разочаровался.

   Подскажите и помогите кто может как мне справится с моей проблемой преобразования текста в таблицу!!! :-(

   #Пример текста:#

   123456

   Название заказчика: ООО "Пример текста"

   Юридический адрес и телефон: Киев, ул.Гонты, 9 тел. /044/ 999-99-99

   Физический адрес и телефон: Киев, ул.Гонты, 9 тел. /044/ 999-99-99

   Контактный представитель: Семен Семенович

   Мобильный № контактного представителя: 8/067/999-99-99

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

   Подскажите как я могу преобразовать текст в таблицу Ексель если у меня в ворде все такие надписи подряд идут штук так на глаз с 10 000 - 2 000, чтобы:

   1) номер 123456 (это спецномер клиента) был всевремя в первой колонке

   2) а такие названия как "Название заказчика:", "Юридический адрес и телефон:", "Физический адрес и телефон:", "Контактный представитель:", "Мобильный № контактного представителя:", "Вид деятельности организации:" стали названиями колонок,

   3)а под каждым из таких названий уже размещалась соответствующая информация как "ООО "Пример текста"", "Киев, ул.Гонты, 9 тел. /044/ 999-99-99", "Киев, ул.Гонты, 9 тел. /044/ 999-99-99", "Семен Семенович", "8/067/999-99-99", "ремонт, оптовые продажи, розничные продажы, информационные услуги, консультирование..."

   ОСНОВНЫЕ ПРОБЛЕМЫ С КОТОРЫМИ Я СТОЛКНУЛСЯ В WORD "Преобразовать текст в таблицу":

   1. остутствие возможности сделать повторяющиеся названия в строках WORD как "Название заказчика:", "Юридический адрес и телефон:", "Физический адрес и телефон:", "Контактный представитель:", "Мобильный № контактного представителя:", "Вид деятельности организации:" сделать их названиями в верху колонок в самом начале таблицы, чтобы под ними уже размещалась информация (пояснение к колонке);

   2. Такая строка как "Вид деятельности организации" содержит две строки или больше в ворде и может переносится на следующую строку или автоматически или посредством нажатия клавиши "ENTER" что недопустимо при выборе "Разделителя" и таблица сбивается, а в ружную отредактировать до идеала или рутинно копировать в Ексеть займет наверное пол жизни :(

   Заранее всем спасибо за желание (старания) помочь мне...!!!!!
4. 

   Ольга
   23.06.2008 в 12:07 | #4

   Уважаемый LeX!

   Попробуйте вот это:

   1.Выделяем текст, который надо преобразовать. (ориентация страницы ессно: альбомная)

   2.Меню Таблица – Преобразовать текст в таблицу – число столбцов 7 – разделитель другой «:» получаем некую таблицу.

   3.Затем применяем макрос TblRotate:

   Sub TblRotate()

   'таблица-перевёртыш (столбцы становятся строками, а строки столбцами).

   Dim RCnt As Integer, CCnt As Integer

   CCnt = Selection.Tables(1).Columns.Count

   RCnt = Selection.Tables(1).Rows.Count

   Dim TblBuf()

   ReDim TblBuf(RCnt, CCnt)

   For i = 1 To RCnt

   For j = 1 To CCnt

   LL = Len(Selection.Tables(1).Cell(i, j).Range.Text)

   TblBuf(i, j) = Mid(Selection.Tables(1).Cell(i, j).Range.Text, 1, LL - 2)

   Next

   Next

   Selection.Tables(1).Delete

   Set Tbl = Selection.Tables.Add(Selection.Range, CCnt, RCnt)

   For i = 1 To CCnt

   For j = 1 To RCnt

   Selection.Tables(1).Cell(i, j).Range.Text = TblBuf(j, i)

   Next

   Next

   End Sub

   4.Выделяем полученную таблицу и в меню Таблица – Автоподбор – автоподбор по содержимому.

   Вот, что получили: см. файл с таблицей. Если хотите – несите в Excel: вставляется хорошо.

   С уважением,

   Ольга.
5. 

   александр
   14.05.2011 в 01:23 | #5

   Помогите ЗБИВАЕТСЯ УКАЗАТЕЛЬ МЫШИ. КАК ТОЛЬКО ТОРКНУСЬ РОЛИКА НА МЫШКЕ ТО В МЕСТО УКАЗАТЕЛЯ ВЫСКАКИВАЕТ КАКОЙ ТО КВАДРАТИК.
6. 

   ed
   25.11.2011 в 14:50 | #6

   Инструмент преобразования в тавлицу очень слаб. В w2007 имеет смысл преобразовать текст в pdf и оттуда можно копировать вертикальные столбцы.