Пакетное изменение текста в Word исходя из названия файла

@ZhilinskasAA · Регистрация: 15.06.2025

Студворк — интернет-сервис помощи студентам

Добрый день, Уважаемые программисты!
Есть острая проблема по массовой замене текста в документах word *.docx
В названии файла фигурирует порядковый номер (от 1 до 999), этот порядковый номер в наименовании файла находится между "точками" например: ААААААА АА ААААА АААААААА2.13. 17.05.2025г ААААА А-ААА Июнь.doc (до первой точки всегда одинаковое количество символов - 26, и перед точкой всегда идет цифра "2" -она неизменна во всех файлах, а вот после второй точки разное количество символов, и опять встречаются точки и цифры - т.к. есть дата)
В самом документе Ворда, всегда в определенном месте, есть порядковый номер, т.е. если брать пример названия файла что выше, это должен быть номер 2.13, но по факту там прописаны иные номера.
Место нахождение этого порядкового номера в документе - 10 строка, самое начало строки. В прикрепленном скриншоте порядковый номер 2.1. , соответственно его нужно заменить на 2.13.
Можно ли написать код для PowerShell или какой другой программы, чтобы указав путь, например "C:\Новая папка", все файлы внутри были обработаны, чтобы исходя из этого названия внутри документа отобразилось верный порядковый номер.
Уважаемые друзья, без вашей помощи я не справлюсь, помогите пожалуйста! в долгу не останусь!

@АЕ · 16.06.2025, 14:43

Сообщение от Eugene-LS

Критиковать готовое = легче всего, но всё же спрошу:

попробуйте без него. Я вообще в идеале хотел, чтобы без лишних вопросов все пакетом заменялось, но перли ошибки одна за одной. В такой конструкции вроде работает. Если переделаете процедуру toWord на VBS без открытия файла, то будет еще лучше...

@Eugene-LS · 16.06.2025, 14:49

Сообщение от АЕ

Если переделаете процедуру toWord на VBS без открытия файла, то будет еще лучше...

Пока времени нет, к сожалению, как появится - посмотрю чем смогу ...

@АЕ · 16.06.2025, 14:49

а про критику могабыть...

@Eugene-LS · 16.06.2025, 14:53

Сообщение от АЕ

а про критику могабыть...

Спасибо !

А вообще: Раз вы меняете тело документа, то там метод .Save перед .Quit должен быть.
Нет???

@АЕ · 16.06.2025, 14:55

Сообщение от Eugene-LS

то там метод .Save перед .Quit должен быть.
Нет???

у меня вылетало в ошибку, посему и убрал. Попробуйте....

@Eugene-LS · 16.06.2025, 16:57

Сообщение от АЕ

у меня вылетало в ошибку

Ну чудеса!

Будет время - гляну ...

Добавлено через 2 часа 0 минут

Сообщение от АЕ

у меня вылетало в ошибку

Как идея: А свойство .DisplayAlerts не помогло?

Visual Basic
1
     objWord.Application.DisplayAlerts = False 'Отмена сообщений совместимости и прочего

@АЕ · 16.06.2025, 17:03

Сообщение от Eugene-LS

не помогло?

ну я сделал работающий (хоть и не идеальный) код.
Я предлагаю вам улучшить подпрограмму-костыль, а вы набрасываете мне идей как мне снова погрузиться ...
Погрузитесь сами и предложите работающее решение. Если, конечно, есть интерес разобраться.
Тем более, что я еще в посте 5 писал, что для ворда практики маловато...

@Eugene-LS · 16.06.2025, 17:08

Сообщение от АЕ

Я предлагаю вам улучшить

Пониль!

Идеи больше не предлагаю ...

@Eugene-LS · 17.06.2025, 18:46

ZhilinskasAA, а вот вам ещё вариант.
Слепил на базе файла ув. АЕ, (посты #16 и #19) - переместил пару строк с места на место, и вроде работает ...

@АЕ · 17.06.2025, 22:17

Eugene-LS, ну я получил завес. После сноса диспетчером задач ворда останов на показанной на скрине точке.
IsWordOpen по ходу не спасла, хотя задумка не плохая. А регулярок испугались? Они четко отрабатывают.

@Eugene-LS · 17.06.2025, 23:55

Сообщение от АЕ

А регулярок испугались?

Нет - просто они на порядок (по моим замерам) дольше работают, иногда без них никак, но тут решил обойтись.
...
А можно файлик посмотреть на котором завис?

Добавлено через 1 час 32 минуты

Сообщение от АЕ

IsWordOpen по ходу не спасла

Задумано было так : Показать скрытый Word в случае некой ошибки ....

Можно более безопасно - так:

Visual Basic
1
2
3
4
5
6
7
' ...
Wrd_Err:
    IsWordOpen
    MsgBox "Error " & Err.Number & " - " & Err.Description & vbCrLf & _
           "In Sub: Wrd - Module1.", vbCritical, "Error!"
    Err.Clear
    Resume Wrd_End

@testuser2 · 18.06.2025, 01:57

Чтобы не мучаться с объектной моделью, можно делать так (примерно) достать xml-ку из zip-а, изменить, положить, но там могут быть др. сложности конечно.

@АЕ · 18.06.2025, 08:19

Сообщение от Eugene-LS

А можно файлик посмотреть на котором завис?

ваш xls. Второй из архива не проверял

@Eugene-LS · 18.06.2025, 08:26

Сообщение от АЕ

ваш xls

GM!
Я его не проверял - разработка велась на "нормальной" версии, а не 20-ти летней давности.
Этот сгенерировал на всякий случай, - вдруг у кого фсё ещё 2000-й MSO.
...
Щас проверил - Пашет!

Второй из архива не проверял

Вообще я спрашивал про *.doс

Не по теме:

TC отвалился - так что дальше просто "спортивный интерес" ...

@АЕ · 18.06.2025, 09:02

Сообщение от Eugene-LS

Вообще я спрашивал про *.doс

ну если завис, то ничего не отработало. А файл я брал от ТС + копия с другим номером в названии.

Сообщение от Eugene-LS

TC отвалился -

Видимо его устроило мое решение с лишними вопросами...

Добавлено через 2 минуты

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

элементарно хорошей стабильной связи с интернетом нет

Возможно отвалился по уважительной причине.

@Eugene-LS · 18.06.2025, 09:10

Сообщение от АЕ

А файл я брал от ТС + копия с другим номером в названии.

Поступил аналогично и расплодил (не поленился) аж три файла с разными номерами внутри и снаружи.
Работает.

Странно это всё.

Видимо климатические изменения влияют как то ...
+6°C - Обогреватель чафкая пожирает подорожавшее электричество ...

@АЕ · 18.06.2025, 10:00

Сообщение от Eugene-LS

Странно это всё

Согласен. +20, море +21, а электричество подорожает только с 1/7/25

Добавлено через 8 минут
для чистоты эксперимента проверил на работе и отработало! Штатно в обоих вариантах (и когда не было что менять и когда было) Для меня странностей меньше не стало, но ваш код рабочий.

@Eugene-LS · 18.06.2025, 10:01

Сообщение от АЕ

но ваш код рабочий

Спасибо.
Жить стало веселее.
... обогреваль нажрался и задремал (по термостату) - щас храпеть начнёт ...

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .

@АЕ ᴁ © 4088 / 2469 / 514 Регистрация: 13.12.2016 Сообщений: 8,397 Записей в блоге: 5
	16.06.2025, 14:49
	а про критику могабыть... 0

@АЕ ᴁ © 4088 / 2469 / 514 Регистрация: 13.12.2016 Сообщений: 8,397 Записей в блоге: 5
	17.06.2025, 22:17
	Eugene-LS, ну я получил завес. После сноса диспетчером задач ворда останов на показанной на скрине точке. IsWordOpen по ходу не спасла, хотя задумка не плохая. А регулярок испугались? Они четко отрабатывают. Миниатюры 0

@testuser2 1412 / 874 / 93 Регистрация: 08.02.2017 Сообщений: 3,726 Записей в блоге: 2
	18.06.2025, 01:57
	Чтобы не мучаться с объектной моделью, можно делать так (примерно) достать xml-ку из zip-а, изменить, положить, но там могут быть др. сложности конечно. 0