Jak wstawić ręczny podział wiersza w dokumencie programu Microsoft Word?

Skrypciarze odpowiadają na Wasze pytania

Jak wstawić ręczny podział wiersza w dokumencie programu Microsoft Word?

Cześć, Skrypciarze! Cześć Skrypciarze! Jak wstawić ręczny podział wiersza w dokumencie programu Microsoft Word?

-- YR

Hey, YR. Pozdrowienia (saluti) z Wiecznego Miasta – Rzymu! Wiecie, według legendy, Rzym został założony tysiące lat temu przez dwóch bliźniaków Romulusa i Remusa oraz ich dalekiego krewnego (najstarszego Skrypciarza) Petera Constantiniego. Peter oczywiście temu zaprzecza twierdząc, że nie było go na świecie, kiedy Romulus i Remus zakładali miasto. To może być prawda. Jeżeli jednak tak jest, to jak wyjaśnić pochodzenie koszulki, którą zawsze ma na sobie, tej z nadrukiem: „Zakładałem Rzym razem z Romulusem i Remusem, a w zamian dostałem tylko tę głupią koszulkę”?

Spróbuję się dowiedzieć, kto naprawdę założył Rzym, kiedy tylko będę miał ku temu szansę. Jak na razie stwierdziłem, ze włoska kuchnia jest naprawdę dobra. Po raptem kilku dniach pobytu zdążyłem już spróbować między innymi:

• Bigne, ciasta wypełnionego czekoladą lub waniliowym nadzieniem.
• Napoleonki, ciasto wypełnione zarówno czekoladą, jak i nadzieniem waniliowym.
• Sfogliatelle, ciasta wypełnionego nadzieniem z sera ricotta.
• Pasticiotti, innego rodzaju ciastka wypełnionego czekoladą.
• Ciastek owocowych, éclairs, zeppole, pastiera, cassataSiciliana, zuppette oraz profitteroli. Wszystko to ciastka i wszystkie przepyszne.

Tymczasem, czekając na cappuccino, serwuję skrypt wstawiający ręczny podział wiersza do dokumentu programu Word:

Set objWord = CreateObject("Word.Application")

objWord.Visible = True



Set objDoc = objWord.Documents.Add()

Set objSelection = objWord.Selection



objSelection.TypeText "This paragraph is followed by a paragraph return."

objSelection.TypeParagraph()



objSelection.TypeText "This paragraph is followed by a line break." & Chr(11)



objSelection.TypeText "This paragraph is also followed by a line break." & Chr(11)



objSelection.TypeText "This paragraph is followed by a paragraph return."

objSelection.TypeParagraph()

Wyjaśnijmy, jak działa ten skrypt, pokażemy przy tym kilka obrazków, aby dowieść, że on naprawdę działa. Jak widzimy, zaczynamy od tego, od czego najczęściej zaczynamy skrypty programu Microsoft Word: tworzymy wystąpienie obiektu Word.Application, a następnie ustawiamy właściwość Visible na True; to nam da działające, widoczne na ekranie wystąpienie programu Microsoft. Następnie wywołujemy metodę Add w celu dodania nowego, pustego dokumentu do naszego wystąpienia programu Word, potem stosujemy poniższy wiersz kodu w celu utworzenia wystąpienia Selection programu Word, czyli czegoś, co umieści kursor na początku dokumentu i umożliwi nam rozpoczęcie dodawania tekstu:

Set objSelection = objWord.Selection

Pierwszy dodany kawałek tekstu powinien wydać nam się znajomy; używamy jedynie metody TypeText w celu wpisania zdania, a następnie metody TypeParagraph() w celu dodania twardego podziału akapitu (odpowiednik naciśnięcia klawisza ENTER na klawiaturze) na końcu tego zdania:

objSelection.TypeText "This paragraph is followed by a paragraph return."

objSelection.TypeParagraph()

Teraz spójrzmy na następny fragment tekstu, który wpiszemy do naszego dokumentu:

objSelection.TypeText "This paragraph is followed by a line break." & Chr(11)

Po raz kolejny używamy metody TypeText w celu dodania zdania do dokumentu. Jednak nie dodajemy po prostu zdania; dodajemy także Chr(11) na końcu tego zdania. Co to jest Chr(11)? Jak się okazuje, jest to kod ASCII oznaczający podział wiersza. Chcemy dodać podział wiersza na końcu zdania w dokumencie programu Microsoft Word? Używamy więc metody Chr(11) zamiast metody TypeParagraph().

Potem tak po prostu dodajemy jeszcze dwa akapity, jeden z podziałem wiersza, a jeden ze znakiem podziału akapitu.

Kiedy skrypt przestanie działać, dokument programu Word powinien wyglądać następująco:

No tak, wygląda to jak każdy inny dokument programu Word. Ale zauważmy co się stanie, kiedy klikniemy przycisk, który pokaże wszystkie znaczniki formatowania:

Jak widać, wiersz 1 i 4 mają twardy znak podziału akapitu na końcu; dla kontrastu wiersze 2 i 3 kończą się miękkim znakiem podziału akapitu (podział wiesza). Zobaczmy co się stanie, kiedy wycentrujemy tylko wiersz 2:

Dlaczego wycentrowane zostały także wiersz 3 oraz 4? To proste: ponieważ są połączone za pomocą podziału wiersza, a nie podziału akapitu. To dowodzi, że skrypt działa!

Do początku strony