Статьи из блога

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

Допустим, у вас есть некий текст, который вы хотите оформить в виде таблицы. Сделать это можно следующим способом.

 

Word 2003

  1. Для начала определитесь с тем, какие фрагменты текста вы хотите разместить в колонки таблицы, а какие - в строки. Те фрагменты текста, которые должны быть преобразованы в колонки, нужно отделить от остального текста знаком разделителя (например, точкой с запятой). Фрагменты текста, которые должны быть преобразованы в строки, нужно отделить знаком абзаца.
  2. Выделите текст, который вы хотите преобразовать в таблицу.
  3. В меню Таблица наведите указатель мыши на команду Преобразовать и в раскрывшемся меню выберите команду Текст в таблицу. Откроется диалоговое окно Преобразовать в таблицу.
  4. Задайте количество столбцов (строки формируются автоматически), выберите ширину таблицы и отметьте используемый разделитель.
  5. Нажмите ОК.

В документе появится таблица с вашим текстом.

 

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

 

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

 

Word 2007

  1. Выделите текст, который вы хотите преобразовать в таблицу.
  2. Перейдите на вкладку Вставка и в группе Таблицы нажмите кнопку Таблица. Откроется вложенное меню Вставка таблицы с конструктором таблиц и дополнительными командами.
  3. Выберите команду Преобразовать в таблицу. Откроется диалоговое окно Преобразовать в таблицу.
  4. Задайте количество столбцов (строки формируются автоматически), выберите ширину таблицы и отметьте используемый разделитель.
  5. Нажмите ОК.

twitter.com facebook.com vkontakte.ru odnoklassniki.ru mail.ru ya.ru rutvit.ru myspace.com technorati.com digg.com friendfeed.com pikabu.ru blogger.com liveinternet.ru livejournal.ru memori.ru google.com bobrdobr.ru mister-wong.ru yahoo.com yandex.ru del.icio.us

Еще записи по вопросам использования Microsoft Word:

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

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

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

    С уважением!

  2. 13.09.2007 в 20:58 | #2

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

  3. 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 и оттуда можно копировать вертикальные столбцы.

Оставьте комментарий!

(обязательно)

^ Наверх