Нужен макрос для Word, который выполняет пакетную обработку всех документов в конкретной папке.
Цель – изменить исходный шрифт (может быть любым) на шрифт, указываемый в макросе, также, если нужно, поменять размер. Файлы могут быть как в формате doc, так и docx.
В прилагаемом примере исходный шрифт SimSun во всех файлах изменен на целевой шрифт Calibri, но это может и другой целевой шрифт, который можно выбрать в параметрах макроса, либо просто поменять в самом тексте макроса перед его запуском.

Это не мой вопрос, другого человека.
Я здесь только зарегестрирован.
Заказчик спрашивает как дорого это может стоить.
Была переписка и был исполнитель online, но куда-то подевался.

Не знаю как у других но файл по прежнему отсутствует.

Нужны испытания.
Сейчас на работе,
вечером.

Интересный вопрос,
где то место в коде  которое отвечает за кратность масштаба увеличения.
И что должно быть прописано для увеличения картинки ровно в 1,3 раза от исходного размера?
Напишите ответ, если кто знает:).

В предложенном варианте отсутствует кнопка или сообщение.
Но должно понравится.
Всавил любой графический объект и ...
Только не знаю как регулируется масштаб.
В макросе он обозначен как zoom, а дальше для меня вопрос.

попробуйте этот вариант.
автор не я.

На форуме Планета Excel была такая тема и был реальный пример воплощения.
Воспользуйтесь поиском.

Остаётся только добавить.
Если кто будет повторять в русифицированной версии:

Вариант 1
=ДАТАМЕС(A2;1)-A2
так и остаётся

Вариант 2
=DAY(EOMONTH(A2;0))
Если кто будет повторять в русифицированной версии, будет как
=ДЕНЬ(КОНМЕСЯЦА(A2;0))

Работают оба варианта:)
Не забыв при этом, придать формат результирующей ячейки.
В контекстном меню - Формат ячеек
Все форматы
ДД

Спасибо ребята.
Оперативно.

В ячейку вносим к примеру 01.01.2025 и программа понимает что это суббота и месяц январь.
Вопрос.
Осталось только добиться отображения количества дней в текущем месяце.
Очень интересует формула.

Отвечу, нет не смущает.
Мне интересны проекты и их иерархия.
Возможно при выходе на пенсию мне ой как это пригодится:).
Горячее сердце и пытливый ум, ключ к успеху.
Спасибо за вопрос Sanja.

Жду ответа от автора проекта.

Просьба к автору.
Выложить файл превышающий 300 кБ на Яндекс диск.
В качестве ознакомления.

Только вопрос и не более.

Что вы имеете в ввиду - "Большим плюсом будет возможность с вашей стороны предоставить официальные документы по выполненным работам?

Сообщение были получены, информация принята.
Заказчик не я.
Я только авторизован на сайте.
Заказчик объявил, что эту задачу будет решать позже.

Ответами, доволен.
Получилось.
Всем спасибо:).  

Как должно быть, что бы получилась "1" согласно формуле в залитых ячейках?
первая ячейка =ТДАТА
вторая ячейка форматирована ДДДД
в итоге нет результата
Просим доброго совета.

Папка расположена к примеру на рабочем столе.
В папке много файлов word.
Нужно, не открывая в ручную каждый файл, изменить шрифт во всех файлах.
После этого файлы из папки переместят а вместо них загрузят новые и так далее.



Вопрос.
В каку сумму это обойдется?

Вопрос был задан на одном из сайтов и был получен ответ.

Вопрос создан для определения наименьшей цены заказа.

Заказ делаю не я , а при условии что я авториззован на сайте Планета Excel.
Нужна ценовая политика.
Что бы не засорять форум, лучше писать в личные сообщения.

Авторизованные и имеющие право заключить договор с задающим вопрос в платной ветке,
прошу.

"Есть модель перерабатывающего производства, ..."
согласно правил форума мне не разрешено участвовать в обсуждении и реализации проекта но есть задача и нет отзыва исполнителя.
Вопрос.
Можно хотя бы ознакомится с моделью производства и если ни кто не отвечает, поучаствовать в реализации задуманного автором?
Нужно ознакомится с моделью, приложите её для ознакомления.

1. Формат ячеек, смотри рисунок.
2. =0 2/3
3. Enter

Что бы была 1 целая -
1. Формат ячеек, смотри рисунок.
2. =0 1
3. Enter

В качестве ответа.

Gling (Володя), ответ полностью соответствует заданному вопросу.
Главное, что формула понятна и ей можно будет управлять в случае изменения критерия.

Вячеслав Бутник, спасибо за предложенный вариант но использую уже в другой работе.
Всем спасибо, задача решена.

В Листе1 данные через одинаковый шаг.
В Лист2 данные копируются с другим шагом.
При протягивании формулы в низ, сохранялся шаг ссылок.

Лист1 - итоги и располагаются с постоянным шагом.
Лист2 - итоги и располагаются в каждой стоке.
Какая формула может помочь в этом вопросе.
Чуть подробней в файле.

Да.
Именно так.
Там есть одна хитрость но её сам распознал.
Sanja, спасибо, получилось.

Есть макрос:

Sub ввод()
Dim R_Last As Long
   
   Sheets("история").Activate
   ' "сдвигаем список на строку вниз
   Sheets("история").Range("A8:H8").Insert Shift:=xlDown
   ' копируем данные
   Sheets("баланс-списание").Range("A50:H50").Copy
   ' вставляем скопированные данные как значения
    Sheets("история").Range("A8:H8").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=False
   Application.CutCopyMode = False

End Sub

Управлять макросом получается, да и описание действия есть.
Вопрос.
Что нужно изменить в макросе что бы в Sheets("история") ячейка не добавлялось сдвигая предыдущие данные а продолжала копить информацию в низ.
Причина, в Лист "история" есть ещё формулы которые жёстко привязаны к определённому месту (фунция кнопки F4).
При добавлении строки эта привязка смещается при каждом добавлении на одну строку.
По этой причине, пусть информация добавляется в низ.

Не получилось nilske.
Power Query -это большая тема .У меня Excel 16. Такой и вкладки не нашёл. И вот ещё главное при изменении первоначальных цифр
в расчёте итоги в листе не изменились.
Вот такая я то беда.

Макрос на Листе2, видит что в тех позициях нули и не пропускает их на Лист2 для печати.

Лист1
А1 - там и есть фильтр.