Przykład makra dla edytora Word

Poniższe makro (autorem jest Keith Ratner) powinno, po odpowiednim dostosowaniu nazw ścieżek, działać w edytorze Word 2000. Uruchamia ono program Wilbur i wyszukuje słowo, na którym zatrzymał się kursor.

Sub Main() 

Selection.Words(1).Select 

While Right(Selection.Text, 1) = " " 

Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend 

Wend 

x = Shell("C:\Program Files\RedTree\Wilbur\wilbur.exe " + "'C:\Program 
Files\RedTree\Wilbur\indexes\proposal root.wil' " + Selection.Text, 
vbMaximizedFocus) 

SendKeys "{enter}" 

End Sub

Poniżej zamieszczamy pierwotne makro, używane z wcześniejszymi wersjami edytora Word:

Sub MAIN

SelectCurWord
Shell "g:\wilbur\WinRel\wilbur.exe " +
 "d:\wilbur\text.wilbur " + Selection$()

SendKeys "{enter}"

End Sub

Jeśli w nazwach ścieżek pojawiają się spacje, potrzebna będzie bardziej złożona wersja:

Sub MAIN

SelectCurWord

Shell Chr$(34) + "g:\wilbur\\wilbur.exe" +
  Chr$(34) + " " +
  "'d:\wilbur\text.wilbur' " +
  Selection$()

SendKeys "{enter}"

End Sub

Trzeba pamiętać, by poprawnie wpisać spacje po nazwach ścieżek i nie kończyć linii po znaku '+'. Jeśli pracujemy w edytorze Word 97, należy dodać "WordBasic." przed poleceniami SelectCurWord, Shell, Selection$ oraz SendKeys. (np. WordBasic.SelectCurWord)

Aby utworzyć makro, należy użyć polecenia Narzędzia/Makro. Trzeba nadać mu nazwę, np. Wilbur. Następnie za pomocą polecenia Narzędzia/Dostosuj przypisujemy do makra skrót klawiaturowy (może być np. Ctrl+Alt+W) i jesteśmy u siebie.

Ogólne

Polecenia Menu

Różności

Przykład makra dla edytora Word

Polecenia
Menu