Inregistrare cod macro si atribuire la un document

[Laura]

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]

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]

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

[Dr.Excel]

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

[Laura]

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