Готовы макросы для word - Word и Excel - помощь в работе с программами

готовые макросы word

Урок 60. Макрос для таблицы

Приходилось ли вам выполнять при форматировании документа несколько раз повторять одни и те же команды? Предположим, в документе 50 таблиц. И каждую надо привести в порядок. Повторяющиеся заголовки, выравнивание назначить, да мало ли чего ещё Дальше

Источник

Программы и макросы для создания и заполнения документов Word данными из Excel, таблица из Excel в Word, обработка файлов Word, подстановка данных из Excel в Word, вставить таблицу Excel в Word

Надстройка FillDocuments для MS Excel: общие сведения

Предназначение программы: заполнение множества документов данными из Excel нажатием одной кнопки.
Для работы программы требуется таблица Excel с данными для подстановки, и папка с шаблоном (шаблонами) документов.
В качестве шаблонов можно использовать файлы Word и Excel.
На выходе получаются заполненные файлы исходного…
Надстройка Parser для Excel — простое и удобное решение для парсинга любых сайтов (интернет-магазинов, соцсетей, площадок объявлений) с выводом данных в таблицу Excel (формата XLS* или CSV), а также скачивания файлов.
Особенность программы — очень гибкая настройка постобработки полученных данных (множество текстовых функций, всевозможные фильтры, перекодировки, работа с переменными,…
Макрос предназначен для программного создания документов Word на основе шаблона
(без использования функции слияния в Word)

В прикреплённом к статье архиве находятся 2 файла:

шаблон договора в формате Microsoft Word (расширение .dot)

файл Excel с макросом

Настройки макроса задаются в коде:
Const ИмяФайлаШаблона = «шаблон.dot»
Const КоличествоОбрабатываемыхСтолбцов = 8…
Программа предназначена для автоматизации формирования договоров комиссии и купли автотранспортного средства.
В качестве исходных данных выступают:

таблица Excel с реквизитами создаваемых документов
папка с шаблонами договоров (в формате dot)

В исходной таблице Excel занесены все необходимые исходные данные для заполнения бланков договоров, а также, при помощи пользовательских формул (UDF),…
База данных «Преподаватели» предназначена для автоматизации работы администрации учебных заведений.

Программа обеспечивает выполнение всех необходимых операций по приему документов, поиску и анализу информации, составлению отчетов.

Эта база данных представляюет собой урезанную и немного изменённую версию программы АИСС СПК.

Программа обеспечивает:

Хранение полной…
Программа АИСС «СПК» предназначена для автоматизации работы приемной комиссии колледжей и техникумов.

АИСС обеспечивает выполнение всех необходимых операций по приему документов, поиску и анализу информации, составлению отчетов.

Назначением программы является автоматизация труда работника приёмной комиссии учебного заведения.

Программа обеспечивает:

Хранение полной…
Function PasteOLEobject(ByVal filename$, ByRef TopLeftCell As Range, _
Optional ByVal Width%, Optional ByVal Height%) As ShapeRange
‘ вставляет на лист объект OLE (из файла filename$)
‘ и размещает его в нужном месте, совмещая левый верхний угол с ячейкой TopLeftCell
‘ если указаны размеры Width% или Height% — они задаются вствляемому объекту
On Error…
Программа предназначена для быстрого поиска перевода выделенного в документе Word слова (или фразы) с использованием специализированного медицинского словаря.
Для поиска переводов используется словарь, расположенный на сайте заказчика.
Программа подключается к словарю через веб-интерфейс сайта, авторизуется (логин и пароль хранятся в отдельном текстовом файле), после чего производит поиск…
Программа предназначена для автоматизации рабочего места сотрудника, отвечающего за регистрацию, прием на работу, и увольнение иностранных граждан.
В качестве исходных данных используется таблица изображенная на скриншоте.
В этой таблице содержится нужная информация, необходимая для заполнения шаблонов документов.
Программа заполняет следующие документы:

Доверенность (doc)

Заявление на…
Простейший текстовый редактор, который позволяет загружать документы Word из выбранной папки, и редактировать текст с возможностью последующего сохранения.
(сохраняется только текст, форматирование очищается)
Функция предназначена для вывода информации (статистики) по всем листам документа Word.

В качестве параметра, функция получает ссылку на открытый документ Word.
Результат работы функции представлен на скриншоте.
Код функции WordDocumentProperties:
Function DocumentProperties(ByRef doc As Object) As Variant
On Error Resume Next: Err.Clear
‘ формирует статистику по документу…

Источник

Всем привет! Задали нам с товарищем написать макрос, который проверяет текст на критерии преподавателя! Вот они: 1) шрифт Times New Roman; 2) размер шрифта 14; 3) меж строчный интервал одинарный; 4)Наличие Оглавления, Заключения, Списка литературы; 5)Размер текста не меньше 6 станиц;
7) Поиск работ преподавателя(в данном макросе подсчитывается кол-во упоминаний в док-те фамилии, 1 раз в тит. листе, ост. следоват. его работы)…..

Просидев на этом форуме не мало часов, т.к VBA не знаю (учу паскаль), и получив помощь от добрых людей, за что им большое спасибо, я получил пол макроса! Остальное доделал сам. Вот собственно текст макроса:

Visual Basic

Sub Marco_from_IVT_42_10()
'Макрос выполнен группой ИВТ 42-10
'ЧГУ им. И.Н.Ульянова 2011г.
'Ответственные за макрос: Захаров Н., Частухин В.
'
 
Dim правильный_шрифт As Boolean
Dim правильный_размер As Boolean
Dim есть_оглавление As Boolean
Dim есть_заключение As Boolean
Dim есть_список_литературы As Boolean
Dim Счётчик As Long
 
 
'проверка шрифта
If ActiveDocument.Range.Font.Name = "Times New Roman" Then правильный_шрифт = True
 
'проверка размера шрифта
If Selection.Font.Size = "14" Then правильный_размер = True
 
 
'поиск оглавления
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "Оглавление"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
 
If Selection.Find.Found Then есть_оглавление = True
 
'поиск заключения
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "Заключение"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
 
If Selection.Find.Found Then есть_заключение = True
 
'поиск списка литературы
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "Список литературы"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
 
If Selection.Find.Found Then есть_список_литературы = True
 
'отчёт
If Not правильный_шрифт Then MsgBox "шрифт документа не соответствует Times New Roman"
If Not правильный_размер Then MsgBox "размер шрифта не соответствует 14"
If Not есть_оглавление Then MsgBox "В тексте нет заголовка 'оглавление'"
If Not есть_заключение Then MsgBox "В тексте нет заголовка 'Заключение'"
If Not есть_список_литературы Then MsgBox "В тексте нет списка литературы"
If ActiveWindow.Panes(1).Pages.Count < 6 Then MsgBox "В тексте меньше 6 страниц"
If Not ActiveDocument.Range.ParagraphFormat.LineSpacingRule = WdLineSpacing.wdLineSpaceSingle Then
MsgBox "Текст не имеет одинарного интервала"
End If
 
'Поиск работ преподавателя
With ActiveDocument.Range.Find
    .Text = "Галкин"
    Do While .Execute = True
        Счётчик = Счётчик + 1
    Loop
End With
MsgBox (Счётчик & " раз(а) встречается фамилия Галкин")
 
 
End Sub

Помучившийся с этим макросом я решил, что быть может он кому нибудь поможет!
Спасибо за внимание!

Источник

На этой странице вы можете загрузить на свой компьютер и установить различные шаблоны или полезные программы для редактора Word.

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

Галерея для упрощённой вставки изображений из папки

Подробная информация изложена в заметке Александра Витера Вставка изображений из указанной папки для Word 2007.

«Методичка» — пакет макросов для форматирования документов Word

Пакет «Методичка» служит для преобразования неформатированного текста в документ MS Word, который удобно редактировать и использовать.

Пакет можно использовать для форматирования сканированных книг и документов, оформления курсовых и дипломов, правки «кривого» текста полученного из Интернета, вырезанного из книги в формате pdf и т. д.

Пакет распространяется за вознаграждение (цена — любая приемлемая для пользователя сумма). За информацией обращаться на страницу автора пакета.

Макрос пакетной замены от Александра Витера

Подробности в заметке Макрос пакетной замены от Александра Витера.

Шаблон «Массовое форматирование документов»

Шаблон «Массовое форматирование документов» позволяет произвести форматирование текста во многих документах одновременно (без открытия этих документов). Предназначен для редактора Word 2003.

Подробности читайте в заметке Массовое форматирование документов.

Шаблон «СЦЕНАРИЙ» (для автоматизации написания киносценариев)

Шаблон «Сценарий» предназначен для автоматизации написания киносценариев на основе предустановленного формата и заданных стилей. Работает только в редакторе Microsoft Word 2007.

Шаблон «Быстрое выделение»

Шаблон «QuickSelect» предназначен для быстрого доступа к командам выделения объектов (слов, предложений, строк, параграфов, экрана {видимой части документа}, разделов, страниц, всего документа).

Читайте подробности в заметке Шаблон “Быстрое выделение”.

Шаблон инструкции по оформлению текстовой документации

Для связи с автором Инструкции сообщаю его реквизиты:

Куличев Андрей Радиевич

kar@elesy.ru

icq 16330502

Шаблон для работы с закладками

Шаблон «BMTools» предназначен для быстрого доступа к закладкам текущего документа и содержит инструменты работы с закладками.

Подробности читайте в заметке Шаблон для работы с закладками и в файле Инструкция.doc в архиве.

Вы можете скачать и установить один из двух вариантов шаблона.

Первый вариант (список закладок отображается в меню после команд):

Второй вариант (список закладок отображается в самом верху меню):

Шаблон инструментов работы с последними файлами

Шаблон «RFTools» предназначен для отображения списка недавно открываемых файлов, вывода диалогового окна «Последние файлы», очистки списка последних файлов (очищается список, файлы не удаляются).

Подробнее можно прочитать в заметке Список недавно открываемых файлов.

Источник

285

В статье описаны скрипты WSH (Windows Script Host), способы их запуска, состав и функциональные возможности

169

Windows Script Host предоставляет пользователю такую полезность, как ws-файл, это файлы с расширением .

113

Всем привет, с вами автор блога scriptcoding.ru. Данная публикация рассматривает сохранение документа

126

Доброго времени суток всем читателям блога scriptcoding.ru. В данной статье, я опишу «

136

Приветствую всех читателей блога scriptcoding.ru. В этой статье мы рассмотрим, как сохранить документ

Приветствую всех читателей блога scriptcoding.ru. Цель данной публикации написать программный код для

Доброго времени суток всем подписчикам и читателям блога scriptcoding.ru. Продолжая тему «

141

Всем привет, с вами автор блога scriptcoding.ru. В этой статье мы рассмотрим, как можно программным путем

Всем привет, с вами автор блога scriptcoding.ru. В этой статье мы рассмотрим, как в Word создать список

И так, праздники прошли, можно приниматься за работу… В этой статье мы рассмотрим, как можно сохранить

Источник