FILOLOGIA GERMAŃSKA

nadin

Warunki zaliczenia przedmiotu Podstawy programowania
Zakres wiadomości obowiązujących na zaliczenie:
1. Metody tworzenia makr w MS Word, umiejętność ich nagrywania.
2. Sposób działania funkcji MsgBox.
3. Sposób działania funkcji InputBox.
4. Odczytywanie zaznaczonego tekstu.
5. Wpisywanie tekstu do dokumentu.
6. Przesuwanie kursora: na początek i koniec dokumentu, na początek i koniec linii, na
początek i koniec słowa, w lewo i prawo o jeden znak, w dół i w górę.
7. Zaznaczanie tekstu.
8. Używanie zmiennych.
9. Sposób działania i zastosowania instrukcji warunkowej If.
10. Sposób działania i zastosowania instrukcji pętli While.
11. Umiejętność zastosowania powyższych elementów w zadaniach polegających na
przetwarzaniu dokumentów (takich jak na zajęciach).
Sposób zaliczenia:
Każdy otrzymuje trzy zadania o różnym stopniu trudności. Wykonanie pierwszego daje ocenę
dostateczną, pierwszego i drugiego dobrą a wszystkich trzech bardzo dobrą.
Przykładowe zadania (na zaliczeniu będą inne ☺):
1. Stworzyć procedurę dopisującą na końcu dokumentu tekst podany przez użytkownika
w InputBox (na 3)
2. Stworzyć procedurę, która przenosi zaznaczony tekst na początek dokumentu (na 4)
3. Stworzyć procedurę liczącą ile jest liter ‘a’ w zaznaczonym tekście i wyświetlającą tą
informację za pomocą MsgBox (na 5)

nadin

1) Stworzyć procedurę podajImie( ). Procedura pyta o imię i dopisuje je do dokumentu.
Jeśli imię to ‘Olek’ procedura wpisuje ‘Aleksander’ a jeśli ‘Sławek’ procedura
wpisuje ‘Sławomir’. W pozostałych przypadkach wpisuje podany tekst.

Rozwiązanie:
Sub Makro2()
'
' Makro2 Makro
' Makro zapisane 20-05-2007 przez stud18
'
txt = Selection
txt = InputBox("Podaj imie: ")
If txt = "Olek" Then
txt = "Aleksander"
End If
If txt = "Sławek" Then
txt = "Sławomir"
End If
Selection.TypeText Text:=(txt)
End Sub

nadin

Tak lepiej(do 1):
Sub podajImie()
'
' Makro2 Makro
' Makro zapisane 20-05-2007 przez stud18
'

txt = InputBox("Podaj imie: ")
If txt = "Olek" Then
txt = "Aleksander"
End If
If txt = "Sławek" Then
txt = "Sławomir"
End If
Selection.TypeText Text:=(txt)
End Sub

nadin

2) Stworzyć procedurę, która pyta użytkownika, co zrobić z zaznaczonym tekstem.
a. jeśli użytkownik napisze ‘góra’, przenosi tekst na początek dokumentu,
b. jeśli użytkownik napisze ‘dół’, przenosi na koniec dokumentu,
c. w pozostałych przypadkach nie robi nic.

Rozwiązanie:
Sub zaznaczonytekst()
'
' zaznaczonytekst Makro
' Makro zapisane 20-05-2007 przez stud18
'
txt = InputBox("Gdzie przenieść zaznaczony tekst?")
If txt = "góra" Then
Selection.Cut
Selection.HomeKey Unit:=wdStory
Selection.Paste
End If
If txt = "dół" Then
Selection.Cut
Selection.EndKey Unit:=wdStory
Selection.Paste
End If

End Sub

nadin

3) Stworzyć procedurę, która pogrubia całą linię w której stoi kursor, jeśli zaczyna
ona od słowa „Rozdział”. Wskazówka: użyć funkcji Left(tekst,ile_znaków)

Rozwiązanie:
Sub Makro3()
'
' Makro3 Makro
' Makro zapisane 20-05-2007 przez stud18
'
Selection.HomeKey Unit:=wdLine
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
txt = Selection
If Left(txt, Cool

= "Rozdział" Then

Selection.Font.Bold = wdToggle
End If
End Sub

nadin

4) Stworzyć procedurę dopisującą 10 kolejnych wierszy z tekstem ‘ala ma kota’.
Wskazówka: użyć pętli While....Wend

Rozwiązanie:
Sub Makro4()
'
' Makro4 Makro
' Makro zapisane 20-05-2007 przez stud18
'
txt = Selection
i = 1
While i < 10
Selection.TypeText Text:=("Ala ma kota")
Selection.TypeParagraph
i = i + 1
Wend

End Sub

Maria Grubka

Przepraszam Monika czy ty piszesz w języku Suahili? Ja nic nie czaje o co chodzi w tej informatyce. Pozdrówka

nadin

No zakręcone to to jest, też nie wiem o co w tym chodzi. Pozdrawiam

nadin

Język programowania

Sub Makro1() –nazwa makra(konkretna nazwa to Makro 1) nie wpisujemy tego sami tylko żeby nam coś takiego wyskoczyło, wybieramy z zakładki NARZĘDZIA – MAKRA – Zarejestruj nowe makro.

Następnie naciskamy przycisk OK. i wtedy w dokumencie pojawi nam się małe okienko:

Naciskamy wtedy niebieski kwadrat. W ten sposób kończymy rejestrować nowe makro. Wtedy w Visual Basic wyskoczy nam taki tekst:

Sub Makro1()
'
' Makro1 Makro
' Makro zapisane 2007-06-12 przez Admin(w szkole zamiast Admin wyskoczy nap stud24)
'
End Sub
Tekst pogrubiony to początek i koniec makra.
Wszystkie inne procedury i funkcje są nad napisem End Sub. Tak mało tekstu w ramce pojawi nam się tylko wtedy, jeśli przy rejestrowaniu nowego makra nie wykonamy żadnych kliknięć na klawiaturze

ZADANIE 1, jakie było na zaliczeniu polegało na tym, żeby:
Napisać procedurę przenoszącą zawartość ostatniej linii dokumentu do pierwszej linii.
W tym przypadku nie należy zakańczać rejestrowania makra od razu po wciśnięciu OK tylko dopiero, gdy za pomocą klawiatury wykonamy to zadanie.
Musimy pamiętać jak poruszać się po dokumencie za pomocą klawiatury:
CTRL+HOME – kursor przechodzi na początek dokumentu
CTRL+END – kursor przechodzi na koniec dokumentu
SHIFT+END – jeśli kursor stoi na początku linii to po wciśnięciu tej kombinacji klawiszy zaznaczy się cała ta linia
SHIFT+HOME – jeśli kursor stoi na końcu początku linii to po wciśnięciu tej kombinacji klawiszy zaznaczy się cała ta linia
CTRL+X – oznacza polecenie WYTNIJ
CTRL+V – polecenie WKLEJ
I tak w przypadku tego zadania przy założeniu, że kursor stoi w dowolnym miejscu w dokumencie i że na końcu dokumentu nie ma żadnej wolnej linii (żeby być pewnym, że jej tam nie ma należy stanąć za ostatnim wyrazem lub literą dokumentu i wcisnąć parę razy klawisz DELETE w innym wypadku gdyby się okazało, że ta wolna linia jest wyskoczył by błąd, – że obiekt, którego dotyczy MAKRO jest pusty), należy przejść do końca dokumentu za pomocą CTRL+END, następnie zaznaczyć całą ostatni wiersz klawiszami SHIFT+HOME, następnie wyciąć tą linie czyli CTRL+X, przejść na początek dokumentu czyli CTRL+HOME i wkleić wycięty z ostatniej linii tekst czyli klawisze CTRL+V. Po wykonaniu tych paru kombinacji klawiszowych należy przycisnąć niebieski kwadrat:

I to właściwie jest całe zadanie. W Visual Basic będzie to wyglądało tak:

Sub Makro2()
'
' Makro2 Makro
' Makro zapisane 6/10/2007 przez stud26
'

Selection.EndKey Unit:=wdStory
Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
Selection.Cut
Selection.HomeKey Unit:=wdStory
Selection.Paste
End Sub

GDZIE:

Sub Makro2()- początek MAKRA+nazwa makra
'
' Makro2 Makro
' Makro zapisane 6/10/2007 przez stud26
'

Selection.EndKey Unit:=wdStory – oznacza przejście na koniec dokumentu (CTRL+END) dodatkowo Unit:=wdStory oznacza że polecenie odnosi się do całego dokumentu

Selection.HomeKey Unit:=wdLine, Extend:=wdExtend – zaznacza ostatnią linię (SHIFT+HOME) Unit:=wdLine-oznacza że chodzi o jeden wiersz

Selection.Cut – wycina zaznaczony tekst (CTRL+X)

Selection.HomeKey Unit:=wdStory – kursor przechodzi do początku dokumentu (CTRL+HOME)

Selection.Paste – wkleja wycięty tekst (CTRL+V)

End Sub – koniec Makra

Na poprawie trzeba będzie coś zmienić w tym dokumencie. Podejrzewam, że trzeba będzie przenieść tekst z pierwszego wiersza na koniec dokumentu.
Rozwiązanie tego zadania to:

Sub Makro2()
'
' Makro2 Makro
' Makro zapisane 2007-06-12 przez Admin
'
Selection.HomeKey Unit:=wdStory
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Cut
Selection.EndKey Unit:=wdStory
Selection.Paste
End Sub

GDZIE:

Sub Makro2()-początek MAKRA+nazwa MAKRA
'
' Makro2 Makro
' Makro zapisane 2007-06-12 przez Admin
'
Selection.HomeKey Unit:=wdStory - oznacza przejście na początek dokumentu (CTRL+HOME) dodatkowo Unit:=wdStory oznacza że polecenie odnosi się do całego dokumentu

Selection.EndKey Unit:=wdLine, Extend:=wdExtend - zaznacza pierwszy wiersz (SHIFT+END) Unit:=wdLine-oznacza że chodzi o jeden wiersz

Selection.Cut - wycina zaznaczony tekst (CTRL+X)

Selection.EndKey Unit:=wdStory - kursor przechodzi na koniec dokumentu (CTRL+HOME)

Selection.Paste – wkleja wycięty tekst (CTRL+V)

End Sub – koniec MAKRA

ZADANIE 2
Napisać procedurę, która pogrubia cały zaznaczony tekst, jeśli zaczyna się on od słowa „ważne”. Do sprawdzenia tekstu na początku zaznaczenia należy użyć funkcji Left(txt,ilość_liter), która zwraca pierwsze ilość_liter liter tekstu txt.

Rozwiązanie:
Sub Makro1()
'
' Makro1 Makro
' Makro zapisane 2007-06-12 przez Admin
'
Selection.HomeKey Unit:=wdLine
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
txt = Selection
If Left(txt, 5) = "ważne" Then
Selection.MoveLeft Unit:=wdWord, Count:=1
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
Selection.Font.Bold = wdToggle
End If

End Sub

GDZIE:

Sub Makro1()
'
' Makro1 Makro
' Makro zapisane 2007-06-12 przez Admin
'
Selection.HomeKey Unit:=wdLine – oznacza, że kursor przechodzi do początku wiersza w którym stoi

Selection.EndKey Unit:=wdLine, Extend:=wdExtend – kursor przechodzi do końca wiersza i zaznaczając ją

txt = Selection - tu definiujemy zmienną

If Left(txt, 5) = "ważne" Then
Selection.MoveLeft Unit:=wdWord, Count:=1
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
Selection.Font.Bold = wdToggle – w tych liniach dochodzi do sprawdzenia warunku za pomocą funkcji IF-THEN (jeżeli-to). W tym przypadku: Jeżeli wcześniej zdefiniowany txt (czyli chodzi o ten wiersz) ma na początku 5 pierwszych liter – ważne – to wtedy zaznacza ten wyraz ( dochodzi do tego w tych dwóch liniachSelection.MoveLeft Unit:=wdWord, Count:=1, Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend) a następnie pogrubia go za pomocą funkcji: Selection.Font.Bold = wdToggle

End If – koniec warunku IF - THEN

End Sub

W tym zadaniu zamiast wyraz „ważne” może być jakiś inny wyraz. Jak by to był np. „samochód” to trzeba policzyć ile liter ma samochód i w linijce:
If Left(txt, 5) = "ważne" Then - zamiast 5 wpisać 8 (bo tyle liter ma wyraz samochód)
Wyglądałoby to tak - If Left(txt, Cool

= "samochód" a dalej bez zmian.
Ale może też powiedzieć ze zamiast pogrubić trzeba podkreślić albo kursywę zrobić:
To w linii Selection.Font.Bold = wdToggle - zamiast Bold, trzeba będzie wpisać Italic (kursywa) albo Underline (podkreślenie)

Bardziej się raczej nie da zmienić.

ZADANIE 3
Napisać procedurę, która bierze zaznaczony tekst w cudzysłowy (dopisuje „ i ” na początku i końcu aktualnego zaznaczenia).

Rozwiązanie:
Sub Makro6()
'
' Makro6 Makro
' Makro zapisane 6/10/2007 przez stud26
'
txt = Selection
zzz = "[" + txt + "]"
Selection.TypeText (zzz)
End Sub

GDZIE:
Sub Makro6()
'
' Makro6 Makro
' Makro zapisane 6/10/2007 przez stud26
'
txt = Selection – definiowanie pierwszej zmiennej

zzz = "[" + txt + "]" – definiowanie drugiej zmiennej która składa się z tego co w cudzysłowach i wcześniej zdefiniowanej zmiennej txt (czyli jak zaznaczymy coś w dokumencie to będzie to właśnie txt-zdefiniowana pierwsza zmienna

Selection.TypeText (zzz) – wprowadzenie drugiej zmiennej do dokumentu (czyli zmieniona pierwsza zmienna a konkretnie jak zaznaczymy np. tekst Ala ma kota to po wprowadzeniu tego Makra tekst ten będzie wyglądał tak [Ala ma kota] ponieważ w cudzysłowach znajdują się nawiasy kwadratowe)
End Sub
Właściwie nie wiem co można w tym zadaniu zmienić, może będzie trzeba zamiast nawiasów kwadratowych okrągłe wstawić, wyglądałoby to wtedy tak: zzz = "(" + txt + ")" w cudzysłowach trzeba by było tylko zmienić z nawiasów kwadratowych na okrągłe, i co by nie kazał tam zmienić to trzeba to wpisać w cudzysłowie.

ZADANIE 4
Napisać procedurę, która pyta o tekst i liczbę powtórzeń (dwa InputBox’y) i następnie wpisuje podany tekst tyle razy, ile podano w drugim InputBox’ie.

Rozwiązanie:
Sub Makro4()
'
' Makro4 Makro
' Makro zapisane 6/10/2007 przez stud26
'
txt = Selection
txt = InputBox("Podaj tekst:")
zzz = InputBox("Podaj liczbe pwtórzeń:")
i = 1
While i < lic + 1
Selection.TypeText Text:=zzz
Selection.TypeParagraph
i = i + 1
Wend

End Sub

GDZIE:
Sub Makro4()
'
' Makro4 Makro
' Makro zapisane 6/10/2007 przez stud26
'
txt = Selection - definiowanie pierwszej zmiennej
txt = InputBox("Podaj tekst:") – na ekranie wyskakuje okienko w którym jest napisane „Podaj tekst:” , wszystko co tam napiszemy to będzie pierwsza zmienna = txt

zzz = InputBox("Podaj liczbę powtórzeń:") – wyskoczy w drugim okienku napis „Podaj liczbę powtórzeń:” i to będzie druga zmienna=zzz (w tym przypadku będzie liczba)

i = 1 – i to jest licznik, w momencie startu jest on równy jeden

While i < zzz + 1
Selection.TypeText Text:=txt
Selection.TypeParagraph
i = i + 1
Wend – While-Wend to jest pętla warunkowa, będzie się kręciła w kółko aż warunek będzie niespełniony i tak w tym przypadku dopóki licznik (i) jest mniejszy od zmiennej zzz powiększonej o 1 (zmienna zzz jest powiększona o 1 ponieważ w przypadku gdybyśmy przypisali zmiennej zzz np. liczbę 4 i byłoby równanie i<zzz to tekst który wypisuje ta pętla powtórzony byłby tylko 3 razy bo gdyby i=4 to równanie by wyglądało 4<4 a wtedy warunek byłby już niespełniony. Inaczej by było gdyby zamiast i<zzz byłoby i jest mniejsze lub równe zzz, wtedy wystarczyłoby tylko zzz bez +1) to wypisuje w wordzie tekst który wpisaliśmy do pierwszego inputboxu (chodzi o zmienną txt) Selection.TypeText Text:=txt
Selection.TypeParagraph. W przypadku kiedy warunek nie jest spełniony kończy wypisywać do dokumentu ten tekst.
i=i+1 - za każdym razem kiedy warunek jest spełniony licznik jest zwiększany o 1.
Wend - to zakończenie pętli.

End Sub
Nie wiem co może zmienić w tym zadaniu. Ale jak tylko wpadnę na jakiś pomysł to napisze Powodzenia 

nadin

Wrzuciłam to też ma pocztę. Tu nie weszło parę rysunków. Pozdawiam

Ewa

Czy ma ktoś namiar typu mail/telefon na Kasprowskiego?

nadin

Wydaje mi sie że [link widoczny dla zalogowanych]