[ Pobierz całość w formacie PDF ]
.Metoda PrivateProfileString obiektu System pozwala na odczyt danych zRejestru systemowego Windows 95.Do tego celu wymagane jest podanie trzechparametrów wywo³ania funkcji: FileName, sk³adaj¹cego siê z pustego³añcucha znakowego, argumentu Section, definiuj¹cego obszar Rejestru orazKey - wskazuj¹cego konkretny klucz.DOSTRAJANIE: Visual Basic for Applications (3)Gra s³Ã³wWstêpKtóry to tydzieñ?Dopasowanie rozmiaru dokumentuUruchamianie makra o okreœlonej porzeZapisywanie fragmentu tekstuNa k³opoty - 47 poradWydruk 1Wydruk 2Wydruk 3Wydruk 4Wydruk 5Wydruk 6Piotr WyrzykowskiMakro wstawia do dokumentu numer tygodnia odpowiadaj¹cego podanej dacie.Sub NumerTygodnia() Dim We As String Dim Data As Date Dim NumerTyg As Integer We = InputBox(Prompt:="Data",_ Title:="Obliczanie numeru tygodnia", Default:=Date) If Val(We) > 0 Then Data = CDate(We) NumerTyg = DatePart(Interval:="ww", Date:=Data,_ FirstDayOfWeek:=vbMonday, FirstWeekOfYear:=vbFirstFourDays) Selection.TypeText "Tydzieñ numer "& Str$(NumerTyg) End IfEnd SubDOSTRAJANIE: Visual Basic for Applications (3)Gra s³Ã³wWstêpKtóry to tydzieñ?Dopasowanie rozmiaru dokumentuUruchamianie makra o okreœlonej porzeZapisywanie fragmentu tekstuNa k³opoty - 47 poradWydruk 1Wydruk 2Wydruk 3Wydruk 4Wydruk 5Wydruk 6Piotr WyrzykowskiProgram DopasujStrony ustala liczbê stron zajmowanych przez dokument,modyfikuj¹c rozmiar czcionki w ca³ym tekœcie.Sub DopasujStrony() Dim We As String Dim StrWym As Integer Dim StrAkt As Integer StrAkt = Selection.Information(wdNumberOfPagesIn-Document) We = InputBox(Prompt:="¯¹dana liczba stron:", Title:="Dopasowanie liczby stron", Default:=StrAkt) If Val(We) > 0 Then StrWym = Val(We) With ActiveDocument.PrintPreview With ActiveWindow.ActivePane.View.Zoom.PageColumns = 8.PageRows = 3 End With.Content.Select If StrAkt < StrWym Then Do While Selection.Information(wdNumberOfPagesInDocument) < StrWym Selection.Font.Grow.Repaginate Loop ElseIf StrAkt > StrWym Then Do While Selection.Information(wdNumberOfPagesInDocument) > StrWym Selection.Font.Shrink.Repaginate Loop End If End WithEnd IfEnd SubDOSTRAJANIE: Visual Basic for Applications (3)Gra s³Ã³wWstêpKtóry to tydzieñ?Dopasowanie rozmiaru dokumentuUruchamianie makra o okreœlonej porzeZapisywanie fragmentu tekstuNa k³opoty - 47 poradWydruk 1Wydruk 2Wydruk 3Wydruk 4Wydruk 5Wydruk 6Piotr WyrzykowskiMakro uruchamia pole dialogowe UserForm frmMakroOnTime.Sub MakroOnTime() frmMakroOnTime.ShowEnd SubDOSTRAJANIE: Visual Basic for Applications (3)Gra s³Ã³wWstêpKtóry to tydzieñ?Dopasowanie rozmiaru dokumentuUruchamianie makra o okreœlonej porzeZapisywanie fragmentu tekstuNa k³opoty - 47 poradWydruk 1Wydruk 2Wydruk 3Wydruk 4Wydruk 5Wydruk 6Piotr WyrzykowskiProcedury obs³ugi zdarzeñ pola dialogowego UserForm frmMakroOnTime,s³u¿¹cego do uruchomienia okreœlonego makra o ¿¹danej porze.Private Sub UserForm_Initialize() Me.txtCzasStart.Text = Format(Time, "Short Time")End SubPrivate Sub cmdMakro_Click() With Dialogs(wdDialogToolsMacro) If.Display > 0 Then Me.txtMakro.Text =.Name With Me.txtCzasStart.SetFocus.SelStart=0.SelLenght = Len(.Text) End With End If End WithEnd SubPrivate Sub cmdOK_Click() If Me.txtCzasStart.Text = "" Then Application.OnTime When:="01.01.80 00.00", Name:="Jakieœ makro" Else Application.OnTime When:=Format(Me.txtCzasStart.Text,_ "Short Time"), Name:=Me.txtMakro.Text End If Unload MeEnd SubPrivate Sub cmdAnuluj_Click() Unload MeEnd SubDOSTRAJANIE: Visual Basic for Applications (3)Gra s³Ã³wWstêpKtóry to tydzieñ?Dopasowanie rozmiaru dokumentuUruchamianie makra o okreœlonej porzeZapisywanie fragmentu tekstuNa k³opoty - 47 poradWydruk 1Wydruk 2Wydruk 3Wydruk 4Wydruk 5Wydruk 6Piotr WyrzykowskiMakropolecenie kopiuje zaznaczony fragment tekstu i zapisuje go do nowegopliku.Sub ZapiszForm() Dim Szablon As String If Selection.Type = wdSelectionNormal Then Selection
[ Pobierz całość w formacie PDF ]