www.Cursuri-Excel.ro     www.Cursuri-Access.ro     www.Cursuri-Powerpoint.ro     www.Cursuri-Outlook.ro     www.Cursuri-Word.ro     www.CursuriProject.ro    

Inregistrare cod macro si atribuire la un document

Informatii despre cum se utilizeaza Microsoft Word 2007. Editare, formatare, automatizare de documente

Inregistrare cod macro si atribuire la un document

Mesajde 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/
Laura
 
Mesaje: 14
Membru din: Sâm Noi 28, 2009 9:56 pm

Re: intrebari Word 2007

Mesajde 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.
Dr. Cloud
 
Mesaje: 3329
Membru din: Mar Oct 02, 2012 11:19 am

Comentarii

Mesajde 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".
Laura
 
Mesaje: 14
Membru din: Sâm Noi 28, 2009 9:56 pm

Re: Comentarii

Mesajde 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
Avatar utilizator
Dr.Excel
Site Admin
Site Admin
 
Mesaje: 1915
Membru din: Sâm Ian 24, 2009 1:45 pm
Localitate: Bucharest

Re: Comentarii

Mesajde 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
Laura
 
Mesaje: 14
Membru din: Sâm Noi 28, 2009 9:56 pm


Înapoi la Intrebari despre Word 2007

Cine este conectat

Utilizatorii ce navighează pe acest forum: Niciun utilizator înregistrat şi 1 vizitator