V tem članku vam želimo predstaviti 2 načina za centriranje vseh slik in besedilnih polj v Wordovem dokumentu.
Slike in oblike, kot so polja z besedilom, igrajo ključno vlogo pri ustvarjanju čudovitega dokumenta. Z naraščajočim številom vstavljenih slik in oblik se začne pojavljati potreba po integraciji njihovega oblikovanja, na primer po centriranju.
Vedeti morate, da so vse slike, vstavljene v dokument, nastavljene v postavitvi »V skladu z besedilom«, medtem ko so besedilna polja tekočih oblik. Po potrebi lahko spremenite postavitev slik, a če jih želite srediti, boste morali upoštevati prelom besedila. Ker lahko oblikovanje besedila zlahka popravite, tako da imate postavitev, ki vam ni všeč.
Zato se bomo osredotočili na dva načina za centriranje slik in besedilnih polj »V skladu z besedilom«.
1. način: ročno centriranje ene slike ali besedilnega polja
Če želite centrirati sliko »V skladu z besedilom«, sledite tem korakom:
- Najprej kliknite na sliko, da jo izberete.
- Drugič, kliknite »Na sredino« v skupini »Odstavek« pod zavihkom »Domov«. Lahko pa namesto tega uporabite bližnjico »Ctrl+ E«.
Če želite polje z besedilom srediti, sledite tem navodilom:
- Podobno kliknite besedilno polje, da ga imate v izboru.
- Nato kliknite zavihek »Oblika« pod »Orodja za risanje«.
- Nato kliknite »Poravnaj« v skupini »Razporedi«.
- In v spustnem meniju izberite »Poravnaj na sredino«.
2. način: Samodejno paketno centriranje več slik ali besedilnih polj
Večina nas bi raje izbrala samodejni postopek, da bi prihranili trud. Izvolite.
- Najprej pritisnite »Alt + F11«, da odprete urejevalnik VBA.
- Nato kliknite projekt »Normal«.
- Kliknite zavihek »Vstavi« in izberite »Modul«.
- Nato dvakrat kliknite na modul, da prikažete prostor za urejanje na desni strani.
- Zraven sredinskih slik prilepite naslednje kode:
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 vseh besedilnih polj potrebujete naslednji makro:
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 slik in besedilnih polj boste morali uporabiti to:
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
- Nazadnje kliknite gumb »Zaženi« ali pritisnite »F5«.
Odpravite težave z dokumenti
Ne glede na to, kako neradi moramo priznati, da Word ni zanesljiv. Njegova okvara lahko povzroči poškodbe dokumentov med dedovanjem a poškodovan docx lahko za nas zlomljeno srce. Da bi olajšali takšno tesnobo, je priporočljivo, da si vnaprej zagotovite orodje za obnovitev dokumentov. Potem vam ne bo treba skrbeti za izgubo podatkov.
Uvod avtorja:
Vera Chen je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z xlsx korupcija in pdf popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com




