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

Содержание

Области использования макросов:
Включение макросов
Запись макросов
Изменение комбинаций клавиш для макроса
Запуск макроса
Создание нового макроса
Вопросы и ответы

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Начните запись — чтобы приступить к началу записи макроса, не связывая его при этом с кнопкой на панели управления или комбинацией клавиш, нажмите “ОК”.

Создайте кнопку — чтобы связать создаваемый макрос с кнопкой, расположенной на панели управления, выполните следующее:

Нажмите “кнопке”;

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

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

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

Если вы хотите настроить эту кнопку, нажмите “Изменить”;

Выберите подходящий символ для создаваемой кнопки в поле “Символ”;

Введите имя макроса, которое будет отображаться в дальнейшем в поле “Отображаемое имя”;

Для начала записи макроса дважды кликните по кнопке “ОК”.

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

Назначьте сочетание клавиш — Для того, чтобы назначить комбинацию клавиш для создаваемого макроса, выполните следующие действия:

Кликните по кнопке “Клавишами” (ранее “Клавиатура”);

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

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

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

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

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

Урок: Горячие клавиши в Ворде

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Источник

Leoleshucov008

14 / 14 / 6

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

Сообщений: 221

09.12.2013, 19:36. Показов 5518. Ответов 1

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

Здравствуйте. Помогите написать макрос вставки формулы. Формула вида X₁ c надчеркиванием или без и динамическим индексом.

Visual Basic

Sub test123()
    cnt = ActiveDocument.InlineShapes.Count
    n = 1
    For b = 1 To 5
        ActiveDocument.InlineShapes(n).Select
        Word.Selection.MoveRight Unit:=wdCharacter, Count:=1
        Num = Word.Selection.Text
        txt = ActiveDocument.InlineShapes(n).AlternativeText
        If txt = "http://matrixcalc.org/minpf/nx.png" Then
            'x c надчеркиванием и индексом  Num                 
            
            ActiveDocument.InlineShapes(n).Delete
            n = n - 1
        Else
            If txt = "http://matrixcalc.org/minpf/nx.png" Then
            'x c индексом Num
            ActiveDocument.InlineShapes(n).Delete
            n = n - 1
            End If
        End If
        
               
    n = n + 1
    Next b
End Sub

Leoleshucov008

14 / 14 / 6

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

Сообщений: 221

13.12.2013, 21:47

[ТС]

РЕШЕНО. ТЕМА ЗАКРЫТА.

Visual Basic

Sub test123()
    Картинок = ActiveDocument.InlineShapes.Count
    n = 1
    For b = 1 To Картинок
        ActiveDocument.InlineShapes(n).Select
        Word.Selection.MoveRight Unit:=wdCharacter, Count:=1
        Num = Word.Selection.Text
        txt = ActiveDocument.InlineShapes(n).AlternativeText
        If txt = "http://matrixcalc.org/minpf/nx.png" Then
            'здесь нужно вставить x c вехним подчеркиванием и индексом Num
        Selection.Delete
        Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, PreserveFormatting:=False
        Selection.TypeText Text:="EQ  x to(X)dba4 (sdo4(" & Num & "))"
        'Selection.Characters(1).Font.Size = 14
        Selection.Fields.Update
            
            ActiveDocument.InlineShapes(n).Delete
            n = n - 1
        Else
            If txt = "http://matrixcalc.org/minpf/x.png" Then
            Selection.Delete
            Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, PreserveFormatting:=False
            Selection.TypeText Text:="EQ dfo3(X)sdo4(" & Num & ")"
            'Selection.Characters(1).Font.Size = 14
            Selection.Fields.Update
            ActiveDocument.InlineShapes(n).Delete
            n = n - 1
            End If
        End If
        
               
    n = n + 1
    Next b
End Sub

Источник

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

1 Sub NumberEquation()
2 ‘
3 ‘Вставка формулы с нумерацией.
4 ‘
5 Dim oRng As Range
6 Set oRng = Selection.Range
7 With oRng.ParagraphFormat
8 .SpaceAfterAuto = False: .SpaceBeforeAuto = False
9 .FirstLineIndent = 0
10 .TabStops.ClearAll
11 .TabStops.Add (oRng.Sections(1).PageSetup.PageWidth — oRng.Sections(1).PageSetup.LeftMargin — oRng.Sections(1).PageSetup.RightMargin — .LeftIndent — .RightIndent) / 2, _
12 wdAlignTabCenter, wdTabLeaderSpaces
13 .TabStops.Add oRng.Sections(1).PageSetup.PageWidth — oRng.Sections(1).PageSetup.LeftMargin — oRng.Sections(1).PageSetup.RightMargin — .LeftIndent — .RightIndent, _
14 wdAlignTabRight, wdTabLeaderSpaces
15 End With
16 With oRng
17 .InsertBefore vbTab
18 .Collapse wdCollapseEnd
19 .InsertParagraphAfter
20 .Select
21 With Selection
22 .InsertStyleSeparator
23 .TypeText vbTab & «(«
24 .Fields.Add .Range, wdFieldSequence, «formula», True
25 .TypeText «)»
26 End With
27 .InlineShapes.AddOLEObject «Equation.3», , False
28 .InlineShapes(1).Select
29 End With
30 End Sub

Источник

��, �� ! ��, �� msoffi@mail.ru . ��
� �� .

�� Word�� , �� , �� , ��, ��, �� . �. �� . �� :

5/7; 4 1/3; �� = ��/��*100%

��, ��, �� . �� … �� Word (MS Word 2000) �� Microsoft Equation 3.0. �� ? �� , �� , ݣ�� �� (Insert) �� � �� Microsoft Equation 3.0.

��? � �� . �ӣ �� , �� � MS Office, �� .

�� «��» �� «�� » �ģ� � «�� », � �� «�� Windows». � �� «Microsoft Office» ݣ�� «��» �� Microsoft Office �� «�� » � �� «�� Microsoft Office», � � Σ� «�� »
�� ͣ� �� «��». �� .

�� Word ݣ�� «��» —�� — � �� Microsoft Equation 3.0. ��? �� . ��? ��, ��-�� , � �� ӣ ��.

�� ӣ �� ok, �� .

�� , � �� ģ�� . � �� , ��, �� . �. �� , � � �� , �� Tab.

��: �� Word �� (�-� �� ), �� . �� , �� «��» �� «�� » � �� «�� » � «�� ».

��, Word �� . �� Ctrl + F9, � �� (=), �� (��, 100-20). �� (80) �� F9.

�� 2 �� . «��, �� word, �� �� — �� — �� ?»

��, �� -�� (�� ) �� . �� , �� :

Sub AutoOpen()

‘�� ��

If ActiveDocument.AutoHyphenation = False Then ActiveDocument.AutoHyphenation = True

End Sub

�� (�� 20 �� ) �� ?

��, �� 12345678901234567890�� �� :

12345678901234567890

��

�� :

Sub razbienie()

Const chunkSize = 20

Dim oRg As Range

Dim actualSize As Long

Set oRg = ActiveDocument.Range

With oRg

.Collapse wdCollapseStart

actualSize = .MoveEnd(Unit:=wdCharacter, Count:=chunkSize)

Do While actualSize = chunkSize

.InsertAfter vbCr

.Collapse wdCollapseEnd

actualSize = .MoveEnd(Unit:=wdCharacter, Count:=chunkSize)

Loop

End With

End Sub

�� , �� , �� :

�� , ��, �� , �� . �� .

�� : ��

� �� �� �� �� � � �� ��. �� Word 2007, �� �� � � �� �� �� ��. �� ��:

� �� �� �� .

� �� �� �� �� . � �� , �� Normal.dot.

� �� . �� .

�� ��. �� Word �� Visual Basic, �� (�� ) NewMacros � �� Normal.dot � �� (�� ), �� :

� �� , �� (�� End Sub, �� (�� Sub � End Sub).

�� , �� Run Sub (�� ) �� Visual Basic �� «F5».

�� (�� Word 2007).

�� : ��

�� , � �� .

�� «Alt»+ «F11». �� Visual Basic � �� (�� -�� ) ��.

�� (�� ) �� , �� Sub � �� End Sub.

�� , �� Run Sub (�� ) �� Visual Basic �� «F5».

�� (�� Word 2007).

�� !

��

msoffi@mail.ru

Источник

Статьи из блога

Макрос пропорционального изменения размеров формул

Иван спрашивает:

В документе WORD есть около 300-400 формул. Необходимо сделать их пропорциональными то есть высота и ширина должны быть более-менее похожы. Одни формулы имеют больший размер а другие маленький.

Как можно для каждой формулы применить определенный процент ширины и высоты отталкиваясь от стандартного измерения?

Поскольку формулы редактора Word представляют собой графические объекты, то предлагаемый ниже макрос очень похож на макрос из заметки Макрос массового уменьшения размеров всех рисунков с небольшим отличием:

Sub changeFormulas()
Dim iShape As InlineShape
For Each iShape In ActiveDocument.InlineShapes
  With iShape
     .ScaleHeight = 150
     .ScaleWidth = 150
  End With
Next iShape
End Sub

Источник