✅ Przykłady makr słów i samouczek VBA

Spisie treści

VBA PDF (bezpłatne pliki do pobrania)
Przykłady Word VBA „CheatSheet”
Samouczek makr Word VBA
Przykład prostego słowa makra
Obiekt dokumentu Word
Dokumenty
Zakres, wybór, akapity
Przykłady makr słów

Witamy w naszym Mega-przewodniku dotyczącym słów VBA / makr!

Ta strona zawiera:

1. Samouczek Word VBA PDF (bezpłatne pobieranie)
2. Word VBA „Ściągawka” zawierająca listę najczęściej używanych fragmentów kodu Word VBA
3. Pełny samouczek Word VBA / Macro.
4. Przeszukiwalna lista wszystkich naszych samouczków makr Word VBA

Możesz być również zainteresowany naszym interaktywnym samouczkiem VBA dla programu Excel. Podczas gdy niektóre przykłady / ćwiczenia są specyficzne dla Excel VBA, większość treści jest ogólna dla wszystkich VBA i może okazać się przydatne poznanie pojęć, takich jak instrukcje If, pętle, pola komunikatów i inne.

VBA PDF (bezpłatne pliki do pobrania)

Pobierz nasz darmowy samouczek Microsoft Word VBA! Lub samouczki VBA dla innych programów biurowych!

Pobierać

Przykłady Word VBA „CheatSheet”

Poniżej znajdziesz proste przykłady kodu VBA do pracy z Microsoft Word.

Wybierz / Idź do

OpisKod VBABackspaceWybór.TypeBackspaceWybierz cały dokumentWybór. Jednostka HomeKey: = wdStory
Wybór.RozszerzKopiujWybór.KopiujKasowaćWybór.Usuń Jednostka:=wdCharacter, Liczba:=1Wstaw poZaznaczenie.WstawPo „tekst”Początek liniiWybór. Jednostka HomeKey: = wdLineKoniec liniiSelection.EndKey Unit:=wdLinePastaWybór.WklejZaznacz wszystkoWybór.Cała historiaWybierz całą linięSelection.EndKey Unit:=wdLine, Extend:=wdExtendPrzenieś akapit w góręWybór.MoveUp Unit:=wdParagraph, Count:=1Przesuń w prawo o jedną postaćWybór.MoveRight Jednostka:=wdCharacter, Liczba:=1Przesuń w prawo o jedną komórkę w tabeliWybór.MoveRight Unit:=wdCellPrzejdź do początku dokumentuWybór. Jednostka HomeKey: = wdStoryPrzejdź do końca dokumentuSelection.EndKey Unit:=wdStoryPrzejdź do strony 1Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="1"Przejdź na początek stronySelection.GoTo Co:=wdGoToBookmark, Nazwa:=”\Strona”
Wybór.MoveLeft Jednostka:=wdCharacter, Liczba:=1

Wróć do góry

Zakładki

OpisKod VBADodaćZ ActiveDocument.Bookmarks
.Dodaj zakres:=Wybór.Zakres, Nazwa:=”Nazwa”
.DefaultSorting = wdSortByName
.ShowHidden = Fałsz
Kończyć zLiczyćDim n jako liczba całkowita
n = AktywnyDokument.Zakładki.LiczbaKasowaćActiveDocument.Bookmarks("Nazwa Zakładki").UsuńIstnieje?Jeśli ActiveDocument.Bookmarks.Exists(„Nazwa Zakładki”) = Prawda, to
'Zrób coś
Zakończ, jeśliIść doSelection.GoTo What:=wdGoToBookmark, Name:=”BookmarkName”WybierzActiveDocument.Bookmarks("Nazwa zakładki").WybierzZamień tekstSelection.GoTo What:=wdGoToBookmark, Name:=”BookmarkName”
Wybór.Usuń Jednostka:=wdCharacter, Liczba:=1
Zaznaczenie.WstawPo „Nowym tekście”
ActiveDocument.Bookmarks.Add Range:=Wybór.Zakres, _
Nazwa:=”Nazwa Zakładki”

Wróć do góry

Dokument

OpisKod VBAAktywujDokumenty („Przykład.doc”).AktywujDodaj do zmiennejDim doc jako dokument
Ustaw dokument = Dokumenty.DodajDodaćDokumenty.DodajDodaj (z innego dokumentu)Dokumenty.Dodaj szablon:=”C:\Formularze\Formularz.doc”, _
Nowy szablon:=FałszBliskoDokumenty („Przykład.doc”). ZamknijZamknij - Zapisz zmianyDokumenty („Przykład.doc”). Zamknij SaveChanges:=wdSaveChangesZamknij - nie zapisujDokumenty („Przykład.doc”). Zamknij SaveChanges:=wdDoNotSaveChangesZamknij - monit o zapisanieDokumenty („Przykład.doc”). Zamknij SaveChanges:=wdPromptToSaveChanges

Wróć do góry

Kolumny

OpisKod VBAZapisz jakoDokumenty („Przykład.doc”). Zapisz jako („C:\Przykład\Przykład.doc”)ZapisaćDokumenty („Przykład.doc”).ZapiszOchraniaćDokumenty („Przykład.doc”). Chroń hasło: = „hasło”Usuń ochronęDokumenty („Przykład.doc”). Odblokuj hasło: = „hasło”Numer stronDim varNumberPages jako Variant
liczba_zmiennych stron = _
ActiveDocument.Content.Information(wdActiveEndAdjustedPageNumber)WydrukowaćDokumenty („Przykład.doc”). Drukuj

Wróć do góry

Masz dość wyszukiwania przykładów kodu VBA? Wypróbuj Automakro!

Czcionka

OpisKod VBARozmiarWybór.Rozmiar.Czcionki = 12PogrubionyZaznaczenie.Czcionka.Pogrubienie = PrawdaKursywaZaznaczenie.Czcionka.Kursywa = PrawdaPodkreślaćSelection.Font.Underline = wdUnderlineSingleWszystkie duże literyWybór.Czcionka.AllCaps = PrawdaKolorSelection.Font.TextColor = vbRedNazwaSelection.Font.Name = „Abadi”IndeksZaznaczenie.Czcionka.Inskrypcja = PrawdaNapisany u góryZaznaczenie.Czcionka.Indeks górny = PrawdaPodświetlony kolorSelection.Range.HighlightColorIndex = wdYellowStylSelection.Style = ActiveDocument.Styles("Normalny")

Wróć do góry

Wstawić

OpisKod VBAWstaw AutotekstSelection.TypeText Tekst:="a3"
Selection.Range.InsertAutoTextWstaw kod datyWstaw plikSelection.InsertFile („C:\Docs\Coś.doc”)Wstaw podział stronySelection.InsertBreak Type:=wdPageBreakWstaw symbol akapituSelection.TypeText Tekst:=Chr$(182)Wstaw kartęSelection.TypeText Tekst:=vbTabWstaw tekstSelection.TypeText Tekst:="Dowolny tekst"Wstaw tekst AkapitSelection.TypeParagraphWstaw akapitSelection.InsertParagraph

Wróć do góry

Pętle

OpisKod VBARób do końca dokumentuWykonaj dopóki ActiveDocument.Bookmarks(„\Sel”) = ActiveDocument.Bookmarks(„\EndOfDoc”)
'Zrób coś
PodDla każdego dokumentu w DokumentachDim doc jako dokument
Dla każdego dokumentu w dokumentach
'Zrób coś
Następny dokumentZapętlaj akapitySub przez akapity
Dim i As Long, iParCount As Long
iParCount = ActiveDocument.Paragraphs.CountFori = 1 do iParCount
ActiveDocument.Paragraphs(i).Alignment = wdAlignParagraphLeft
Dalej ja

Wróć do góry

Ustęp

OpisKod VBAUtrzymuj linie razemSelection.ParagraphFormat.KeepTogether = TrueZachowaj z następnąSelection.ParagraphFormat.KeepWithNext = TruePrzestrzeń poWybór.ParagraphFormat.SpacePo = 12Przestrzeń przedWybór.ParagraphFormat.SpaceBefore = 0Wyrównaj do środkaSelection.ParagraphFormat.Alignment = wdAlignParagraphCenterWyrównaj w prawoSelection.ParagraphFormat.Alignment = wdAlignParagraphRightWyrównaj do lewejSelection.ParagraphFormat.Alignment = wdAlignParagraphLeftWcięcie z lewejSelection.ParagraphFormat.LeftIndent = InchesToPoints(3,75)Prawe wcięcieSelection.ParagraphFormat.RightIndent = InchesToPoints(1)Odstępy między wierszamiZ Selection.ParagraphFormat
.LineSpacingRule = wdLineSpaceDokładnie
.Odstęp między liniami = 12
Kończyć zZapętl wszystkie akapitySub przez akapity
Dim i As Long, iParCount As Long
iParCount = ActiveDocument.Paragraphs.CountFori = 1 do iParCount
ActiveDocument.Paragraphs(i).Alignment = wdAlignParagraphLeft
Dalej ja

Wróć do góry

Samouczek makr Word VBA

To jest samouczek dotyczący korzystania z VBA w programie Microsoft Word. Ten samouczek nauczy Cię, jak napisać proste makro i wchodzić w interakcję z dokumentami, zakresami, zaznaczeniami i akapitami.

Uwaga: Jeśli jesteś nowy w makrach / VBA, ten artykuł może również okazać się przydatny: Jak pisać makra VBA od podstaw.

VBA to język programowania używany do automatyzacji programów Microsoft Office, w tym Word, Excel, Outlook, PowerPoint i Access.

Makra to bloki kodu VBA, które wykonują określone zadania.

Kiedy ty Nagraj makro, program Word zapisze kod VBA do makra, umożliwiając powtórzenie czynności. Możesz zobaczyć listę wszystkich dostępnych makr z Widok > Makra.

Po nagraniu makra będziesz mógł edytować makro z listy makr:

Po kliknięciu Edytować, otwierasz Edytor VBA. Za pomocą edytora VBA możesz edytować nagrane makra lub napisać makro Word od podstaw. Aby uzyskać dostęp do edytora VBA, użyj skrótu ALT + F11 lub kliknij Visual Basic od Wstążka programisty.

Przykład prostego słowa makra

To jest prosty przykład makra Word VBA. Wykonuje następujące zadania:

Otwiera dokument Word
Zapisuje do dokumentu
Zamyka i zapisuje dokument Word.

123456789101112131415

Sub WordMakroPrzykład()'Otwórz dokument i przypisz do zmiennejDim oDoc jako dokumentSet oDoc = Documents.Open("c:\Users\someone\NewDocument.docx")„Napisz do dokumentu”Selection.TypeText "www.automateexcel.com"Selection.TypeParagraph„Zapisz i zamknij dokument”oDok.ZapiszoDoc.ZamknijNapis końcowy

Podstawy makr słów

Cały kod VBA musi być przechowywany w takich procedurach. Aby utworzyć procedurę w VBA, wpisz „Sub WordMacroExample” (gdzie „WordMacroExample” to nazwa żądanego makra) i naciśnij WEJŚĆ. VBA automatycznie doda nawias i End Sub.

Obiekt dokumentu Word

Podczas interakcji z Microsoft Word w VBA często będziesz odwoływać się do Worda „Obiekty”. Najczęstsze obiekty to:

Obiekt aplikacji - Sam Microsoft Word

Obiekt dokumentu - Dokument Word

Obiekt zakresu - Część dokumentu Word

Obiekt wyboru - Wybrany zakres lub położenie kursora.

Podanie

Aplikacja jest obiektem „najwyższego poziomu”. Wszystkie inne obiekty w programie Word są dostępne za jego pośrednictwem.

Oprócz dostępu do innych obiektów programu Word istnieją ustawienia „poziomu aplikacji”, które można zastosować:

1	Application.Options.AllowDragAndDrop = Prawda

Oto przykład dostępu do „Wyboru” „Windows(1)” za pomocą w Aplikacji:

1	Aplikacja.Windows(1).Wybór.Znaków.Liczba

Jednak dostęp do najpopularniejszych obiektów programu Word można uzyskać bezpośrednio, bez wpisywania pełnej hierarchii. Zamiast tego możesz (i powinieneś) po prostu wpisać:

1	Wybór.Znaków.Liczba

Dokumenty

Aktywny dokument

Często będziesz mieć dwa lub więcej dokumentów otwartych w programie Word i będziesz musiał określić, z którym konkretnym dokumentem Word chcesz wchodzić w interakcję. Jednym ze sposobów określenia, który dokument ma być używany Aktywny dokument. Na przykład:

1	ActiveDocument.Wydruk

… wydrukuje ActiveDocument. ActiveDocument to dokument w programie Word, który „ma fokus”

Aby przełączyć ActiveDocument, użyj polecenia Aktywuj:

1	Dokumenty("Przykład.docx").Aktywuj

Ten dokument

Zamiast używać ActiveDocument do odwoływania się do aktywnego dokumentu, możesz użyć ThisDocument do odwoływania się do dokumentu, w którym jest przechowywane makro. Ten dokument nigdy się nie zmieni.

1	TenDokument.Wydruk

Zmienne dokumentu

Jednak w przypadku bardziej skomplikowanych makr śledzenie aktywnego dokumentu może być trudne. Przechodzenie między dokumentami może być również frustrujące.

Zamiast tego możesz użyć zmiennych dokumentu.

To makro przypisze ActiveDocument do zmiennej, a następnie wydrukuje dokument za pomocą zmiennej:

12345

Przykład zmiennej podrzędnej()Dim oDoc jako dokumentUstaw oDoc = ActiveDocumentoDoc.WydrukNapis końcowy

Metody dokumentowania

Otwórz dokument

Aby otworzyć dokument Word:

1	Dokumenty.Otwórz "c:\Users\SomeOne\Desktop\Test PM.docx"

Zalecamy, aby zawsze przypisywać dokument do zmiennej po jego otwarciu:

12	Dim oDoc jako dokumentSet oDoc = Documents.Open("c:\Users\SomeOne\Desktop\Test PM.docx")

Utwórz nowy dokument

Aby utworzyć nowy dokument Word:

1	Dokumenty.Dodaj

Możemy poinstruować program Word, aby utworzył nowy dokument na podstawie jakiegoś szablonu:

1	Documents.Add Template:="C:\Program Files\Microsoft Office\Szablony\MójSzablon.dotx"

Jak zawsze, przypisanie dokumentu do zmiennej przy tworzeniu lub otwieraniu jest bardzo przydatne i pozwala zaoszczędzić wiele problemów:

12	Dim oDoc jako dokumentUstaw oDoc = Documents.Add (Szablon:="C:\Program Files\Microsoft Office\Szablony\MójSzablon.dotx")

Zapisz dokument

Aby zapisać dokument:

1	AktywnyDokument.Zapisz

lub Zapisz jako:

1	ActiveDocument.SaveAs FileName:= c:\Users\SomeOne\Desktop\test2.docx", FileFormat:=wdFormatDocument

Zamknij dokument

Aby zamknąć dokument i zapisać zmiany:

1	ActiveDocument.Zamknij wdSaveChanges

lub bez zapisywania zmian:

1	ActiveDocument.Close wdDoNotSaveChanges

Wydrukuj dokument

Spowoduje to wydrukowanie aktywnego dokumentu:

1	ActiveDocument.Wydruk

Zakres, wybór, akapity

Zasięg oraz Wybór są prawdopodobnie najważniejszymi obiektami w Word VBA, z pewnością najczęściej używanymi.

Zasięg odnosi się do jakiejś części dokumentu, zwykle, ale niekoniecznie, tekstu.

Wybór odnosi się do zaznaczonego tekstu (lub innego obiektu, takiego jak obrazy) lub, jeśli nic nie jest zaznaczone, do punktu wstawiania.

Paragrafy reprezentować paragrafy w dokumencie. Jest to mniej ważne niż się wydaje, ponieważ nie masz bezpośredniego dostępu do tekstu akapitu (musisz uzyskać dostęp do określonego zakresu akapitu, aby dokonać modyfikacji).

Zasięg

Zakres może być dowolną częścią dokumentu, w tym całym dokumentem:

12	Ciemny pomarańczowy jako zakresUstaw oRange = ActiveDocument.Content

lub może być mały, jak jeden znak.

Inny przykład, ten zakres odwołuje się do pierwszego słowa w dokumencie:

12	Ciemny pomarańczowy jako zakresUstaw oRange = ActiveDocument.Range.Words(1)

Zwykle chciałbyś uzyskać zakres, który odnosi się do określonej części dokumentu, a następnie go zmodyfikować.

W poniższym przykładzie pogrubimy pierwsze słowo drugiego akapitu:

123	Ciemny pomarańczowy jako zakresUstaw oRange = ActiveDocument.Paragraphs(2).Range.Words(1)oZakres.Pogrubienie = Prawda

Ustaw tekst zakresu

Aby ustawić wartość tekstową zakresu:

123	Ciemny pomarańczowy jako zakresUstaw oRange = ActiveDocument.Paragraphs(2).Range.Words(1)oRange.Text = „Cześć ”

(Wskazówka: Zwróć uwagę na spację po „Hello”. Ponieważ obiekt słowo zawiera spację po słowie, po prostu „hello” otrzymalibyśmy „Hellonext word”)

Są setki rzeczy, które możesz zrobić za pomocą zakresów. Tylko kilka przykładów (zakładają one, że jesteś już zmienną obiektową) Pomarańczowy w odniesieniu do zakresu zainteresowań):

Zmień czcionkę

1	oRange.Font.Name = "Arial"

Wyświetlaj w oknie wiadomości liczbę znaków w określonym zakresie

1	MsgBox orrange.Characters.Count

Wstaw przed nim jakiś tekst

1	oRange.InsertBefore "to jest wstawiony tekst"

Dodaj przypis do zakresu

12	ActiveDocument.Footnotes.Dodaj zakres:=oZakres, _Text:="Przeczytaj więcej na easyexcel.net."

Skopiuj do schowka

1234	lubZakres.KopiujCzęsto trzeba zmienić na to, co odnosi się do konkretnego zakresu. Więc możesz zacząć, to początek i koniecoZakres.Początek = 5lubZakres.Koniec = 50

Po powyższym kodzie orRange odwołuje się do tekstu zaczynającego się od piątego i kończącego się na 50. znaku w dokumencie.

Wybór

Wybór jest jeszcze szerzej stosowany niż Zasięg, bo łatwiej się z nim pracuje Selekcje niż Zakresy, JEŚLI twoje makro TYLKO współdziała z ActiveDocument.

Najpierw wybierz żądaną część dokumentu. Na przykład wybierz drugi akapit w aktywnym dokumencie:

1	ActiveDocument.Paragraphs(2).Zakres.Wybierz

Następnie możesz użyć obiektu wyboru, aby wpisać tekst:

1	Selection.TypeText "Jakiś tekst"

Możemy wpisać kilka akapitów poniżej „Jakiś tekst”:

12	Selection.TypeText "Jakiś tekst"Selection.TypeParagraph

Często trzeba wiedzieć, czy jakiś tekst jest zaznaczony, czy mamy tylko punkt wstawiania:

12345

Jeśli Selection.Type wdSelectionIP WtedyZaznaczenie.Czcionka.Pogrubienie = PrawdaW przeciwnym razieMsgBox "Musisz zaznaczyć jakiś tekst."Zakończ, jeśli

Pracując z obiektem Selection chcemy umieścić punkt wstawiania w określonym miejscu i wydawać polecenia zaczynając od tego punktu.

Początek dokumentu:

1	Selection.HomeKey Unit:=wdStory, Extend:=wdMove

Początek bieżącej linii:

1	Selection.HomeKey Unit:=wdLine, Extend:=wdMove

Parametr Extend wdMove przesuwa punkt wstawiania. Zamiast tego możesz użyć wdExtend, który zaznaczy cały tekst między bieżącym punktem wstawiania.

1	Selection.HomeKey Unit:=wdLine, Extend:=wdExtend

Przenieś zaznaczenie

Najbardziej użyteczną metodą zmiany pozycji punktu wstawiania jest Przesuń. Aby przesunąć Zaznaczenie o dwa znaki do przodu:

1	Wybór.Move Unit:=wdCharacter, Count:=2

aby przesunąć go do tyłu, użyj liczby ujemnej dla parametru Count:

1	Wybór.Przesuń Jednostka:=wdCharacter, Liczba:=-2

Parametrem jednostki może być wdCharacter, wdWord, wdLine lub więcej (użyj pomocy Word VBA, aby zobaczyć inne).

Aby zamiast tego przenieść słowa:

1	Wybór.Przenieś jednostkę:=wdWord, Liczba:=2

Z selekcją łatwiej się pracuje (w porównaniu z zakresami), ponieważ przypomina robota używającego Worda, naśladującego człowieka. Tam, gdzie jest punkt wstawiania - miałoby miejsce jakieś działanie. Ale oznacza to, że musisz uważać, gdzie znajduje się punkt wstawiania! Nie jest to łatwe po wielu krokach w kodzie. W przeciwnym razie program Word zmieni tekst w niepożądanym miejscu.

W przypadku, gdy potrzebujesz jakiejś właściwości lub metody niedostępnej w obiekcie Selekcja, zawsze możesz łatwo uzyskać zakres związany z selekcją:

1	Ustaw oZakres = Wybór.Zakres

WSKAZÓWKA: za pomocą Wybór jest często prostsze niż używanie zakresów, ale też jest znacznie wolniejsze (ważne, gdy masz do czynienia z dużymi dokumentami)

Paragrafy

Nie możesz bezpośrednio użyć obiektu Akapits do zmiany tekstu:

1	ActiveDocument.Paragraphs(1).Text = "Nie, to nie zadziała"

Powyżej nie zadziała (w rzeczywistości spowoduje to błąd). Musisz najpierw uzyskać zasięg związany z danym paragrafem:

1	ActiveDocument.Paragraphs(1).Range.Text = "Teraz działa :)"

Ale możesz bezpośrednio zmienić jego styl:

1	ActiveDocument.Paragraphs(1).Style = "Normalny"

lub zmień jego formatowanie na poziomie akapitu:

1	ActiveDocument.Paragraphs(1).LeftIndent = 10

a może chcesz zachować ten akapit w tej samej linii co następny akapit:

1	ActiveDocument.Paragraphs(1).KeepWithNext = Prawda

Wyśrodkuj akapit:

1	ActiveDocument.Paragraphs(1).Alignment = wdAlignParagraphCenter

BARDZO przydatne jest przypisanie określonego akapitu do zmiennej obiektu. Jeśli przypiszemy konkretny akapit do zmiennej, nie musimy się martwić, że pierwszy akapit stanie się drugim, ponieważ wstawiliśmy przed nim jeden akapit:

12	dim oPara jako akapitSet oPara = Selection.Paragraphs(1) ‘tu przypisujemy pierwszy akapit aktualnego wyboru do zmiennej

Oto przykład, w którym wstawiamy akapit nad pierwszym akapitem, ale nadal możemy odwoływać się do starego pierwszego akapitu, ponieważ został on przypisany do zmiennej:

1234567

Przykład akapitu podrzędnego()Dim oPara jako akapitUstaw oPara = ActiveDocument.Paragraphs(1)MsgBox oPara.Range.TextoPara.Range.InsertParagraphPrzed „Wstaw akapit”MsgBox oPara.Range.TextNapis końcowy

Obiekt akapitu jest bardzo często używany w pętlach:

123456789101112

Podpętla przez akapity()Dim oPara jako akapitDla każdej oPara w ActiveDocument.Paragraphscoś z tym zrobić. Po prostu wyświetlimy'tekst akapitu, jeśli jego styl to „Nagłówek 4”Jeśli oPara.Style = „Nagłówek 4” WtedyMsgBox oPara.Range.TextZakończ, jeśliNastępny oParaNapis końcowy

Podsumowanie samouczka Word VBA

W tym samouczku omówiono podstawy Word VBA. Jeśli dopiero zaczynasz korzystać z VBA, powinieneś również zapoznać się z naszym ogólnym samouczkiem VBA, aby dowiedzieć się więcej o zmiennych, pętlach, polach komunikatów, ustawieniach, logice warunkowej i wielu innych.