2 metoder for å sentrere alle bilder og tekstbokser i Word-dokumentet ditt

I denne artikkelen vil vi introdusere deg med 2 metoder for å sentrere alle bilder og tekstbokser i Word-dokumentet.

Bilder og former, som for eksempel tekstbokser, spiller en avgjørende rolle i å lage et flott dokument. Med et økende antall bilder og former som settes inn, begynner behovet for å integrere formateringen, for eksempel å sentrere dem, å dukke opp.

Det du bør vite er at alle bilder som settes inn i dokumentet er satt i "I tråd med tekst"-layout, mens tekstbokser er flytende former. Du kan endre bildeoppsettet etter behov, men for å sentrere dem må du vurdere tekstbrytingen. Fordi tekstformatering enkelt kan tukles, slik at du får en layout du ikke liker.

Derfor vil vi fokusere på 2 måter å sentrere «I tråd med tekst»-bilder og tekstbokser.

Metode 1: Sentrer ett bilde eller en tekstboks manuelt

Følg disse trinnene for å sentrere et "I tråd med tekst"-bilde:

1. Først klikker du på bildet for å velge det.
2. For det andre klikker du på "Senter" i "Avsnitt"-gruppen under fanen "Hjem". Eller du kan bruke snarveiene "Ctrl + E" i stedet.

Gå deretter gjennom disse instruksjonene for å sentrere en tekstboks:

1. På samme måte klikker du på tekstboksen for å velge den.
2. Klikk deretter på "Format"-fanen under "Tegneverktøy".
3. Klikk deretter på "Align" i "Arrange"-gruppen.
4. Og velg "Align Center" på rullegardinmenyen.

Metode 2: Batch Center flere bilder eller tekstbokser automatisk

De fleste av oss ville foretrukket en automatisk prosess for å spare innsats. Vær så god.

1. Først av, trykk "Alt + F11" for å åpne VBA-editoren.
2. Klikk deretter på "Normal" prosjekt.
3. Klikk på "Sett inn"-fanen og velg "Modul".
4. Dobbeltklikk deretter på modulen for å få frem redigeringsplassen på høyre side.
5. Ved siden av senterbildene limer du inn følgende koder der:

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

For å sentrere alle tekstbokser trenger du makroen nedenfor:

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

For å sentrere både bilder og tekstbokser, må du bruke denne:

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. Til slutt klikker du på "Kjør"-knappen eller trykker på "F5".

Løs dokumentproblemer

Uansett hvor motvillige vi må innrømme at Word ikke er idiotsikkert. Dens nedbrytning kan føre til korrupsjon av dokumenter mens du arver en ødelagt docx kan være knust for oss. For å lette slik angst, er det tilrådelig å få tak i et dokumentgjenopprettingsverktøy på forhånd. Da trenger du ikke å bekymre deg for tap av data.

Forfatterintroduksjon:

Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert xlsx korrupsjon og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med