Макрос для копирования чисел в таблицу MS WORD - Microsoft Office Word

stp706 · 18.04.2014, 16:16

Добрый день!
Есть 10 или 20 (в разных ситуациях) чисел, записанных последовательно. Необходимо скопировать их в таком же порядке в строку MS Word. Бывает до 40 таких групп чисел, поэтому задумалась об автоматизации этого процесса. Пожалуйста, подскажите, как можно реализовать подобный макрос. Заранее благодарна)

shanemac51 · 18.04.2014, 16:19

ОТКУДА скопировать?

Sasha_Smirnov · 18.04.2014, 22:59

Цитата:

Сообщение от stp706

скопировать их в таком же порядке

Выделить что вам нужно → Ctrl-c (копия выделенного) → курсор в нужное место → Ctrl-v (вставка выделенного).

stp706 · 19.04.2014, 00:53

Например, такой массив чисел.

stp706 · 19.04.2014, 01:11

Цитата:

Сообщение от Sasha_Smirnov

Выделить что вам нужно → Ctrl-c (копия выделенного) → курсор в нужное место → Ctrl-v (вставка выделенного).

Разумеется, можно и так. Но придется копировать по одному числу (иначе все выделенные числа будут помещены в одну ячейку таблицы, что в данной ситуации неприемлемо). В случае, если имеется 20 групп по 20 чисел в каждой группе, подобную процедуру необходимо будет проделать 400 раз. А на подходе еще 20 групп... И еще...

Sasha_Smirnov · 19.04.2014, 01:51

В документе Пример.doc:

выделить что вам нужно → нажать клавишу F5 → курсором выделить такую же по числу ячеек область таблицы → Ctrl-v (вставка ряда чисел) (и так пока всё не перенесёте).

stp706 · 19.04.2014, 08:41

Значения получаются в результате численного решения интегрального уравнения. Вообще говоря, запись идет в файл *.dat, но это не принципиально.
В документе Пример.doc при нажатии на F5 у меня появляется сообщение "The macros in this project are disabled. Please refer to the online help or documentation of the host application to determine how to enable macros". Возможно, я что-то не так делаю?

Sasha_Smirnov · 19.04.2014, 11:30

А, ну конечно! Чтобы юзать макросы, надо включить макросы.

Обычно так: Сервис→Макрос→Безопасность → поставить средний или низкий уровень.

Это трабл уже исторический: http://programmersforum.ru/showthread.php?t=45991#4

Вот тут в подробностях:

http://programmersforum.ru/showthread.php?t=210453
http://programmersforum.ru/showthread.php?t=97357
http://programmersforum.ru/showthread.php?t=127233#2 (на примере EducatedFool для Excel)

Казанский · 19.04.2014, 13:59

Саша, а тебя Яндeкc-Диpeкт не задолбал?
От него (и заодно от рекламы гугля) избавиться довольно просто - в файл

Код:

C:\WINDOWS\system32\drivers\etc\hosts

написать

Код:

127.0.0.1       googlesyndication.com
127.0.0.1       pagead2.googlesyndication.com
127.0.0.1       www.google-analytics.com
127.0.0.1       googleads.g.doubleclick.net
127.0.0.1       an.yandex.ru

stp706 · 19.04.2014, 20:02

Замечательно, с этим примером все работает!
В случае, когда имеется 20 значений, они выводятся немного не так. Файл прилагаю. Если я правильно поняла, символ перехода на следующую строку показывает, что идущее за ним число надо записывать в новую ячейку таблицы. Тогда в новом примере нужно после каждого числа добавить символ перехода на след. строку. Правильно? И еще один момент. В новом примере числа имеют в среднем 7 знаков после запятой, а мне нужны только 3. Можно как-то обрубить эти "хвосты"?
Очень благодарна за помощь)

18.04.2014, 16:16	#1
stp706 Новичок Джуниор Регистрация: 18.04.2014 Сообщений: 8	Макрос для копирования чисел в таблицу MS WORD Добрый день! Есть 10 или 20 (в разных ситуациях) чисел, записанных последовательно. Необходимо скопировать их в таком же порядке в строку MS Word. Бывает до 40 таких групп чисел, поэтому задумалась об автоматизации этого процесса. Пожалуйста, подскажите, как можно реализовать подобный макрос. Заранее благодарна)

19.04.2014, 13:59	#9
Казанский Старожил Регистрация: 31.12.2010 Сообщений: 2,133	Саша, а тебя Яндeкc-Диpeкт не задолбал? От него (и заодно от рекламы гугля) избавиться довольно просто - в файл Код: `C:\WINDOWS\system32\drivers\etc\hosts` написать Код: `127.0.0.1 googlesyndication.com 127.0.0.1 pagead2.googlesyndication.com 127.0.0.1 www.google-analytics.com 127.0.0.1 googleads.g.doubleclick.net 127.0.0.1 an.yandex.ru` exceleved@yandex.ru Яндекс.Деньги: 410011500007619

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Макрос для копирования данных из формы для формирования таблицы	xander2112	Microsoft Office Excel	12	06.05.2013 22:23
Макрос преобразовывающий таблицу из Word в Excel	Alisya	Microsoft Office Excel	20	15.10.2011 13:16
Макрос для копирования значений из нескольких файлов в один общий с определенным условием копирования	zenner	Microsoft Office Excel	0	21.03.2011 14:48
Макрос для импорта или копирования из Word	barbus	Microsoft Office Excel	4	08.05.2010 21:46
Макрос для копирования	knyz	Microsoft Office Excel	28	11.01.2009 06:12

18.04.2014, 16:19	#2
shanemac51 Участник клуба Регистрация: 12.08.2010 Сообщений: 1,077	ОТКУДА скопировать? Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни Сфера интересов--word-excel-access-распознавание

19.04.2014, 08:41	#7
stp706 Новичок Джуниор Регистрация: 18.04.2014 Сообщений: 8	Значения получаются в результате численного решения интегрального уравнения. Вообще говоря, запись идет в файл *.dat, но это не принципиально. В документе Пример.doc при нажатии на F5 у меня появляется сообщение "The macros in this project are disabled. Please refer to the online help or documentation of the host application to determine how to enable macros". Возможно, я что-то не так делаю?

19.04.2014, 20:02	#10
stp706 Новичок Джуниор Регистрация: 18.04.2014 Сообщений: 8	Замечательно, с этим примером все работает! В случае, когда имеется 20 значений, они выводятся немного не так. Файл прилагаю. Если я правильно поняла, символ перехода на следующую строку показывает, что идущее за ним число надо записывать в новую ячейку таблицы. Тогда в новом примере нужно после каждого числа добавить символ перехода на след. строку. Правильно? И еще один момент. В новом примере числа имеют в среднем 7 знаков после запятой, а мне нужны только 3. Можно как-то обрубить эти "хвосты"? Очень благодарна за помощь)