2 metody wyśrodkowania wszystkich obrazów i pól tekstowych w dokumencie programu Word

W tym artykule chcielibyśmy przedstawić 2 metody wyśrodkowania wszystkich obrazów i pól tekstowych w dokumencie programu Word.

Obrazy i kształty, takie jak pola tekstowe, odgrywają kluczową rolę w tworzeniu wspaniałych dokumentów. Wraz ze wzrostem liczby wstawianych obrazów i kształtów, pojawia się zapotrzebowanie na integrację ich formatowania, na przykład wyśrodkowanie.

Warto wiedzieć, że wszystkie obrazki wstawiane do dokumentu są ustawione w układzie „W linii z tekstem”, a pola tekstowe to opływające kształty. Możesz zmienić układ obrazu według potrzeb, ale aby je wyśrodkować, musisz wziąć pod uwagę zawijanie tekstu. Ponieważ formatowanie tekstu można łatwo zmienić, pozostawiając układ, który Ci się nie podoba.

Dlatego skupimy się na 2 sposobach wyśrodkowania obrazów i pól tekstowych „Zgodnie z tekstem”.

Metoda 1: Wyśrodkuj ręcznie jeden obraz lub pole tekstowe

Aby wyśrodkować obraz „W linii z tekstem”, wykonaj następujące czynności:

1. Najpierw kliknij zdjęcie, aby je wybrać.
2. Po drugie, kliknij „Centrum” w grupie „Akapit” w zakładce „Strona główna”. Lub zamiast tego możesz użyć skrótów „Ctrl + E”.

Następnie, aby wyśrodkować pole tekstowe, wykonaj te instrukcje:

1. Podobnie kliknij pole tekstowe, aby je zaznaczyć.
2. Następnie kliknij kartę „Format” w obszarze „Narzędzia do rysowania”.
3. Następnie kliknij „Wyrównaj” w grupie „Ułóż”.
4. I wybierz „Wyrównaj do środka” z menu rozwijanego.

Metoda 2: Automatyczne grupowanie wielu obrazów lub pól tekstowych

Większość z nas wolałaby automatyzację, żeby zaoszczędzić czas. Proszę bardzo.

1. Najpierw naciśnij „Alt + F11”, aby otworzyć edytor VBA.
2. Następnie kliknij „Normalny” projekt.
3. Kliknij zakładkę „Wstaw” i wybierz „Moduł”.
4. Następnie kliknij dwukrotnie moduł, aby wydobyć przestrzeń edycyjną po prawej stronie.
5. Obok środkowych obrazków wklejasz tam następujące kody:

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

Aby wyśrodkować wszystkie pola tekstowe, potrzebujesz poniższego makra:

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

Aby wyśrodkować zarówno obrazy, jak i pola tekstowe, będziesz musiał użyć tego:

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. Na koniec kliknij przycisk „Uruchom” lub naciśnij „F5”.

Rozwiązywanie problemów z dokumentami

Bez względu na to, jak niechętnie musimy przyznać, że Word nie jest niezawodny. Jego uszkodzenie może prowadzić do uszkodzenia dokumentów podczas dziedziczenia uszkodzony docx może być dla nas złamane serce. Aby złagodzić ten niepokój, zaleca się wcześniejsze zdobycie narzędzia do odzyskiwania dokumentów. Wtedy nie będziesz musiał się martwić o utratę danych.

Wprowadzenie autora:

Vera Chen jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym xlsx korupcja i pdf oprogramowanie do naprawy. po więcej informacji odwiedź www.datanumen.com