Acest stil stabileste o indentare intre randuri de 1,15, in loc de 1,0 cat este la versiunea Word 2003.
Acest lucru se observa atunci cand vrem sa scriem un text si in clipa in care dam un Enter, cursorul se muta pe al 2-lea rand. Multi dintre noi, pana am ajuns sa cunoastem mai bine aceasta versiune, executam un Ctrl+Enter, pentru a scrie pe randul urmator si pentru a numai avea acea indentare mare.
Daca veti apasa butonul Show/Hide din Ribbon pentru a vedea elementele ascunse, veti observa unde avem Ctrl+Enter (indicatia 1 din poza) si unde avem Enter (Indicatia 2 din poza). Tot multi dintre noi, uneori am vrut sa eliminam acel Ctrl+Enter si am ales metoda manuala.
Dar exista doua metode automate pentru a face aceasta inlocuire.
1. Find and Replace:
- pentru Find se va alege din meniul Special optiunea Manual Line Break;
- pentru Replace se va alege din meniul Special optiunea Paragraph Mark.
Dupa ce se executa Replace All, acel Ctrl+Enter va fi eliminat din tot documentul. 2. Macro.
Codul macro folosit, nu este altceva decat o inregistrare a operatiei de Find and Replace, dar cu cateva rectificari.
Acest cod macro poate fi atasat la un buton si rulat.
Cod: Selectaţi tot
'---------------------------------------------------------------------------
' Descriere : Acest cod inlocuieste Ctrl+Enter cu Enter.
'---------------------------------------------------------------------------
' Avertizare : Acest cod trebuie luat asa cum este.
' Orice test se va efectua pe o copie a datelor originale
'---------------------------------------------------------------------------
' Procedura : CtrlEnter
' Autor : Alexandru
' Date : 05.03.2010
' Site web : http://www.itlearning.ro/forum/
'---------------------------------------------------------------------------
Sub CtrlEnter()
On Error GoTo err
With Selection.Find
.Text = "^l"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.TypeParagraph
Exit Sub
err:
MsgBox err.Description, vbOKOnly + vbInformation, "Eroare"
End Sub