U ovom članku želimo vam predstaviti 2 metode za centriranje svih slika i tekstnih okvira u vašem Word dokumentu.
Slike i oblici, poput tekstualnih okvira, igraju ključnu ulogu u izradi prekrasnog dokumenta. S rastućim brojem slika i oblika koji se umeću, počinje se pojavljivati potreba za integriranjem njihovog formatiranja, recimo centriranjem.
Ono što biste trebali znati je da su sve slike umetnute u dokument postavljene u rasporedu "U skladu s tekstom", dok su tekstualni okviri tekućih oblika. Možete promijeniti izgled slike prema potrebi, ali da biste ih centrirali, morat ćete uzeti u obzir prelamanje teksta. Budući da se oblikovanje teksta može lako mijenjati, ostavljajući vam izgled koji vam se ne sviđa.
Stoga ćemo se usredotočiti na 2 načina centriranja slika i tekstnih okvira "U skladu s tekstom".
Metoda 1: Centrirajte jednu sliku ili tekstualni okvir ručno
Da biste centrirali sliku "U skladu s tekstom", slijedite ove korake:
- Najprije kliknite na sliku da biste je odabrali.
- Drugo, kliknite "Centriraj" u grupi "Odlomak" pod karticom "Početna". Ili umjesto toga možete koristiti prečace “Ctrl+E”.
Zatim za centriranje tekstualnog okvira prođite kroz ove upute:
- Slično, kliknite na tekstni okvir da biste ga imali u odabiru.
- Zatim kliknite karticu "Format" pod "Alati za crtanje".
- Zatim kliknite "Poravnaj" u grupi "Rasporedi".
- I odaberite "Poravnaj centar" na padajućem izborniku.
Metoda 2: Skupno centriranje više slika ili tekstualnih okvira automatski
Većina nas bi radije koristila automatski proces kako bismo uštedjeli trud. Izvolite.
- Prvo pritisnite “Alt+ F11” da biste otvorili VBA editor.
- Zatim kliknite "Normalni" projekt.
- Kliknite karticu "Umetni" i odaberite "Modul".
- Zatim dvaput kliknite na modul kako biste prikazali prostor za uređivanje s desne strane.
- Pored središnjih slika zalijepite sljedeće kodove:
Sub CenterInLinePictures()
Dim objInLineShape As InlineShape
Dim objDoc As Document
Set objDoc = ActiveDocument
For Each objInLineShape In objDoc.InlineShapes
objInLineShape.Select
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Next objInLineShape
End Sub
Za centriranje svih tekstnih okvira potrebna vam je sljedeća makronaredba:
Sub CenterTextBoxes()
Dim objDoc As Document
Dim objTextBox As Shape
Set objDoc = ActiveDocument
For Each objTextBox In objDoc.Shapes
If objTextBox.Type = msoTextBox Then
objTextBox.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
objTextBox.Left = wdShapeCenter
End If
Next objTextBox
End Sub
Za centriranje slika i tekstnih okvira, morat ćete koristiti ovaj:
Sub CenterInLinePicturesAndTextBoxes()
Dim objInLineShape As InlineShape
Dim objShape As Shape
Dim objDoc As Document
Set objDoc = ActiveDocument
For Each objInLineShape In objDoc.InlineShapes
objInLineShape.Select
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Next objInLineShape
For Each objShape In objDoc.Shapes
If objShape.Type = msoTextBox Then
objShape.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
objShape.Left = wdShapeCenter
End If
Next objShape
End Sub
- Na kraju kliknite gumb "Pokreni" ili pritisnite "F5".
Rješavanje problema s dokumentima
Bez obzira koliko nerado moramo priznati da Word nije siguran. Njegov kvar može dovesti do oštećenja dokumenata tijekom nasljeđivanja a oštećen docx može nam biti slomljeno srce. Kako biste ublažili takvu tjeskobu, preporučljivo je unaprijed nabaviti alat za oporavak dokumenata. Tada se nećete morati brinuti o gubitku podataka.
Uvod za autora:
Vera Chen stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući xlsx korupcija i pdf popraviti softverske proizvode. Za više informacija posjetite www.datanumen.com





