Инструкции за слушане на музика в Google Maps
Инструкции за слушане на музика в Google Maps В момента потребителите могат да пътуват и да слушат музика с помощта на приложението Google Map на iPhone. Днес WebTech360 ви кани
Приложимост: Word 365, 2019, 2016; Операционни системи Windows и MAC OS X.
Ето един въпрос от читател:
Аз съм учител, обикновено използвам Word 2019, за да пиша документите си. Често се налага да променя шрифта и размера на параграфите на документа си. Има ли начин да автоматизирам работата си с макроси, така че да мога да променя параграфа на документа си с едно щракване? Сигурен съм, че това ще ми спести няколко часа седмично, които с удоволствие ще инвестирам в други задачи.
Благодаря за въпроса ви. Основното предимство на макросите е, че ви позволяват да автоматизирате задачите си в приложенията на Microsoft Office. Макросите могат да бъдат записани или ръчно кодирани с помощта на Visual Basic за приложения (VBA). Word доставя макрорекордер, който ви позволява да разработвате скриптове за автоматизация без кодиране. Ако тепърва започвате с автоматизацията, това може да е достатъчно добро решение. Въпреки това, с малко познания за VBA, можете да пишете ефективни и мощни макроси.
Активиране на раздела за програмисти в Word
Ако не виждате раздела Разработчик във вашата лента на Microsoft Word, ще трябва да настроите вашата среда за разработка на макроси.
Записване на Word Macro – практически пример
Запазете работата си в шаблон с активиран Word Macro
Изпълнение на вашия макрос
Присвояване на вашия макрос на бутони или клавишни комбинации
Забележка: Това е незадължителна стъпка, която трябва да се опита, след като сте следвали урока за запис на макроси по-горе.
Добре, досега работихме с основните ни макроси. Сега е време да подобрим малко използваемостта на нашия макрос в документа на Word. Позволете ми да ви покажа как можете да свържете своя макрос с бутон за бърз достъп, за да можете да го стартирате по-лесно.
Забележка: Можете да свържете вашия Word Macro не само с бутони за бърз достъп, но и с командни бутони, вградени във вашия документ, и специфични персонализирани клавишни комбинации.
Създаване на Word макроси с помощта на VBA
С някои прости умения за кодиране на Visual Basic за приложения можем да редактираме макросите и да пишем програми за автоматизиране на различни видове работи с помощта на VBA.
Забележка настрана: FYI – някои от приложенията на Microsoft Office, като Powerpoint и Outlook, нямат вградени макрорекордери. Следователно писането на VBA е задължително за писане на макроси на Powerpoint и автоматизиране на Outlook.
[код] Избор.Шрифт.Цвят [/code]
[код] Selection.Font.Color = 16737792[/code]
Полезен пример за Word Macro, който можете да напишете
След публикуването на този урок много читатели поискаха по-задълбочени примери за Word макроси. Този списък обхваща най-разпространените задачи, които можете да автоматизирате с помощта на Visual Basic в Word. Ето ни:
Създаване и запазване на нов документ
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
Забележка: Когато създавате нови документи, можете да посочите шаблона (.dotm/.dotx файлове), който искате да използвате. Шаблоните обикновено се съхраняват на адрес: C:\Users\\AppData\Roaming\Microsoft\Templates
Documents.Add Template:=<your_template_folder>
Отворете документ на Word с VBA
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
Запазване на Word като PDF
Ето как лесно да автоматизирате записването на документи на Word като PDF файлове.
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
Вмъкване на горен и долен колонтитул
Този код задава горния и долния колонтитул на първата страница на вашия документ на Word.
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
Допълнителни идеи за Word Macro
Ето още няколко идеи, които ще публикуваме в бъдеще.
Това завършва нашия урок за днес. Както току-що видяхте, има много какво да се направи с записа на макроси на Word и макроси VBA в Word. В случай, че търсите по-конкретна помощ, която излиза извън обхвата на този урок, моля свържете се с нас чрез нашата форма за контакт .
Инструкции за слушане на музика в Google Maps В момента потребителите могат да пътуват и да слушат музика с помощта на приложението Google Map на iPhone. Днес WebTech360 ви кани
Инструкции за използване на LifeBOX - онлайн услугата за съхранение на Viettel, LifeBOX е наскоро пусната онлайн услуга за съхранение на Viettel с много превъзходни функции
Как да актуализирате статуса във Facebook Messenger, Facebook Messenger в най-новата версия предостави на потребителите изключително полезна функция: промяна
Инструкции за играта на карти Werewolf Online на компютъра, Инструкции за изтегляне, инсталиране и игра на Werewolf Online на компютъра чрез изключително простия емулатор LDPlayer.
Инструкции за изтриване на истории, публикувани в Instagram Ако искате да изтриете история в Instagram, но не знаете как? Днес WebTech360
Инструкции за добавяне на представени изображения във Facebook В момента Facebook ни позволява да задаваме представени изображения на нашите лични страници. Тук ви каним
Как да коригирате грешката Windows Quick Assist не работи, Windows Quick Assist ви помага лесно да се свържете с отдалечен компютър. Понякога обаче генерира и грешки. Но,
Инструкции за включване/изключване на смесването на песни в Spotify, За да помогнете на хората бързо да променят реда на песните в горния музикален плейлист
Инструкции за таен запис на iPhone, Понастоящем потребителите на iPhone могат да записват тайно, като докоснат гърба на телефона. Днес WebTech360 ви кани
Как да използвате Mixamo за анимиране на потребителски 3D модели С Mixamo можете лесно да импортирате 3D модел и да приложите анимационни ефекти към него. По-долу са дадени инструкции за употреба