Inregistrare cod macro si atribuire la un document
Inregistrare cod macro si atribuire la un document
Cum se inregistreaza un macro in Word 2007 care poate modifica marginile din stanga si din dreapta de la dimensiunile initiale la o dimensiune impusa sa zicem 2 cm.
Cum se atribuie acest macro unui document specificat?
In legatura cu ECDL-ul sunt informatii la adresa:http://www.ecdl.org.ro/
Cum se atribuie acest macro unui document specificat?
In legatura cu ECDL-ul sunt informatii la adresa:http://www.ecdl.org.ro/
Re: intrebari Word 2007
1. Din Ribbon-ul View, mergi la celula Macro si apesi butonul Macros.
2. Din meniul aparut, alegi optiunea Record Macro.
3. Incepi si modifici marginile documentului cf. cerintelor tale.
4. Pentru a opri inregistrarea unui cod macro, din Ribbon-ul View, mergi la celula Macro si apesi butonul Macros si alegi optiunea Stop Recording.
Implicit acest cod macro este inregistrat in sablonul Normal.dotm.
Drept consecinta codul inregistrat de tine, poate fi folosit in orice document.
L.E.
Codul inregistrat ar trebui sa arate asa:
Aceasta portiune din cod face referire la cei 2 cm specificati de tine.
Dupa prelucrare codul tau va fi:
Aici vei gasi si un mic exemplu video.
Il poti vizualiza cu VLC Player.
2. Din meniul aparut, alegi optiunea Record Macro.
3. Incepi si modifici marginile documentului cf. cerintelor tale.
4. Pentru a opri inregistrarea unui cod macro, din Ribbon-ul View, mergi la celula Macro si apesi butonul Macros si alegi optiunea Stop Recording.
Implicit acest cod macro este inregistrat in sablonul Normal.dotm.
Drept consecinta codul inregistrat de tine, poate fi folosit in orice document.
L.E.
Codul inregistrat ar trebui sa arate asa:
Cod: Selectaţi tot
Sub RedimensionarePagini()
With ActiveDocument.Styles(wdStyleNormal).Font
If .NameFarEast = .NameAscii Then
.NameAscii = ""
End If
.NameFarEast = ""
End With
With ActiveDocument.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = CentimetersToPoints(1.5)
.BottomMargin = CentimetersToPoints(2.5)
.LeftMargin = CentimetersToPoints(2)
.RightMargin = CentimetersToPoints(2)
.Gutter = CentimetersToPoints(0)
.HeaderDistance = CentimetersToPoints(1.25)
.FooterDistance = CentimetersToPoints(1.25)
.PageWidth = CentimetersToPoints(21)
.PageHeight = CentimetersToPoints(29.7)
.FirstPageTray = wdPrinterDefaultBin
.OtherPagesTray = wdPrinterDefaultBin
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False
.TwoPagesOnOne = False
.BookFoldPrinting = False
.BookFoldRevPrinting = False
.BookFoldPrintingSheets = 1
.GutterPos = wdGutterPosLeft
End With
End Sub
Cod: Selectaţi tot
.LeftMargin = CentimetersToPoints(2)
.RightMargin = CentimetersToPoints(2)
Cod: Selectaţi tot
Sub RedimensionarePagini()
On Error GoTo err
With ActiveDocument.PageSetup
.LeftMargin = CentimetersToPoints(2)
.RightMargin = CentimetersToPoints(2)
End With
Exit Sub
err:
Msgbox err.Description, vbOkOnly+vbInformation, "Eroare"
End Sub
Il poti vizualiza cu VLC Player.
Comentarii
Buna seara,
Multumesc foarte mult pentru raspuns dar mai ales pentru materialul video care este foarte sugestiv.
Mi-ar fi foarte util daca imi permiteti sa-l utilizez si la servici pentru elevii cu care lucrez pentru diferite concursuri interjudetene si mai ales pentru concursul de "Informatica Aplicata".
Multumesc foarte mult pentru raspuns dar mai ales pentru materialul video care este foarte sugestiv.
Mi-ar fi foarte util daca imi permiteti sa-l utilizez si la servici pentru elevii cu care lucrez pentru diferite concursuri interjudetene si mai ales pentru concursul de "Informatica Aplicata".
- Dr.Excel
- Site Admin
- Mesaje: 1997
- Membru din: Sâm Ian 24, 2009 1:45 pm
- Localitate: Bucharest
- Contact:
Re: Comentarii
...sigur ca daMi-ar fi foarte util daca imi permiteti sa-l utilizez si la servici pentru elevii cu care lucrez pentru diferite concursuri interjudetene si mai ales pentru concursul de "Informatica Aplicata".
Dar avem o singura rugaminte: nu uitati sa le spuneti copiilor de unde ati luat materialele
MCT, MCITP
MOS Master Instructor
IT Learning
Re: Comentarii
Cu siguranta le voi spune sursa materialelor si atunci in timpul orelor voi face numai aplicatii... asa vor invata singuri; metoda numita studiul individual