Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.11.2018, 19:42   #1
Hamsterbacke_007
Новичок
Джуниор
 
Регистрация: 25.11.2018
Сообщений: 4
По умолчанию Преобразование текста в таблицы

Здравствуйте. Возможно по данной теме уже были посты, но на просторах сети не нашёл конкретно свой случай.
Задача: из огромного текста клепать таблицы с помощью макроса, как показано в образце файле ниже.
В файле показана типовая таблица, как она выглядит при экспорте в ворд (1-я строка таблица и её номер, 2-я и до n-й - название таблицы, слова/числа через разделитель ; это сама таблица)
И также в файле показано то, что в итоге должно получиться.
Через запись макроса он выглядит вот так:
Однако, мне нужно, чтобы он проводил данные действия по всему документу.
Может кто помочь объяснить, как это делается?
Спасибо.
P.S. новичок в VBA.

Sub Макрос2()
'
' Макрос2 Макрос
'
'
Selection.ConvertToTable Separator:=wdSeparateByCommas, NumColumns:=9, _
NumRows:=25, AutoFitBehavior:=wdAutoFitFixed
With Selection.Tables(1)
.Style = "Сетка таблицы"
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = False
.ApplyStyleFirstColumn = True
.ApplyStyleLastColumn = False
End With
End Sub
Вложения
Тип файла: docx Тaблица 1.docx (14.0 Кб, 20 просмотров)
Hamsterbacke_007 вне форума Ответить с цитированием
Старый 25.11.2018, 20:11   #2
shanemac51
Участник клуба
 
Аватар для shanemac51
 
Регистрация: 12.08.2010
Сообщений: 1,077
По умолчанию

Цитата:
Сообщение от Hamsterbacke_007 Посмотреть сообщение
из огромного текста клепать таблицы
насколько огромного??
ВОРД не очень любит большие таблицы
уже при таблице в 20-30 страниц заметны ТОРМОЗА


для больших таблиц более пригоден ЕКСЕЛЬ

также не оговорено
--каждая страница в отдельную табличку
--сквозная таблица на весь документ
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание

Последний раз редактировалось shanemac51; 25.11.2018 в 20:15.
shanemac51 вне форума Ответить с цитированием
Старый 25.11.2018, 21:11   #3
Hamsterbacke_007
Новичок
Джуниор
 
Регистрация: 25.11.2018
Сообщений: 4
По умолчанию

Цитата:
Сообщение от shanemac51 Посмотреть сообщение
насколько огромного??
ВОРД не очень любит большие таблицы
уже при таблице в 20-30 страниц заметны ТОРМОЗА


для больших таблиц более пригоден ЕКСЕЛЬ

также не оговорено
--каждая страница в отдельную табличку
--сквозная таблица на весь документ
Огромное - это количество таблиц
Сам размер таблицы на 1 страницу, максимум 2.
В файле показано "из чего делать таблицы" и "как эти таблицы должны выглядеть после макроса"
Должно быть так:

Таблица (номер). Название таблицы
Сама таблица

И вот таких схем очень и очень много у меня.
Остальное особо не важно, если таблица немного вылезет на другую страницу.
Hamsterbacke_007 вне форума Ответить с цитированием
Старый 25.11.2018, 21:23   #4
shanemac51
Участник клуба
 
Аватар для shanemac51
 
Регистрация: 12.08.2010
Сообщений: 1,077
По умолчанию

Цитата:
Сообщение от Hamsterbacke_007 Посмотреть сообщение
Огромное - это количество таблиц
хотелось бы увидеть более реальный файл, чтобы видеть не одну таблицу, а 3-4
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание
shanemac51 вне форума Ответить с цитированием
Старый 26.11.2018, 22:59   #5
Hamsterbacke_007
Новичок
Джуниор
 
Регистрация: 25.11.2018
Сообщений: 4
По умолчанию

Цитата:
Сообщение от shanemac51 Посмотреть сообщение
хотелось бы увидеть более реальный файл, чтобы видеть не одну таблицу, а 3-4
Они в таком варианте и импортируются.
Разница только в том, что я отправил только 1 из всех таблиц, а таких у меня очень и очень много.
Могу просто таблицу, что в приложенном мной выше файле раскопировать раза 3-4, если нужно
Hamsterbacke_007 вне форума Ответить с цитированием
Старый 27.11.2018, 06:37   #6
shanemac51
Участник клуба
 
Аватар для shanemac51
 
Регистрация: 12.08.2010
Сообщений: 1,077
По умолчанию

Цитата:
Сообщение от Hamsterbacke_007 Посмотреть сообщение
раскопировать раза 3-4, если нужно
все просто
я хотела видеть стык таблиц
видеть, что еще есть помимо заголовка и рядовых строк(с точка запятой)

таблица 1 наименование1
1;2;3;4;5;6
1;2;3;4;5;6
1;2;3;4;5;6
1;2;3;4;5;6
1;2;3;4;5;6

таблица 2 наименование2
1;2;3;4;5;6
1;2;3;4;5;6
1;2;3;4;5;6
1;2;3;4;5;6
1;2;3;4;5;6

таблица 3 наименование3
1;2;3;4;5;6
1;2;3;4;5;6
1;2;3;4;5;6
1;2;3;4;5;6
1;2;3;4;5;6

таблица 1 наименование1
1;2;3;4;5;6
1;2;3;4;5;6
1;2;3;4;5;6
1;2;3;4;5;6
1;2;3;4;5;6
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание
shanemac51 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

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

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
преобразование текста в число govorun1 Microsoft Office Access 4 01.12.2014 21:31
Преобразование таблицы Наталья777 Microsoft Office Excel 4 31.10.2012 11:47
преобразование текста в строку Composter Microsoft Office Excel 11 30.05.2011 01:37
преобразование текста в цифру... 0mega Microsoft Office Excel 5 27.11.2009 20:10
Преобразование текста konkonych Помощь студентам 3 24.03.2009 14:00