|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.11.2018, 19:42 | #1 |
Новичок
Джуниор
Регистрация: 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 |
25.11.2018, 20:11 | #2 |
Участник клуба
Регистрация: 12.08.2010
Сообщений: 1,079
|
насколько огромного??
ВОРД не очень любит большие таблицы уже при таблице в 20-30 страниц заметны ТОРМОЗА для больших таблиц более пригоден ЕКСЕЛЬ также не оговорено --каждая страница в отдельную табличку --сквозная таблица на весь документ
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание Последний раз редактировалось shanemac51; 25.11.2018 в 20:15. |
25.11.2018, 21:11 | #3 | |
Новичок
Джуниор
Регистрация: 25.11.2018
Сообщений: 4
|
Цитата:
Сам размер таблицы на 1 страницу, максимум 2. В файле показано "из чего делать таблицы" и "как эти таблицы должны выглядеть после макроса" Должно быть так: Таблица (номер). Название таблицы Сама таблица И вот таких схем очень и очень много у меня. Остальное особо не важно, если таблица немного вылезет на другую страницу. |
|
25.11.2018, 21:23 | #4 |
Участник клуба
Регистрация: 12.08.2010
Сообщений: 1,079
|
хотелось бы увидеть более реальный файл, чтобы видеть не одну таблицу, а 3-4
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание |
26.11.2018, 22:59 | #5 | |
Новичок
Джуниор
Регистрация: 25.11.2018
Сообщений: 4
|
Цитата:
Разница только в том, что я отправил только 1 из всех таблиц, а таких у меня очень и очень много. Могу просто таблицу, что в приложенном мной выше файле раскопировать раза 3-4, если нужно |
|
27.11.2018, 06:37 | #6 |
Участник клуба
Регистрация: 12.08.2010
Сообщений: 1,079
|
все просто
я хотела видеть стык таблиц видеть, что еще есть помимо заголовка и рядовых строк(с точка запятой) таблица 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-распознавание |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
преобразование текста в число | 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 |