Inregistrare cod macro si atribuire la un document

Informatii despre cum se utilizeaza Microsoft Word 2007. Editare, formatare, automatizare de documente
Laura
Mesaje: 14
Membru din: Sâm Noi 28, 2009 9:56 pm

Inregistrare cod macro si atribuire la un document

Mesaj de Laura » Joi Dec 03, 2009 11:44 am

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/

Dr. Cloud
Mesaje: 3327
Membru din: Mar Oct 02, 2012 11:19 am

Re: intrebari Word 2007

Mesaj de Dr. Cloud » Joi Dec 03, 2009 11:47 am

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:

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
Aceasta portiune din cod face referire la cei 2 cm specificati de tine.

Cod: Selectaţi tot

.LeftMargin = CentimetersToPoints(2)
.RightMargin = CentimetersToPoints(2) 
Dupa prelucrare codul tau va fi:

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
Aici vei gasi si un mic exemplu video.
Il poti vizualiza cu VLC Player.

Laura
Mesaje: 14
Membru din: Sâm Noi 28, 2009 9:56 pm

Comentarii

Mesaj de Laura » Joi Dec 03, 2009 6:58 pm

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".

Avatar utilizator
Dr.Excel
Site Admin
Site Admin
Mesaje: 1921
Membru din: Sâm Ian 24, 2009 1:45 pm
Localitate: Bucharest
Contact:

Re: Comentarii

Mesaj de Dr.Excel » Joi Dec 03, 2009 7:02 pm

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".
...sigur ca da
Dar avem o singura rugaminte: nu uitati sa le spuneti copiilor de unde ati luat materialele ;)
Dr.Excel
MCT, MCITP
MOS Master Instructor
IT Learning

Laura
Mesaje: 14
Membru din: Sâm Noi 28, 2009 9:56 pm

Re: Comentarii

Mesaj de Laura » Vin Dec 04, 2009 8:50 am

Cu siguranta le voi spune sursa materialelor si atunci in timpul orelor voi face numai aplicatii... asa vor invata singuri; metoda numita studiul individual

Scrie răspuns

Înapoi la “Intrebari despre Word 2007”