2 tapaa keskittää kaikki kuvat ja tekstilaatikot Word-asiakirjassasi

Tässä artikkelissa haluamme esitellä sinulle kaksi tapaa keskittää kaikki kuvat ja tekstilaatikot Word-asiakirjassasi.

Kuvilla ja muodoilla, kuten tekstilaatikoilla, on ratkaiseva merkitys upean dokumentin luomisessa. Kuvien ja muotojen määrän kasvaessa niiden muotoilun integrointi, esimerkiksi keskittäminen, alkaa herättää kysymyksiä.

Sinun pitäisi tietää, että kaikki asiakirjaan lisätyt kuvat on asetettu "tekstin mukaiseksi" -asetteluksi, kun taas tekstilaatikot ovat virtaavia muotoja. Voit muuttaa kuvien asettelua tarpeen mukaan, mutta niiden keskittämiseksi sinun on harkittava tekstin rivitystä. Koska tekstin muotoilua voidaan helposti muokata, jolloin sinulle jää asettelu, josta et pidä.

Siksi keskitymme kahteen tapaan keskittää "tekstin mukaiset" kuvat ja tekstilaatikot.

Tapa 1: Keskitä yksi kuva tai tekstilaatikko manuaalisesti

Keskitä tekstin mukainen kuva seuraavasti:

1. Napsauta ensin kuvaa valitaksesi sen.
2. Toiseksi napsauta "Keski" "Koti"-välilehden "Kappale" -ryhmässä. Tai voit käyttää sen sijaan pikanäppäimiä “Ctrl+E”.

Keskitä sitten tekstiruutu noudattamalla näitä ohjeita:

1. Vastaavasti napsauta tekstiruutua saadaksesi sen valituksi.
2. Napsauta sitten "Muotoile" -välilehteä "Piirtotyökalut" -kohdassa.
3. Napsauta seuraavaksi "Align" "Järjestä"-ryhmässä.
4. Ja valitse "Align Center" sen avattavasta valikosta.

Tapa 2: Keskitä useita kuvia tai tekstiruutuja automaattisesti

Useimmat meistä suosisivat automaattista prosessia säästääkseen vaivaa. Tässä se on.

1. Ensinnäkin, paina “Alt + F11” avataksesi VBA-editorin.
2. Napsauta seuraavaksi Normaali-projekti.
3. Napsauta "Lisää" -välilehteä ja valitse "Moduuli".
4. Kaksoisnapsauta sitten moduulia tuodaksesi muokkaustilan esiin oikealla puolella.
5. Liitä keskikuvien viereen seuraavat koodit:

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

Kaikkien tekstiruutujen keskittämiseksi tarvitset seuraavan makron:

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

Keskittääksesi sekä kuvat että tekstilaatikot, sinun on käytettävä tätä:

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

6. Napsauta lopuksi "Suorita" -painiketta tai paina "F5".

Osoiteasiakirja-ongelmat

Vaikka kuinka vastahakoisesti meidän on myönnettävä, että Word ei ole idioottivarma. Sen rikkoutuminen voi johtaa asiakirjojen vioittumiseen periytyessään a vioittunut docx voi olla särkynyt meidän puolestamme. Tällaisen ahdistuksen helpottamiseksi on suositeltavaa hankkia dokumenttien palautustyökalu etukäteen. Silloin sinun ei tarvitse huolehtia tietojen katoamisesta.

Tekijän esittely:

Vera Chen on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien xlsx-korruptio ja pdf korjata ohjelmistotuotteita. Lisätietoja osoitteessa www.datanumen.com