Ворд макрои изван снимача макроа: Оффице 2016, 365 / 2019 водич за макрое и корисни примери

Применљивост: Ворд 365, 2019, 2016; Виндовс и МАЦ ОС Кс оперативни системи.

Ево питања читаоца:

Ја сам наставник обично користим Ворд 2019 за писање докумената. Често морам да променим фонт и величину пасуса документа. Постоји ли начин да аутоматизујем свој рад са макроима, тако да могу да изменим параграф документа једним кликом? Сигуран сам да ће ми ово уштедети неколико сати недељно, које ћу радо уложити у друге задатке.

Хвала на питању. Кључна предност макроа је та што вам омогућавају да аутоматизујете своје задатке у Мицрософт Оффице апликацијама. Макрои се могу снимити или ручно кодирати користећи Висуал Басиц за апликације (ВБА). Ворд испоручује Макро снимач који вам омогућава да развијете скрипте за аутоматизацију без кодирања. Ако тек почињете са аутоматизацијом, ово би могло бити довољно добро решење. Уз то, уз мало ВБА знања, можете написати ефикасне и моћне макрое.

Омогућавање картице за програмере у Ворд-у

Ако не видите картицу Програмер на траци за Мицрософт Ворд, мораћете да подесите окружење за развој макроа.

• Отворите нови Ворд документ. У случају да желите да радите на постојећој датотеци, уверите се да имате копију за резервну копију, пре него што направите било какве промене.
• Сада, само напред и учините мени програмера видљивим на траци .

Снимање Ворд макроа – практичан пример

• Сада притисните новододату картицу Програмер .
• Идите на групу дугмета Код .

• Притисните дугме Сними макро да бисте покренули функцију снимања макроа.

• Дефинишите смислено име за свој макро. Напомена: Пошто ће се име које наведете користити у аутоматски креираном ВБА коду, уверите се да нема размака у имену макроа.

•  Напомена: Иако је могуће доделити макрое дугмадима , ради једноставности покретаћемо Макро ручно преко картице Приказ или картица Програмер.

• Извршите редослед корака који желите да снимите. У овом случају, снимићете следеће кораке:
  • Изаберите одређени пасус у документу.
  • Идите на картицу Почетна .
  • Поставите фонт на Тимес Нев Роман.
  • Подесите величину фонта на 16.
  • Центрирајте свој текст притиском на Цтрл +Е.
• Када завршите, вратите се на картицу Програмер и притисните Заустави снимање .
• Хајде сада да погледамо аутоматски генерисани ВБА код. Притисните Макрои , а затим означите Макро аутоматског форматирања и притисните Уреди .

• Затворите ВБА Едитор.

Сачувајте свој рад у шаблону са омогућеним Ворд макроима

• Притисните Филе , а затим Саве Ас .
• У дијалогу Сачувај као са десне стране, одредите локацију за чување и дајте смислено име својој радној свесци.

• Изаберите Ворд Макро Енаблед Доцумент као тип документа. Напомена: Ваш Ворд документ ће бити сачуван са суфиксом .доцм.
• Притисните дугме Саве .

Извршавање вашег макроа

• Отворите свој Ворд документ.
• Изаберите одломак који желите да аутоматски форматирате. Само као пример, ево пасуса који сам изабрао:

• Идите на картицу Приказ .
• Притисните дугме Макрои .
• Изаберите свој макро за аутоматско форматирање
• Притисните Покрени – ово ће применити макро на изабрани пасус.
• Вои'ла, добар резултат!

  

Додељивање макроа дугмадима или пречицама на тастатури

Напомена: Ово је опциони корак који би требало да се покуша након што сте пратили горенаведени водич за снимање макроа.

ОК, до сада смо радили наше основе макроа. Сада је време да мало побољшамо нашу употребљивост макроа у Ворд документу. Дозволите ми да вам покажем како можете да повежете свој макро са дугметом за брзи приступ да бисте га лакше покренули.

• Кликните десним тастером миша на траку и изаберите Прилагоди траку са алаткама за брзи приступ.
• Појавиће се дијалог Ворд опције .
• У падајућем менију Изабери команде изаберите Макрои.
• Означите свој макро и притисните дугме Додај>> да бисте додали пречицу за свој макро на траку са алаткама за брзи приступ .

• Притисните дугме Измени... да бисте дефинисали одговарајућу икону за свој макро.
• Дефинишите име за приказ за своје дугме.
• Притисните ОК .
• Сада можете да покренете свој макро са траке са алаткама за брзи приступ, одмах изнад траке.

Напомена: Можете да повежете свој Ворд макро не само са дугмадима за брзи приступ већ и са командним дугмадима уграђеним у ваш документ и одређеним прилагођеним пречицама на тастатури.

Креирање Ворд макроа помоћу ВБА

Са неким једноставним вештинама кодирања у Висуал Басиц-у за апликације можемо уређивати макрое и писати програме за аутоматизацију различитих врста радова користећи ВБА.

На страну Напомена: ФИИ – неке од Мицрософт Оффице апликација, као што су Поверпоинт и Оутлоок, немају уграђене снимаче макроа. Стога је писање ВБА обавезно за писање Поверпоинт макроа и аутоматизацију Оутлоок-а.

• Да бисте уредили макро, кликните на  картицу Програмер  и изаберите Макрои у опцији кода.
• Кликните на макро и изаберите  Уреди .
• Отвориће се уређивач Висуал Басиц за апликације.
• Претпоставимо да желимо да ручно уредимо макро који смо снимили у претходном кораку, тако да Ворд не само да подеси величину, фонт и поравнање пасуса, већ и боју.
• Подешавање боје секције се постиже помоћу следеће ВБА команде:

[цоде] Селецтион.Фонт.Боја [/цоде]

• У нашем случају, желећемо да га подесимо на насумично плаво, тако да ћемо додати следећи исечак нашем снимљеном макроу:

[цоде] Селецтион.Фонт.Цолор = 16737792[/цоде]

• Ево како би ваш ВБА код требао изгледати:

• У ВБА Едитору притисните Датотека , а затим Сачувај .
• Вратите се у документ, покрените свој макро на параграфу и посматрајте промену боје фонта.

• Вои'ла!

Користан Ворд Мацро пример који можете написати

Од објављивања овог упутства, многи читаоци су тражили детаљније примере Ворд макроа. Ова листа покрива најчешће задатке које можете аутоматизовати користећи Висуал Басиц у Ворд-у. Идемо:

Креирајте и сачувајте нови документ

Sub CreateNewDoc()
'This small snippet first creates a new document, then it checks whether a document with the same name already exists before saving.
Dim myDoc As New Document
Dim filePath As String

'Modify your file path as needed
filePath = "C:\MyNewDoc.docx"

Set myDoc = Documents.Add
With myDoc
If Dir(filePath) = "" Then
.SaveAs2 (filePath)
Else

'You have already an existing document

MsgBox ("Please use a different file name")
End If
End With

myDoc.Close SaveChanges:=wdPromptToSaveChanges

End Sub

Напомена: Када креирате нове документе, можете да наведете шаблон (.дотм/.дотк датотеке) који желите да користите. Шаблони се обично чувају на: Ц:\Усерс\\АппДата\Роаминг\Мицрософт\Темплатес

Documents.Add Template:=<your_template_folder>

Отворите Ворд документ помоћу ВБА

Sub OpenDoc()
'This code checks whether your document exists and then opens it
filePath = "C:\MyNewDoc.docx"

If Dir(filePath) = "" Then
MsgBox ("file doesn't exist")
Else
Documents.Open (filePath)
End If

End Sub

Затварање једног/свих отворених докумената

Sub CloseDoc()

'This code closes a specific document
filePath = "C:\MyNewDoc.docx"
Documents(filePath).Close SaveChanges:=wdPromptToSaveChanges
End Sub

Sub CloseAllDocs()
'This code closes all opened documents in your computer
Documents.Close SaveChanges:=wdPromptToSaveChanges

End Sub

Чување Ворда као ПДФ-а

Ево како лако аутоматизовати чување Ворд докумената као ПДФ датотека.

Sub SaveAsPdf()
'This code saves a word document in a PDF format
FileName = Left(CStr(ActiveDocument.Name), Len(CStr(ActiveDocument.Name)) - 5)
ActiveDocument.SaveAs2 FileName:="c:\" + FileName + ".pdf", FileFormat:=wdFormatPDF

End Sub

Уметање заглавља и подножја

Овај код поставља заглавље и подножје прве странице вашег Ворд документа.

Sub InsertHeaderFooterFirstPage()
Dim myDoc As Document
Dim headerText As String
Dim footerText As String

Set myDoc = ActiveDocument
'Replace the header and footer text as needed
headerText = "This document was written by you"
footerText = "All rights reserved to you"

With myDoc.Sections(1)
'We first ensure that we can set different header and footer texts
.PageSetup.DifferentFirstPageHeaderFooter = True
'Setting the header and footer texts
.Headers(wdHeaderFooterFirstPage).Range.Text = headerText
.Footers(wdHeaderFooterFirstPage).Range.Text = footerText

End With

End Sub

Додатне идеје за Ворд макро

Ево још неколико идеја које ћемо објавити у наредном периоду.

1. Пронађи и замени (метод извршења)
2. Уметни пасус (пре и после избора)
3. Штампање докумената програмски
4. Рад са табелама

Овим је наш водич за данас завршен. Као што сте управо видели, има много тога да се уради са Ворд снимачем макроа и ВБА макроима у Ворд-у. У случају да тражите конкретнију помоћ која превазилази оквире овог упутства, љубазно нас контактирајте путем нашег контакт обрасца .