|
0 / 0 / 0
Регистрация: 28.04.2016
Сообщений: 131
|
|
Word Запуск 10 макросов с 1 файла11.07.2018, 17:03. Показов 4004. Ответов 27
Здравствуйте!
Такая ситуация имеется 10 папок, в каждой есть по одному WORD файлу с одинаковым макросом (меняет связи в зависимости от месяца). Для того чтобы поменять связи в десяти файлах приходится открывать каждую папку, затем каждый файл, запускать макрос, и менять с его помощью связи на следующий месяц. Вопрос, можно ли как-то с помощью управляющего файла, сделать замену сразу на 10 файлах, чтобы не открывать каждый по отдельности
0
|
|
| 11.07.2018, 17:03 | |
|
Ответы с готовыми решениями:
27
Запуск макросов Excel |
|
0 / 0 / 0
Регистрация: 28.04.2016
Сообщений: 131
|
|
| 17.07.2018, 11:24 [ТС] | |
|
Krapivnik, Проблемы выявляются на практике. Извините. Так вот в файле примере структура
https://yadi.sk/d/KFQEV4Ep3ZFups. Сверху папка и управляющий файл. Внутри файла 10 папок (с названиями города, от 1 до 10) внутри каждой папки 4 папки с годом (с 2015 по 2018). Внутри годовых папок идут месяца с Января по текущий (и создаются новые каждый месяц благодаря макросу). Внутри папки с месяцем лежат разные файлы, в том числе один вордовский, и возможно несколько в формате Pdf и один excel (на который меняются связи)
0
|
|
|
40 / 37 / 9
Регистрация: 15.03.2018
Сообщений: 88
|
|
| 18.07.2018, 06:30 | |
|
kentavrik7, понял. Нужно переписать код - задать уровни вложенности папок. Или еще как-то выкрутиться.
На этой неделе я к сожалению не смогу этим заняться. Создайте отдельную тему с этой задачей - уверен, что вам помогут.
0
|
|
|
0 / 0 / 0
Регистрация: 28.04.2016
Сообщений: 131
|
|
| 18.07.2018, 10:32 [ТС] | |
|
Krapivnik, идея такая отказаться от Texbox (для ввода названия файла) создать ListBox с месяцами заданными.
01_Январь 02_Февраль 03_Март 04_Апрель . . . 12)Декабрь (они всегда будут одни и те же) А потом когда пользователь выбирает например 02_Февраль, макрос работал бы с 02_Февраль - 1 Помогите, как у вас будет время(
0
|
|
|
0 / 0 / 0
Регистрация: 28.04.2016
Сообщений: 131
|
|
| 18.07.2018, 16:13 [ТС] | |
|
Krapivnik, Посмотрите пожалуйста в моем файле в форме прописан код. Целесообразно, чтобы код макроса был в главном файле, а затем он использовал данный макрос сразу на все файлы.
Я создал форму, посмотрите пожалуйста. Там в Listbox прописаны месяца "01_Январь 02_Февраль 03_Март 04_Апрель . . . " При выборе нужного месяца например "Апреля", ко всем файлам в папке "Март" должен применяться данный макрос, и создать (как прописано в нем) папку, а в ней скопированный файл, после чего обновить связи. Можно так сделать? сразу для 10 файлов? а не запускать отдельно на каждом макрос
0
|
|
|
0 / 0 / 0
Регистрация: 28.04.2016
Сообщений: 131
|
|
| 18.07.2018, 17:25 [ТС] | |
|
Порядок действий такой
1) Открываем управляющий файл, включаем макрос. 2) Выбираем месяц из листбокс 3) Создаем 10 папок (с выбранным названием из лист бокс) и копируем в каждую файл (из предыдущей папки(выбранный в листбокс(месяц - 1))
0
|
|
|
40 / 37 / 9
Регистрация: 15.03.2018
Сообщений: 88
|
|
| 19.07.2018, 11:59 | |
|
kentavrik7, хорошо. Помогу на следующей неделе
0
|
|
|
0 / 0 / 0
Регистрация: 28.04.2016
Сообщений: 131
|
|
| 19.07.2018, 12:05 [ТС] | |
|
Krapivnik, Спасибо вам большое) Тема теперь не актуальна уже) Переделал сам. Изменилась задача
Добавлено через 1 минуту Krapivnik, У вас макрос перебирал вордовские файлы, входил в каждый потом запускал макрос и сохранял файл. Можно сделать так чтобы он копировал файл и вставлял просто? То есть нашел файл в папке и вставил
0
|
|
|
40 / 37 / 9
Регистрация: 15.03.2018
Сообщений: 88
|
|||
| 20.07.2018, 11:50 | |||
|
0
|
|||
| 20.07.2018, 11:50 | |
|
Предупреждение системы… Запуск макросов отключен
Запуск макросов из Delphi. 1-создание 2-удаление
Запуск функций UDF из персональной книги макросов Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |
|
Новые блоги и статьи
|
|||
|
FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3)
8Observer8 18.10.2026
Содержание блога | English Version
Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .
|
Локальный http сервер
Argus19 17.10.2026
Локальный http сервер
На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .
|
Копировать Windows на новый диск на UEFI
damix 17.10.2026
https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/
TL DR
Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .
|
ИИ не может найти нужный язык в списке
Supersumestria 05.10.2026
Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык.
Возвращает он вот это:
https:/ / i. **********/ vqBWLe2. png
Нужную строчку в 3й колонке просто выдумал. .
Это. . .
|
|
Новая последняя моя музыка в SUNO
zorxor 05.10.2026
Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor.
Это. . .
|
Программный домашний кинотеатр
russiannick 27.09.2026
Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js.
В помощники взял Яндекс-Алису.
Было создано три зала на разные интересы.
исторические и ретро
сериал Хичкок. . .
|
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого
zorxor 21.09.2026
Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
|
Мобильное приложение ColorStep
pavlinmavlin 17.09.2026
Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#.
Название изменил на ColorStep.
Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
|