Создания макросов в таблицах word

Приходилось ли вам выполнять при форматировании документа несколько раз повторять одни и те же команды? Предположим, в документе 50 таблиц. И каждую надо привести в порядок. Повторяющиеся заголовки, выравнивание назначить, да мало ли чего ещё сделать. И вот раз за разом повторяются одни те же команды. Так что знакомимся с понятием МАКРОС В ТАБЛИЦЕ.

В офисных программах есть замечательная возможность: объединить несколько команд в одну макрокоманду. Макрокоманда – это последовательность команд, которые будут работать автоматически при запуске макроса.

Вот определение, которое я взяла с любимого ресурса https://dic.academic.ru/dic.nsf/ruwiki/15081:

В «офисных» продуктах (OpenOffice.org, Microsoft Office и др.), в графических программах (например, CorelDRAW) при обработке макроса автоматически выполняется заданная для каждого макроса последовательность действий — нажатия на клавиши, выбор пунктов меню и т. д.

Я приложила к уроку документ с несколькими таблицами (скачать файл тут). Я удалила текст документа (всё-таки авторское право и всё такое…):

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

По окончании урока вы сможете:

  1. Составить алгоритм форматирования таблицы
  2. Настроить ленту «Разработчик»
  3. Записать макрос форматирования таблицы
  4. Проверить макрос в действии
  5. Добавить кнопку «Макрос» на панель быстрого доступа

1. Алгоритм форматирования
таблицы

Прежде, чем приступить к созданию макроса, следует тщательно продумать, какие команды нам понадобятся. Начнём с верха таблицы

  1. Заголовок, повторяющийся при переходе таблицы на следующую страницу
  2. Выравнивание содержимого ячеек заголовков по центру и по середине
  3. Заливка строки заголовка цветом
  4. Текст заголовка таблицы полужирного начертания красного цвета
  5. Поля ячеек – 0,05
  6. Видимые границы для всей таблицы красного цвета
  7. Автоподбор по ширине окна (вдруг таблица меньше ширины печатного поля)

Почему такая последовательность? При написании макрокоманды есть одна особенность:

Понять и запомнить! Ни в коем случае нельзя щелкать ЛМ по области
документа! Работать только с лентами!

Так вот, после выделения заголовка можно выделить всю таблицу командой с ленты, а наоборот – нельзя!

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

Для того, чтобы записать макрос, необходимо найти эту команду. Команда «Запись макроса» находится на ленте «Разработчик», которая в настоящий момент не видна.

2. Настройка ленты
«Разработчик»

Шаг 1. Выходим в режим настраивания ленты (ПМ в любом месте любой ленты → команда Настроить ленту из контекстного меню):

настройка ленты

Шаг 1. Отметим галочкой ленту «Разработчик»[1]

настройка ленты

ОК!

Вообще-то команда «Запись
макроса» есть на ленте «Вид»:

лента Вид

Но на ленте «Разработчик» есть много других команд, которыми я активно пользуюсь, например, создание форм и полей, поэтому эта лента присутствует у меня в обязательном порядке.

3. Макрос для таблицы. Запись макроса для форматирования таблицы

Шаг 1. Выделяем заголовок таблицы (щелкаем ЛМ
на полосе выделения напротив заголовка таблицы):

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

Шаг 2. Запускаем запись макроса (лента
Разработчик → группа команд Код → команда Запись макроса):

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

  1. Можно ввести имя макроса, но имейте в виду, что пробелы недопустимы, то
    есть имя макроса будет выглядеть так – «Форматирование таблицы».

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

  1. Назначить выполнение макроса от нажатия единственной кнопке. Но кнопка должна быть уникальная (никогда не пользуюсь).
  2. Ввести описание макроса. Здесь никаких ограничений. Конечно, если макрос единственный, то можно и обойтись без описания. Я часто использую макросы, поэтому без описания просто не обойтись.
  3. Назначить выполнение макроса от нажатия сочетания функциональной клавиши плюс любой клавиши. Но при этом недопустимо использовать устойчивые системные сочетания, например, Ctrl+X, так как это сочетание зарезервировано для команды «Вырезать в буфер обмена».
  4. Из этого выпадающего меню выбираем доступность макроса для определенного документа. Если выбираем Normal.dotm, то наш макрос будет доступен для всех документов, созданных на основе шаблона Normal.dotm. Если мы создали документ на основе другого пользовательского шаблона, то в списке появится имя этого пользовательского шаблона, и тогда все документы на основе этого шаблона будут иметь внедрённый макрос. Но это действительно только для шаблонов, которые имеются на нашем компьютере.

Шаг 3. Назначаем сочетание клавиш (например,
Ctrl+1):

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

Нажимаем клавиши «Назначить» и «Закрыть» и знакомимся с новым видом курсора:

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

Шаг 4. Назначаем режим «Повторить строки
заголовков» (лента Макет → группа команд Данные → команда Повторить строки
заголовков):

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

Шаг 5. Назначаем выравнивание содержимого
ячеек строки заголовков по центру (лента Макет → группа команд Выравнивание → команда
Выровнять по центру):

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

Шаг 6. Назначаем заливку строки заголовка
(лента Конструктор → группа команд Стили таблиц → команда Заливка → выбор цвета
заливки из палитры):

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

Шаг 7. Устанавливаем полужирное начертание шрифта
заголовка и назначаем ему красный цвет (лента Главная → группа команд Шрифт → кнопка
«Ж» и кнопка Цвет текста → выбор цвета из палитры):

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

Шаг 8. Выделяем всю таблицу лента Макет → группа
команд Таблица → команда Выделить → команда Выделить таблицу из выпадающего
меню):

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

Шаг 9. Назначаем границы таблицы (лента
Конструктор → группа команд Обрамление → команда Цвет пера → выбор цвета
границы из палитры → команда Граница → команда Все границы из выпадающего
меню):

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

Шаг 10. Назначаем поля ячеек (лента Макет → группа команд Выравнивание → команда Поля ячейки → диалоговое окно Параметры таблицы[2] → Поля ячеек пользовательские):

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

Шаг 11. Устанавливаем Автоподбор таблицы по ширине окна (лента Макет → группа команд Размер ячейки → команда Автоподбор по ширине окна[3] из выпадающего меню):

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

Шаг 12. Останавливаем запись макроса (лента
Разработчик → группа команд Код → команда Остановить запись):

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

Команда «Остановить запись» дублируется скромным квадратиком на строке состояния:

Макросы в таблице

Всё! Макрос для таблицы готов!

4. Проверка макроса в действии

Шаг 1. Выделяем заголовок любой таблицы:

Макросы в таблице

Шаг 2. Нажимаем сочетание клавиш Ctrl+1 и любуемся результатом:

Макросы в таблице

А теперь посмотрим,
как будет работать макрос на таблице со сложным заголовком. В учебном файле это
Таблица 4.

Шаг 1. Выделяем сложный заголовок, то есть
заголовок, состоящий из двух строчек и объединённых ячеек:

Макросы в таблице

Шаг 2. Нажимаем сочетание клавиш Ctrl+1 и любуемся результатом:

Макросы в таблице

И под занавес.

5. Кнопка запуска макроса «Форматирование_таблицы» на Панели быстрого доступа

Шаг 1. Вызываем диалоговое окно «Параметры Word» (Панель быстрого доступа → команда Другие команды из выпадающего меню):

Панель быстрого доступа

Как настраивать Панель быстрого доступа я рассказывала в Уроке 18 и Уроке 19.

Шаг 2. Выбираем список «Макрос» (кнопка выпадающего
меню → список Макрос):

Панель быстрого доступа

Шаг 3. Добавляем макрос для таблицы на Панель быстрого доступа (пока макрос один, но у нас всё впереди):

Панель быстрого доступа

ОК! А вот результат:

настройка ленты

Макрос для таблицы будет запускаться при нажатии кнопки на Панели быстрого доступа.

Теперь вы сможете:

  1. Составить алгоритм форматирования таблицы
  2. Настроить ленту «Разработчик»
  3. Записать макрос форматирования таблицы
  4. Проверить макрос в действии
  5. Добавить кнопку «Макрос» на панель быстрого доступа

[1]
В контекстном меню – «Настройка ленты», а в окне «Параметры Word» – «Вкладка»

[2] Интересно, почему команда «Поля ячейки», а диалоговое окно называется «Параметры таблицы»? Загадка природы, небрежность переводчиков или шутка разработчиков?

[3]
Вообще-то команда имеет смысл «Автоподбор по ширине печатного поля», но не
будем придираться.

Создание таблиц в документе Word из кода VBA Excel. Метод Tables.Add, его синтаксис и параметры. Объекты Table, Column, Row, Cell. Границы таблиц и стили.

Работа с Word из кода VBA Excel
Часть 4. Создание таблиц в документе Word
[Часть 1] [Часть 2] [Часть 3] [Часть 4] [Часть 5] [Часть 6]

Таблицы в VBA Word принадлежат коллекции Tables, которая предусмотрена для объектов Document, Selection и Range. Новая таблица создается с помощью метода Tables.Add.

Синтаксис метода Tables.Add

Expression.Add (Range, Rows, Columns, DefaultTableBehavior, AutoFitBehavior)

Expression – выражение, возвращающее коллекцию Tables.

Параметры метода Tables.Add

  • Range – диапазон, в котором будет создана таблица (обязательный параметр).
  • Rows – количество строк в создаваемой таблице (обязательный параметр).
  • Columns – количество столбцов в создаваемой таблице (обязательный параметр).
  • DefaultTableBehavior – включает и отключает автоподбор ширины ячеек в соответствии с их содержимым (необязательный параметр).
  • AutoFitBehavior – определяет правила автоподбора размера таблицы в документе Word (необязательный параметр).

Создание таблицы в документе

Создание таблицы из 3 строк и 4 столбцов в документе myDocument без содержимого и присвоение ссылки на нее переменной myTable:

With myDocument

Set myTable = .Tables.Add(.Range(Start:=0, End:=0), 3, 4)

End With

Создание таблицы из 5 строк и 4 столбцов в документе Word с содержимым:

With myDocument

myInt = .Range.Characters.Count 1

Set myTable = .Tables.Add(.Range(Start:=myInt, End:=myInt), 5, 4)

End With

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

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

При создании, каждой новой таблице в документе присваивается индекс, по которому к ней можно обращаться:

myDocument.Tables(индекс)

Нумерация индексов начинается с единицы.

Отображение границ таблицы

Новая таблица в документе Word из кода VBA Excel создается без границ. Отобразить их можно несколькими способами:

Вариант 1
Присвоение таблице стиля, отображающего все границы:

myTable.Style = «Сетка таблицы»

Вариант 2
Отображение внешних и внутренних границ в таблице:

With myTable

.Borders.OutsideLineStyle = wdLineStyleSingle

.Borders.InsideLineStyle = wdLineStyleSingle

End With

Вариант 3
Отображение всех границ в таблице по отдельности:

With myTable

.Borders(wdBorderHorizontal) = True

.Borders(wdBorderVertical) = True

.Borders(wdBorderTop) = True

.Borders(wdBorderLeft) = True

.Borders(wdBorderRight) = True

.Borders(wdBorderBottom) = True

End With

Присвоение таблицам стилей

Вариант 1

myTable.Style = «Таблица простая 5»

Чтобы узнать название нужного стиля, в списке стилей конструктора таблиц наведите на него указатель мыши. Название отобразится в подсказке. Кроме того, можно записать макрос с присвоением таблице стиля и взять название из него.

Вариант 2

myTable.AutoFormat wdTableFormatClassic1

Выбирайте нужную константу с помощью листа подсказок свойств и методов – Auto List Members.

Обращение к ячейкам таблицы

Обращение к ячейкам второй таблицы myTable2 в документе myDocument по индексам строк и столбцов:

myTable2.Cell(nRow, nColumn)

myDocument.Tables(2).Cell(nRow, nColumn)

  • nRow – номер строки;
  • nColumn – номер столбца.

Обращение к ячейкам таблицы myTable в документе Word с помощью свойства Cell объектов Row и Column и запись в них текста:

myTable.Rows(2).Cells(2).Range = _

«Содержимое ячейки во 2 строке 2 столбца»

myTable.Columns(3).Cells(1).Range = _

«Содержимое ячейки в 1 строке 3 столбца»

В таблице myTable должно быть как минимум 2 строки и 3 столбца.

Примеры создания таблиц Word

Пример 1
Создание таблицы в новом документе Word со сплошными наружными границами и пунктирными внутри:

Sub Primer1()

Dim myWord As New Word.Application, _

myDocument As Word.Document, myTable As Word.Table

  Set myDocument = myWord.Documents.Add

  myWord.Visible = True

With myDocument

  Set myTable = .Tables.Add(.Range(0, 0), 5, 4)

End With

With myTable

  .Borders.OutsideLineStyle = wdLineStyleSingle

  .Borders.InsideLineStyle = wdLineStyleDot

End With

End Sub

В выражении myDocument.Range(Start:=0, End:=0) ключевые слова Start и End можно не указывать – myDocument.Range(0, 0).

Пример 2
Создание таблицы под ранее вставленным заголовком, заполнение ячеек таблицы и применение автосуммы:

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

Sub Primer2()

On Error GoTo Instr

Dim myWord As New Word.Application, _

myDocument As Word.Document, _

myTable As Word.Table, myInt As Integer

  Set myDocument = myWord.Documents.Add

  myWord.Visible = True

With myDocument

‘Вставляем заголовок таблицы

  .Range.InsertAfter «Продажи фруктов в 2019 году» & vbCr

  myInt = .Range.Characters.Count 1

‘Присваиваем заголовку стиль

  .Range(0, myInt).Style = «Заголовок 1»

‘Создаем таблицу

  Set myTable = .Tables.Add(.Range(myInt, myInt), 4, 4)

End With

With myTable

‘Отображаем сетку таблицы

  .Borders.OutsideLineStyle = wdLineStyleSingle

  .Borders.InsideLineStyle = wdLineStyleSingle

‘Форматируем первую и четвертую строки

  .Rows(1).Range.Bold = True

  .Rows(4).Range.Bold = True

‘Заполняем первый столбец

  .Columns(1).Cells(1).Range = «Наименование»

  .Columns(1).Cells(2).Range = «1 квартал»

  .Columns(1).Cells(3).Range = «2 квартал»

  .Columns(1).Cells(4).Range = «Итого»

‘Заполняем второй столбец

  .Columns(2).Cells(1).Range = «Бананы»

  .Columns(2).Cells(2).Range = «550»

  .Columns(2).Cells(3).Range = «490»

  .Columns(2).Cells(4).AutoSum

‘Заполняем третий столбец

  .Columns(3).Cells(1).Range = «Лимоны»

  .Columns(3).Cells(2).Range = «280»

  .Columns(3).Cells(3).Range = «310»

  .Columns(3).Cells(4).AutoSum

‘Заполняем четвертый столбец

  .Columns(4).Cells(1).Range = «Яблоки»

  .Columns(4).Cells(2).Range = «630»

  .Columns(4).Cells(3).Range = «620»

  .Columns(4).Cells(4).AutoSum

End With

‘Освобождаем переменные

Set myDocument = Nothing

Set myWord = Nothing

‘Завершаем процедуру

Exit Sub

‘Обработка ошибок

Instr:

If Err.Description <> «» Then

  MsgBox «Произошла ошибка: « & Err.Description

End If

If Not myWord Is Nothing Then

  myWord.Quit

  Set myDocument = Nothing

  Set myWord = Nothing

End If

End Sub

Метод AutoSum суммирует значения в ячейках одного столбца над ячейкой с суммой. При использовании его для сложения значений ячеек в одной строке, результат может быть непредсказуемым.

Чтобы просуммировать значения в строке слева от ячейки с суммой, используйте метод Formula объекта Cell:

myTable.Cell(2, 4).Formula («=SUM(LEFT)»)

Другие значения метода Formula, применяемые для суммирования значений ячеек:

  • «=SUM(ABOVE)» – сумма значений над ячейкой (аналог метода AutoSum);
  • «=SUM(BELOW)» – сумма значений под ячейкой;
  • «=SUM(RIGHT)» – сумма значений справа от ячейки.


Логотип Microsoft Word на синем фоне

Вы знаете, насколько трудоемкими могут быть повторяющиеся задачи. Если вы обнаружите, что повторно создаете одну и ту же таблицу в своих документах Word, почему бы не автоматизировать эту работу? Используя макрос, вы можете создать таблицу один раз и легко использовать ее повторно.

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

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

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

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

Запись макроса для пользовательской таблицы

Чтобы создать макрос, убедитесь, что макросы включены в Microsoft Office. Вы можете начать запись макроса, нажав кнопку «Запись макроса» в строке состояния в нижней части Word или щелкнув «Макросы» > «Запись макроса» на ленте на вкладке «Вид».

Нажмите или выберите «Запись макроса».

Когда появится окно «Запись макроса», заполните детали:

  • Имя макроса: Дайте вашему макросу имя, которое вы узнаете (без пробелов). Мы будем использовать CustomTable.
  • Назначить макрос: выберите, хотите ли вы назначить его кнопке или сочетанию клавиш. Вы также можете получить доступ к своим макросам и запустить их на вкладке «Вид», нажав «Макросы» > «Просмотреть макросы».
  • Сохранить макрос в: по умолчанию макросы хранятся во всех документах, что позволяет повторно использовать их во всех документах Word. Но вы можете выбрать текущий документ из раскрывающегося списка, если хотите.
  • Описание: При желании добавьте описание.

Нажмите «ОК», когда закончите и будете готовы создать таблицу.

Заполните детали для макроса

Имейте в виду, что вы уже начали запись, поэтому вам нужно настроить таблицу, прежде чем делать что-либо еще в Word. При необходимости вы можете приостановить запись, перейдя на вкладку «Вид» и нажав «Приостановить запись» в раскрывающемся списке «Макросы».

Выберите «Приостановить запись».

Создать таблицу

Теперь вы можете создать свою таблицу, как обычно, сначала перейдя на вкладку «Вставка». Щелкните стрелку раскрывающегося списка «Таблица» и либо перетащите, чтобы выбрать количество столбцов и строк, либо выберите «Вставить таблицу», введите номера столбцов и строк и нажмите «ОК».

Вставить таблицу в Word

При желании настроить таблицу

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

В качестве примера мы вставили таблицу четыре на четыре со стилем таблицы с полосами и заголовками столбцов.

Настраиваемая таблица в Word

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

Остановить запись макроса

Когда вы закончите создание таблицы, нажмите кнопку «Остановить запись» в строке состояния или перейдите на вкладку «Вид» и нажмите «Остановить запись» в раскрывающемся списке «Макросы».

Нажмите или выберите «Остановить запись».

Запустите макрос, чтобы вставить таблицу

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

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

Выберите «Просмотреть макросы».

Выберите свой макрос в списке и нажмите «Выполнить».

Выберите макрос и нажмите «Выполнить».

Затем ваша таблица должна появиться в вашем документе в том месте, которое вы выбрали.

Таблица вставлена ​​из макроса

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

В Word довольно легко автоматизировать вставку однотипных таблиц. Я покажу, как быстро создать макрос, который добавляет таблицу заданного размера с заголовками столбцов. 

Например, я вставляю в документ Word таблицу в два столбца «надпись-перевод надписи» щелчком мыши, что очень экономит время!

Если вы тоже хотите быстро добавлять таблицы, создайте макрос! Это совсем не сложно.

Написание кода макроса упрощает функция «запись макроса». Она создает макрос для действий, которые вы выполняете в программе во время записи макроса. Автоматически записанный макрос затем можно изменить под конкретную задачу или использовать без изменений.

1. Запись макроса

1. Включите запись макроса (См. Запись и выполнение макроса), напечатайте текст «Рисунок на странице 1» и вставьте таблицу 2 на 2


Остается напечатать заголовки для столбцов таблицы «Надпись» и «Перевод» и остановить запись макроса.


2 Откройте редактор Visual Basic. Теперь  у нас есть вот такой макрос:

Ципихович Эндрю

1508 / 478 / 56

Регистрация: 10.04.2009

Сообщений: 8,008

1

13.02.2012, 19:03. Показов 17352. Ответов 4

Метки нет (Все метки)


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

Здравствуйте, как сделать??
ответ очевидный

Visual Basic
1
2
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:=1
    ActiveDocument.Tables(1).Columns(1).PreferredWidth = CentimetersToPoints(21.2)

но это не, получается как в приложенном файле таблица № 1, как сделать как таблицу № 2 в этом же файле? и сразу как если разбивать строку на ячейки указать нужную мне их ширину?, спасибо

а вот и файл

Вложения

Тип файла: doc 21,2.doc (24.5 Кб, 163 просмотров)



0



Alex19

10 / 10 / 0

Регистрация: 27.07.2011

Сообщений: 38

14.02.2012, 11:49

2

Кусок кода аксесс, создающий таблицу в документе word, он должен быть выполним и в самом word, может быть с некоторымы отличиями.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Option Compare Database
Option Explicit
 
Dim app As Word.Application
 
' здесь было объявление рекордсета  rsr
 With app
               With .Selection
               .Goto What:=wdGoToBookmark, Name:="Таблица"
               .Select
             
     
            .Documents(1).Tables.Add Range:=.Selection.Range, NumRows:=i + 1, NumColumns:= _
            5, DefaultTableBehavior:=wdWord9TableBehavior ', AutoFitBehavior:= _
 
              
              ' обязательно надо ставить app.CentimetersToPoints, иначе будут глюки СТРАШНЫЕ!!!!
            app.Documents(1).Tables(1).Columns(1).PreferredWidth = app.CentimetersToPoints(1.3)
            app.Documents(1).Tables(1).Columns(2).PreferredWidth = app.CentimetersToPoints(8)
            app.Documents(1).Tables(1).Columns(3).PreferredWidth = app.CentimetersToPoints(2)
            app.Documents(1).Tables(1).Columns(4).PreferredWidth = app.CentimetersToPoints(3)
            app.Documents(1).Tables(1).Columns(5).PreferredWidth = app.CentimetersToPoints(3)
           
            'Шапка
         
        .Documents(1).Tables(1).Cell(1, 1).Range.Font.Size = 8
        .Documents(1).Tables(1).Cell(1, 1).Range.Text = "№ п/п"
        .Documents(1).Tables(1).Cell(1, 2).Range.Text = "Наименование"
        .Documents(1).Tables(1).Cell(1, 3).Range.Text = "Кол-во"
        .Documents(1).Tables(1).Cell(1, 4).Range.Text = "Цена"
        .Documents(1).Tables(1).Cell(1, 5).Range.Text = "Сумма"
            
            
         For i = 2 To i + 1
        .Documents(1).Tables(1).Cell(i, 1).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
        .Documents(1).Tables(1).Cell(i, 1).Range.Text = i - 1
        .Documents(1).Tables(1).Cell(i, 2).Range.Text = rsr(2)
        .Documents(1).Tables(1).Cell(i, 3).Range.ParagraphFormat.Alignment = wdAlignParagraphRight
        .Documents(1).Tables(1).Cell(i, 3).Range.Text = rsr(3)
        .Documents(1).Tables(1).Cell(i, 4).Range.ParagraphFormat.Alignment = wdAlignParagraphRight
        .Documents(1).Tables(1).Cell(i, 4).Range.Text = Format$(rsr(4), "### ###.00")
        .Documents(1).Tables(1).Cell(i, 5).Range.ParagraphFormat.Alignment = wdAlignParagraphRight
        .Documents(1).Tables(1).Cell(i, 5).Range.Text = Format$(rsr(5), "### ###.00")
        rsr.MoveNext
        Next
        
      End With



0



1508 / 478 / 56

Регистрация: 10.04.2009

Сообщений: 8,008

14.02.2012, 20:57

 [ТС]

3

увы, не то

Цитата
Сообщение от Ципихович Эндрю
Посмотреть сообщение

как сделать как таблицу № 2 в приложенном файле?



0



1508 / 478 / 56

Регистрация: 10.04.2009

Сообщений: 8,008

19.02.2012, 15:00

 [ТС]

4

сорри, отсутствовал
есть приложенный файл
в нём есть таблица №2, правдв она с одной строки, но всё же таблица
делал её вручную, как программно создать такую же???



0



Busine2012

1300 / 402 / 22

Регистрация: 21.10.2011

Сообщений: 1,285

20.02.2012, 18:40

5

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Procedure1()
    Dim oTable As Word.Table
    Set oTable = ActiveDocument.Tables.Add(Range:=Selection.Range, _
        NumRows:=1, NumColumns:=1)
    With oTable
        .Rows.LeftIndent = CentimetersToPoints(-2.89)
        .PreferredWidth = CentimetersToPoints(21.2)
        With .Borders
            .OutsideLineStyle = wdLineStyleSingle
            .OutsideLineWidth = wdLineWidth050pt
            .OutsideColor = wdColorPink
       End With
    End With
End Sub



1



Что такое макрос в ворде и как им пользоваться?

Приветствую на Fast-Wolker.ru!! В сегодняшнем выпуске продолжим знакомство с созданием макросов уже в приложении Microsoft Office Word. Все знакомы с ним; многим приходится набирать документы в этой программе. Документы чаще всего имеют одну и ту же структуру — мы берем шаблон правим его так как нам надо в одних и тех же местах — меняем даты, имена, форматируем текст.

То есть мы каждый раз делаем одни и те же операции с текстом, и чтобы их не делать каждый раз — можно заставить компьютер совершать их автоматически. Для этого в МS Word можно применять макрокоманды (или макросы) которые вы самостоятельно записываете в виде программы на языке VBA, который встроен в Word.

Что такое включенные макросы в Ворд?

А сейчас разберемся подробно, что за «макросы», как их включать. Начнем изучение на примере Office Word 2007, так как для многих он по прежнему остается самым привычным пакетом. Включать макросы нужно через меню «Файл» -«Параметры Word».

Дело в том, что настройки макросов в программе по умолчанию выключены, либо заданы такие настройки безопасности, что работать с полноценно с макрокомандами Вы не сможете. Когда Вы создаете макросы, Вы по сути становитесь программистом. Можно не только самому их писать, но и находить уже готовые. Среда VBA позволяет работать не только в пределах MS OFFICE. Можно создавать полноценные программы, которые получают доступ системным файлам на компьютере, можно нанести вред. Этим пользуются злоумышленники.

Включаем первую настройку на ленте. Она сделает видимой вкладку «Разработчик» и позволит работать с макрокомандами и запускать редактор VBA:

Следующая настройка отвечает за безопасность. Здесь же, переходим в «Центр управления безопасностью»..

…»Парамеры центра» отвечает за запуск наших будущих программ. Вы можете настроить так как нужно вам. Настройка «Доверять доступ к объектной модели VBA» позволит пользоваться уже готовыми проектами VBA, например скачанными из Интернет.

Сторонние макрокоманды и проекты VBA перед запуском всегда проверяйте на вирусы!

Стабильный MS Office 2007 морально устарел и поддержка его прекращена. Нужно уметь включать режим разработчика и в поздних версиях. Они более функциональны и для серьезной работы лучше использовать их. В Word 2016 включаем вкладку «Разработчик». Для этого так же в меню «Файл» переходим в «Параметры» и затем «Настройки Ленты»:

Не забываем сделать настройки безопасности так как делали до этого. Теперь, когда все настройки сделаны можно работать далее.

Что такое макросы в Ворде и как с ними работать?

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

Но Вы получаете возможность изучать язык, если вас это дело увлечет. Создание макросов — это введение в программирование. VBA позволяет создавать для себя мощные инструменты при работе с текстовыми и табличными документами для решения многих задач в привычном виде . Тем, кто после прочтения статьи заинтересуется и захочет начать изучать язык VBA самостоятельно в помощь книга.

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

Чтобы понравившийся документ после распечатывания стал полноценной привычной брошюрой — нужен макрос. А точнее написанный в VBA программный код, он вам и позволит распечатать ваш документ в виде брошюры, в которой будет правильное расположение текста и нумерация страниц. Эту программу для ознакомления качаем тут. Вам останется распечатать и сшить брошюру и вот у вас книга готова 🙂

Но чаще всего мы используем макросы на работе при составлении документов. Нужно форматировать текст, менять его размер, менять даты, имена на другие. Это ответственно и занимает время. И здесь наши знания могут очень пригодится. Для начала покажу демонстрационный пример — как работает макрос. У нас есть шаблон договора, который нужно подготовить для заполнения. Задача: открыть документ, убрать ненужные нам элементы из текста автоматически:

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

Указываем имя нашего макроса (без пробелов), доступ делаю из шаблона Normal.doth. Такой выбор позволит запускать выполнение нашей макрокоманды из любого документа Word. Назначать макрос можно кнопке на панели инструментов или вызвать нажатием сочетания определенный клавиш, но мы этого делать пока не будем. Просто нажмем на «OK» и начнется запись наших действий. Предлагаю посмотреть на видео, что получилось, это будет нагляднее.

Мы сделали самую простую операцию — замену текста во всем документе. Но, поизучав язык можно пойти и далее — отформатировать текст, сделать форму, в которой указываются все необходимые данные договора (даты, номер, ФИО директора, должности, наименование организации, реквизиты и т .д.). При выполнении макроса все эти данные заполнялись бы автоматически после указания в форме в нужных местах. По опыту знаю ошибок будет меньше при таком заполнении и времени уходит меньше.

Что такое макрос в ворде 2007? Формула из Excel таблицы

Многие интересуются — как вставить формулы Excel в таблицу Word? Excel хорош при вычислениях но не удобен для работы с текстом, а таблицы Word не так привычны после работы с Excel. Туда нельзя вставить формулы как в Excel, но можно вставлять таблицу Excel путем копирования или создания таблицы прямо в документе Word. Для этого переходим в меню «Вставка»:

Далее, «рисуем» таблицу так, как мы делаем это в Excel:

Создавать Excel таблицу в Word с помощью макроса вышеописанным способом не получится — нужны дополнительные усилия. А что касается обычной Word таблицы — можно записывать макросы в случае создания сложных макетов таблиц.

Можно попробовать записать создание таблицы в макрос любым из этих способов и посмотреть что получится. Лично я таблицы копирую прямо из Excel, а макросы записываю в Office 2016 — там мне удобнее работать со стилями и оформлением. Удачи в освоении программы!

Создание макросов для упрощения работы с Microsoft Word

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

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

Области использования макросов:

    1. Ускорение часто выполняемых операций. В числе таковых форматирование и редактирование.

2. Объединение нескольких команд в целостное действие “от и до”. Например, с помощью макроса можно вставить таблицу заданного размера с необходимым количеством строк и столбцов.

3. Упрощение доступа к некоторым параметрам и инструментам, расположенным в различных диалоговых окнах программы.

4. Автоматизация сложных последовательностей действий.

Последовательность макросов может быть записана или создана с нуля путем введения кода в редактор Visual Basic на одноименном языке программирования.

Включение макросов

По умолчанию макросы доступны не во всех версиях MS Word, точнее, они просто не включены. Чтобы активировать их необходимо включить средства разработчика. После этого на панели управления программы появится вкладка “Разработчик”. О том, как это сделать, читайте ниже.

Примечание: В версиях программы, в которых макросы доступны изначально (например, Ворд 2016), средства для работы с ними находятся во вкладке “Вид” в группе “Макросы”.

Кнопка Макросы в Word

1. Откройте меню “Файл” (кнопка “Microsoft Office” ранее).

2. Выберите пункт “Параметры” (ранее “Параметры Word”).

3. Откройте в окне “Параметры” категорию “Основные” и перейдите в группе “Основные параметры работы”.

4. Установите галочку напротив пункта “Показывать вкладку “Разработчик” на ленте”.

5. На панели управления появится вкладка “Разработчик”, в которой и будет находиться пункт “Макросы”.

Запись макросов

1. Во вкладке “Разработчик” или, в зависимости от используемой версии Ворда, во вкладке “Вид”, нажмите кнопку “Макросы” и выберите пункт “Запись макроса”.

Запись макроса в Word

2. Задайте имя для создаваемого макроса.

Окно Запись макроса в word

Примечание: Если вы, создавая новый макрос, даете ему точно такое же имя, как у встроенного в программу, действия, записанные вами в новый макрос, будут выполняться взамен стандартным. Для просмотра макросов, доступных в MS Word по умолчанию, в меню кнопки “Макросы” выберите “Команды Word”.

3. В пункте “Макрос доступен для” выберите то, для чего он будет доступен: шаблон или документ, в который его следует сохранить.

Выбор места для применения макроса в Word

    Совет: Если вы хотите, чтобы создаваемый макрос был доступен во всех документах, с которыми вы работаете в дальнейшем, выберите параметр “Normal.dotm”.

4. В поле “Описание” введите описание для создаваемого макроса.

Описание макроса в Word

5. Выполните одно из действий, указанных ниже:

  • Начните запись — чтобы приступить к началу записи макроса, не связывая его при этом с кнопкой на панели управления или комбинацией клавиш, нажмите “ОК”.
  • Создайте кнопку — чтобы связать создаваемый макрос с кнопкой, расположенной на панели управления, выполните следующее:
      • Нажмите “кнопке”;
          • Выберите документ или документы, в которых требуется добавить создаваемый макрос на панель быстрого доступа (раздел “Настройка панели быстрого доступа”);

          Параметры макроса в Word

            Совет: Чтобы создаваемый макрос был доступен для всех документов, выберите параметр “Normal.dotm”.

          Доступ к макросу в Word

          В окне “Макрос из” (ранее “Выбрать команды из”) выберите макрос, который следует записать, нажмите “Добавить”.

          Добавить макрос в Word

            • Если вы хотите настроить эту кнопку, нажмите “Изменить”;
              • Выберите подходящий символ для создаваемой кнопки в поле “Символ”;
                • Введите имя макроса, которое будет отображаться в дальнейшем в поле “Отображаемое имя”;
                  • Для начала записи макроса дважды кликните по кнопке “ОК”.

                  Запись макроса ОК в Word

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

                1. Назначьте сочетание клавиш — Для того, чтобы назначить комбинацию клавиш для создаваемого макроса, выполните следующие действия:
                    • Кликните по кнопке “Клавишами” (ранее “Клавиатура”);
                    • Запись макроса клавишами в Word

                        • В разделе “Команды” выберите макрос, который необходимо записать;

                        Настройка клавиатуры в Word

                          • В разделе “Новое сочетание клавиш” введите любую удобную для вас комбинацию, после чего нажмите кнопку “Назначить”;

                          Настройка комбинаций клавиатуры в Word

                            • Для начала записи макроса нажмите “Закрыть”.

                            6. Выполните поочередно все те действия, которые необходимо включить в макрос.

                            Примечание: Во время записи макроса нельзя использовать мышь для выделения текста, а вот для выбора команд и параметров нужно использовать именно ее. При необходимости, выделить текст можно с помощью клавиатуры.

                            7. Для остановки записи макроса нажмите “Остановить запись”, эта команда расположена в меню кнопки “Макросы” на панели управления.

                            остановить запись макроса в Word

                            Изменение комбинаций клавиш для макроса

                            1. Откройте окно “Параметры” (меню “Файл” или кнопка “MS Office”).

                            2. Выберите пункт “Настройка”.

                            3. Нажмите на кнопку “Настройка”, расположенную рядом с полем “Сочетание клавиш”.

                            4. В разделе “Категории” выберите “Макросы”.

                            5. В открывшемся списке выберите макрос, который необходимо изменить.

                            6. Кликните по полю “Новое сочетание клавиш” и нажмите клавиши или комбинацию клавиш, которые вы хотите назначить для конкретного макроса.

                            Настройка клавиатуры в Word

                            7. Убедитесь, что назначенное вами сочетание клавиш не используется для выполнения другой задачи (поле “Текущее сочетание”).

                            8. В разделе “Сохранить изменения” выберите подходящий вариант (место) для сохранения места, где макрос будет запускаться.

                            Сохранить Настройки клавиатуры в word

                              Совет: Если вы хотите, чтобы макрос был доступен к использованию во всех документах, выберите параметр “Normal.dotm”.

                            9. Нажмите “Закрыть”.

                            Запуск макроса

                            1. Нажмите на кнопку “Макросы” (вкладка “Вид” или “Разработчик”, в зависимости от используемой версии программы).

                            Открыть макросы в Word

                            2. Выберите макрос, который хотите запустить (список “Имя макроса”).

                            3. Нажмите “Выполнить”.

                            Выбор Макроса в Word

                            Создание нового макроса

                            1. Нажмите кнопку “Макросы”.

                            Кнопка макросы в Word

                            2. Задайте имя для нового макроса в соответствующем поле.

                            Имя Макроса в Word

                            3. В разделе “Макросы из” выберите шаблон или документ, для которого будет сохранен создаваемый макрос.

                            Создать Макрос в Word

                              Совет: Если вы хотите, чтобы макрос стал доступен во всех документах, выберите параметр “Normal.dotm”.

                            4. Нажмите “Создать”. Будет открыт редактор Visual Basic, в котором и можно будет создать новый макрос на языке Visual Basic.

                            Microsoft Visual Basic for Applications - Normal

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

                            Мы рады, что смогли помочь Вам в решении проблемы.

                            Помимо этой статьи, на сайте еще 11905 инструкций.
                            Добавьте сайт Lumpics.ru в закладки (CTRL+D) и мы точно еще пригодимся вам.

                            Отблагодарите автора, поделитесь статьей в социальных сетях.

                            Опишите, что у вас не получилось. Наши специалисты постараются ответить максимально быстро.

                            Создать макрос в ворд это легко

                            Инструкции по программам и сервисам

                            Создать макрос в ворд это легко

                            Макрос в ворд

                            В этом уроке Вы узнаете:

                            • Что такое Макросы в ворд
                            • Как применить макросы в ворд
                            • Как записать макрос в ворд

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

                            Что такое макросы в ворд

                            Макросы в программе Microsoft Office Word — это набор команд/сочетание клавиш на клавиатуре, сообщающее алгоритм выполнения действий в автоматическом режиме, для достижения результата. Другими словами, это записанная последовательность сочетания команд в единую команду. Могу привести пример макроса из жизни: ещё совсем недавно в выходной день, кто-нибудь из вашей семьи уходил на рынок за покупками. И для выполнения своей задачи необходимо было пройтись по прилавкам с различным наименованием товара для приобретения мяса, зелени, молочной продукции, бакалеи, хоз. товаров и т.д. Алгоритм был следующий:

                            1. Выйти за покупками
                            2. Пройтись по n-количеству продавцов
                            3. Доставить купленный товар домой

                            Сейчас же можно взять и заказать весь товар через интернет/по телефону. Это уже будет процесс с минимальным использования Ваших действий, где Вам необходимо сделать заказ, принять доставку, расплатиться:

                            1. Фирма, предоставляющее услуги доставки заказанного Вами товара, наладило взаимодействия между поставщиком товара и услугой транспортировки.
                            2. Вы в свою очередь сделали заказ, кликнув по монитору или в приложении в телефоне.

                            Итог: кто-то выполняет сочетание различных действий за Вас, по вашему заказу.

                            Вот и в Microsoft Word похожий процесс. Вы записываете сочетание различных команд в одну команду (вы выступаете в роли той фирмы, которое наладило взаимоотношение), и выводите кнопку этой команды на панель быстрого доступа (простите за тавтологию, просто так понятнее:)) далее Вы нажимает на кнопку, компьютер выполняет записанную последовательность команд и мигом получаете результат с использованием всего одного действия. Это круто;)

                            Как применить макрос в ворд

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

                            Как записать макрос в word

                            Самым легким макросом, с которым мне приходилось встречаться, это создание какого-нибудь символа с использованием шестнадцатеричного кода, например ударение над буквой в ворде.

                            В данной статье написано как сделать ударение с использованием кода (для ударения этот код — 0301 ). Переходите по ссылке Ударение над буквой в ворде.

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

                            1. Устанавливаем курсор мышки за буквой, на которую хотим поставить ударение (в слове «года» нам нужно поставить ударение на букву «о»).
                            1. Переходим в вкладку «Вид» → раздел «Макросы» →нажимаем «Запись Макроса»

                            Как создать макрос в word

                            1. Вводим имя нашему макросу, в поле «Назначить макрос» нажимаем «Кнопке», при желании можно добавить описание (это поле удобно заполнять, когда много макросов, и некоторые из них могут иметь подобные либо редко-встречающиеся названия).

                            Макросы в ворд

                            1. В появившемся окне выделяем создаваемый макрос нажимаем «Добавить» и нажимаем «Ок»

                            Макрос word

                            1. После того, как Вы нажали «Ок» пошла запись макроса. Теперь каждое нажатие клавиши записывается ровно в той же последовательности. Вводим 0301 и нажимаем сочетание клавиш ALT+X

                            Макросы в word

                            1. Теперь во вкладке «Вид», в разделе «Макросы» нажимаем на «Макросы» → «Остановить запись»

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

                            Ворд файл макрос

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

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

                            Like this post? Please share to your friends:
                          1. Созданный сайт в word
                          2. Созданию документа его редактирование форматирование в word
                          3. Созданный календарь в word 2007
                          4. Созданием теста в программе microsoft excel
                          5. Созданные стили текста для word