2 metoder för att centrera alla bilder och textrutor i ditt Word-dokument

I den här artikeln vill vi presentera dig med två metoder för att centrera alla bilder och textrutor i ditt Word-dokument.

Bilder och former, som textrutor, spelar en avgörande roll för att skapa ett fantastiskt dokument. Med ett växande antal bilder och former som infogas börjar behovet av att integrera deras formatering, till exempel att centrera dem, uppstå.

Vad du bör veta är att alla bilder som sätts in i dokumentet är inställda i "I linje med text" -layout, medan textrutor är flytande former. Du kan ändra bildlayouten efter behov, men för att centrera dem måste du överväga textinpackningen. Eftersom textformatering lätt kan manipuleras och lämnar dig med en layout du inte gillar.

Därför kommer vi att fokusera på två sätt att centrera bilder och textrutor i linje med text.

Metod 1: Centrera en bild eller textruta manuellt

Gör så här för att centrera en bild "I linje med text":

1. Klicka först på bilden för att välja den.
2. För det andra klickar du på "Mitt" i gruppen "Stycke" under fliken "Hem". Eller så kan du använda genvägarna "Ctrl + E" istället.

För att centrera en textruta, gå igenom dessa instruktioner:

1. Klicka också på textrutan för att välja den.
2. Klicka sedan på fliken "Format" under "Ritverktyg".
3. Klicka sedan på "Justera" i gruppen "Ordna".
4. Och välj "Align Center" på rullgardinsmenyn.

Metod 2: Batch Center flera bilder eller textrutor automatiskt

De flesta av oss skulle föredra en automatisk process för att spara tid. Varsågod.

1. Tryck först på “Alt + F11” för att öppna VBA-redigeraren.
2. Klicka sedan på “Normal” -projekt.
3. Klicka på fliken "Infoga" och välj "Modul".
4. Dubbelklicka sedan på modulen för att ta fram redigeringsutrymmet på höger sida.
5. Bredvid centrumbilder klistrar du in följande koder där:

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

För att centrera alla textrutor behöver du det böljande makrot:

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

För att centrera både bilder och textrutor måste du använda den här:

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. Slutligen, klicka på "Kör" -knappen eller tryck på "F5".

Adressdokumentproblem

Oavsett hur motvilliga vi måste erkänna att Word inte är idiotsäkert. Dess nedbrytning kan leda till korruption av dokument medan du ärver a skadad docx kan vara hjärtrasig för oss. För att lindra sådan ångest är det lämpligt att i förväg få tag på ett dokumentåterställningsverktyg. Då behöver du inte oroa dig för dataförlusten.

Författarintroduktion:

Vera Chen är en dataåterställningsexpert i DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive xlsx korruption och pdf reparera programvaruprodukter. För mer information besök www.datanumen.com