Czy można dodać nowy element do listy Autokorekty programu Microsoft Word?

Skrypciarze odpowiadają na Wasze pytania

Czy można dodać nowy element do listy Autokorekty programu Microsoft Word?

Cześć, Skrypciarze! Czy można dodać nowy element do listy Autokorekty programu Microsoft Word?

-- OK

Cześć, OK. Zacznijmy od tego, że nie mamy pojęcia, czy OK to Twoje prawdzaiwe inicjały. W gruncie rzeczy możliwe, że Twoje inicjały to tak naprawdę TR, a Ty nazywasz się Tony Romo i jesteś rozgrywającym w Dallas Cowboys. Jeśli tak jest, to chcielibyśmy pogratulować Ci dostania się do Pro Bowl w tym roku. Jeszcze bardziej chcemy podziękować Ci za przegraną Kowbojów z Seattle Seahawks w pierwszej rundzie play-offów NFL. Serdeczne dzięki!

No cóż, rozumiemy jednak, że może być Ci z powodu tej przegranej nieco przykro. Na pocieszenie przygotowaliśmy więc wspaniały skrypt, umożliwiający dodanie nowego elementu do listy Autokorekty programu Word:

Set objWord = CreateObject("Word.Application")

objWord.Visible = True



Set colEntries = objWord.AutoCorrect.Entries

colEntries.Add "Fabirkam", "Fabrikam"

Zaznaczamy, że skrypt ten nie jest taki krótki dlatego, że nie chcemy pisać dłuższego dla zawodnika Dallas Cowboys. Wręcz przeciwnie: cztery wiersze kodu to wszystko, czego nam potrzeba.

Jak widzimy, skrypt zaczyna się od utworzenia wystąpienia obiektu Word.Application. Następnie ustawiamy właściwość Visible na True; dzięki temu mamy wystąpienie programu Word widoczne na ekranie. Zwróćmy uwagę, że programu Word nie musimy uruchamiać w oknie widocznym. Wiersz kodu włączający właściwość Visible moglibyśmy spokojnie opuścić. W takim wypadku trzeba jednak dodać na końcu inny wiersz:

objWord.Quit

Ma to spore znaczenie, ponieważ jeśli pominiemy metodę Quit, Word nie zostanie zamknięty po zakończeniu działania skryptu, lecz pozostanie otwarty w ukrytym oknie – którego nie będziemy mogli zamknąć.

Po otwarciu okna Word używamy poniższego wiersza kodu, który tworzy odwołanie obiektu do kolekcji AutoCorrect.Entries:

Set colEntries = objWord.AutoCorrect.Entries

Teraz wystarczy tylko wywołać metodę Add, by dodać do kolekcji nowy element:

colEntries.Add "Fabirkam", "Fabrikam"

Jak widać, metoda Add ma dwa parametry: Fabirkam (często spotykana literówka, którą chcemy poprawić) oraz Fabrikam (poprawiona pisownia). Od tego momentu, jeśli wpiszemy Fabirkam, Word poprawi naszą pisownię na Fabrikam.

Co zrobić, gdybyśmy zmienili zdanie i zechcieli wykreślić Fabirkam z listy Autokorekty? Żaden problem; poniżej mamy prosty skrypt, który łączy się z kolekcją AutoCorrect.Entries, wyszukuje wpis o nazwie Fabirkam, a następnie za pomocą metody Delete usuwa go z kolekcji:

Set objWord = CreateObject("Word.Application")

objWord.Visible = True



Set colEntries = objWord.AutoCorrect.Entries



For Each objEntry in colEntries

    If objEntry.Name = "Fabirkam" Then

        objEntry.Delete

    End If

Next

Nie wątpimy, że Dallas Cowboys chcieliby mieć możliwość cofnięcia akcji na boisku futbolowym tak samo łatwo, jak w wypadku skryptów. Ale nie dokuczajmy im już; Kowboje mają się wystarczająco kiepsko i bez tego.

Do początku strony