Centrare caractere
Centrare caractere
Avem un text mare nepaginat, cu capitole.
Manual se poate selecta tot textul si alinia cu un tab la stanga iar apoi trebuie:
^13
Selectat "Capitol" si "descrierea lui"
scos tabul de la ele
centrate si iar
^13
Un Macro care sa faca acest lucru, eu putand sa modific "Capitol I" in "Sectiunea 1", Pargraf 5", ar fi foarte util.
Deci
Gasire "Capitol IV", "Sectiuna 3", ... etc.
Gasire primul rand dupa titlu
Eliminare tab la ele
Introducere ^13 in fata la "Capitol" si dupa randul urmator.
Centrarea acestor 2 randuri.
Credeti ca se poate ?
Multumesc !
Manual se poate selecta tot textul si alinia cu un tab la stanga iar apoi trebuie:
^13
Selectat "Capitol" si "descrierea lui"
scos tabul de la ele
centrate si iar
^13
Un Macro care sa faca acest lucru, eu putand sa modific "Capitol I" in "Sectiunea 1", Pargraf 5", ar fi foarte util.
Deci
Gasire "Capitol IV", "Sectiuna 3", ... etc.
Gasire primul rand dupa titlu
Eliminare tab la ele
Introducere ^13 in fata la "Capitol" si dupa randul urmator.
Centrarea acestor 2 randuri.
Credeti ca se poate ?
Multumesc !
Re: Centrare caractere
Puteti incarca un mic exemplu, va rog?
"un text mare nepaginat, cu capitole"...
Cum sunt introduse capitolele?
Ca text normal, cu atribute de formatare, sau cu stiluri (Heading 1)?
"un text mare nepaginat, cu capitole"...
Cum sunt introduse capitolele?
Ca text normal, cu atribute de formatare, sau cu stiluri (Heading 1)?
Re: Centrare caractere
Textul este "chior", aliniat tot la stanga, neboldat, ne-italicit etc :
Times New Roman, 10
E.G.
<tab>Xxxxxxxxxxxxxxxxxxxxxxxxx,
<tab>xxxxxxxxxxxxxxxxxxxxxxxxx.
<tab>Capitolul I
<tab>Marirea si prabusirea Imperiului Otoman
<tab>Yyyyyyyyyyyyyyyyyyyyyy
<tab>yyyyyyyyyyyyyyyyyyyyyy
Si ar trebui sa arate asa:
<tab>xxxxxxxxxxxxxxxxxxxxxxxxx.
^13
<center>
Capitolul I
<b>Marirea si prabusirea Imperiului Otoman</b>
</center>
^13
<tab>Yyyyyyyyyyyyyyyyyyyyyy
Times New Roman, 10
E.G.
<tab>Xxxxxxxxxxxxxxxxxxxxxxxxx,
<tab>xxxxxxxxxxxxxxxxxxxxxxxxx.
<tab>Capitolul I
<tab>Marirea si prabusirea Imperiului Otoman
<tab>Yyyyyyyyyyyyyyyyyyyyyy
<tab>yyyyyyyyyyyyyyyyyyyyyy
Si ar trebui sa arate asa:
<tab>xxxxxxxxxxxxxxxxxxxxxxxxx.
^13
<center>
Capitolul I
<b>Marirea si prabusirea Imperiului Otoman</b>
</center>
^13
<tab>Yyyyyyyyyyyyyyyyyyyyyy
Re: Centrare caractere
Va ajut cu mare drag, dar va rog sa incarcati un fisier word, cu un mic select din textul original si cu un sample din ceea ce doriti.
E mult mai usor pentru mine sa lucrez pe un exemplu decat sa construiesc ceva care, poate nu este conform cu realitatea.
E mult mai usor pentru mine sa lucrez pe un exemplu decat sa construiesc ceva care, poate nu este conform cu realitatea.
Re: Centrare caractere
Intrucat nu mi=ati oferit aceste detalii... am incropit eu un fisier, sper ca e ceea ce trebuie. Cum anume doriti... nu e foarte clar. Rulati macro findCapitol
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.
Re: Centrare caractere
Draga Dr. Word,
Imi cer scuze, la varsta mea inteleg mai greu si uit mai repede.
Deci, Office 2003, ca sa pot dechide si eu fisierul fara sa-mi taie din features la incarcare.
Am atasat fisierul.
Imi cer scuze, la varsta mea inteleg mai greu si uit mai repede.
Deci, Office 2003, ca sa pot dechide si eu fisierul fara sa-mi taie din features la incarcare.
Am atasat fisierul.
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.
Re: Centrare caractere
Ce tristete!
Acum imi dau seama ca ce incropisem eu nu va era de niciun ajutor. Folosisem minunatia de cautare cu Wildcards din Word 2010 care rezolva problema rapid. Sa vad cum fac in 2003.
Acum imi dau seama ca ce incropisem eu nu va era de niciun ajutor. Folosisem minunatia de cautare cu Wildcards din Word 2010 care rezolva problema rapid. Sa vad cum fac in 2003.
Re: Centrare caractere
Buun, n-avem office 2010 sau 2007. Dar avem si in 2003 stiluri:
Iata aici cum putem folosi facilitatea de selectare a textelor cu format similar
http://office.microsoft.com/en-gb/word- ... 84442.aspx
asta pentru a selecta "sectiunile" in caz ca au fost scrise de autor cu aceleasi atribute de formatare. Le aplicati apoi stilul Heading 1 (modificat dupa preferinta) si la fel cu subtitlurile.
Din cate am vazut in exemplul dumneavoastra, textul original nu are caracterul tab la inceput, cum gresit am inteles din prima descriere a problemei, ci doar alinierea paragrafului de tip Normal.
Eu asa as face. Fara sa ma complic cu macro.
Iata aici cum putem folosi facilitatea de selectare a textelor cu format similar
http://office.microsoft.com/en-gb/word- ... 84442.aspx
asta pentru a selecta "sectiunile" in caz ca au fost scrise de autor cu aceleasi atribute de formatare. Le aplicati apoi stilul Heading 1 (modificat dupa preferinta) si la fel cu subtitlurile.
Din cate am vazut in exemplul dumneavoastra, textul original nu are caracterul tab la inceput, cum gresit am inteles din prima descriere a problemei, ci doar alinierea paragrafului de tip Normal.
Eu asa as face. Fara sa ma complic cu macro.
Re: Centrare caractere
Multumesc pt. raspunsul promt.
Tocmai incercam sa bricolez la macro-ul dvs. ca sa introduc si diacritice.
Asa cum era normal am pus doua " una dupa alta si mi-a dat eroare
Apoi ...
Run-time error '5':
Invalid procedure call or argument
Utilizarea Heading1 face "center" dar schimba si fontul, size, italic etc. ceea ce NU este necesar !!!
Alinierea initiala o fac eu, selectand tot si tragand sagetica de la bara cu pargrafe/taburi cu o jumatate de unitate.
In Word 2003, la "Replace" apare si optiunea Wildcards si VB-ul "atasat" o suporta.
La macro-urile inregistrate automat apare asa: .MatchWildcards = True sau False.
Stiam de posibilitatea din Styles & Formating, dar daca o folosesc nu imi introduce si cele doua ^13, inainte de "Capitol" si dupa descrierea lui (al doilea rand centrat). Adica trebuie sa le bag manual la 50-60 de "Capitol/Sectiune".
Chiar daca dau "replace all" "Capitol" cu "^13Capitol", randul al doilea este intodeauna altceva de la capitol la capitol.
Speram sa rezolv totul cu un macro.
Si bine inteles, mi-a scapat o boldare ce nu exista de fapt in "Initial" si trebuie sa fie in "Final"
Asa ca va trimit inca o data documentul si ce am modificat in macro de imi apare eroarea 5.
Tocmai incercam sa bricolez la macro-ul dvs. ca sa introduc si diacritice.
Asa cum era normal am pus doua " una dupa alta si mi-a dat eroare
Apoi ...
Run-time error '5':
Invalid procedure call or argument
Utilizarea Heading1 face "center" dar schimba si fontul, size, italic etc. ceea ce NU este necesar !!!
Alinierea initiala o fac eu, selectand tot si tragand sagetica de la bara cu pargrafe/taburi cu o jumatate de unitate.
In Word 2003, la "Replace" apare si optiunea Wildcards si VB-ul "atasat" o suporta.
La macro-urile inregistrate automat apare asa: .MatchWildcards = True sau False.
Stiam de posibilitatea din Styles & Formating, dar daca o folosesc nu imi introduce si cele doua ^13, inainte de "Capitol" si dupa descrierea lui (al doilea rand centrat). Adica trebuie sa le bag manual la 50-60 de "Capitol/Sectiune".
Chiar daca dau "replace all" "Capitol" cu "^13Capitol", randul al doilea este intodeauna altceva de la capitol la capitol.
Speram sa rezolv totul cu un macro.
Si bine inteles, mi-a scapat o boldare ce nu exista de fapt in "Initial" si trebuie sa fie in "Final"
Asa ca va trimit inca o data documentul si ce am modificat in macro de imi apare eroarea 5.
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.
Re: Centrare caractere
Incercati, va rog, urmatorul cod. E valabil doar pentru titlul sectiunea. Voi completa si pentru randul urmator. Nu am insa Word2003 in acest moment la dispozitie. Si n-am incercat niciodata in 2003 sa folosesc Wildcards.
(Scuze, am raspuns de pe un alt cont. Tot eu sunt si Dr.Word)
Cod: Selectaţi tot
Sub findCapitol2()
'
' findCapitol Macro
'
'
Selection.Find.ClearFormatting
Selection.Find.Style = ActiveDocument.Styles("Normal")
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Style = ActiveDocument.Styles("Heading 1")
With Selection.Find
.Text = "SEC?IUNEA"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Style = ActiveDocument.Styles("Heading 1")
End Sub
D. Tanase
MCT, MCTS
MOS Master Instructor
MCT, MCTS
MOS Master Instructor