Word құжатындағы барлық суреттер мен мәтін ұяларын ортаға салудың 2 әдісі

Бұл мақалада біз сізді Word құжатындағы барлық суреттер мен мәтін жолақтарын ортаға салудың 2 әдісімен таныстырғымыз келеді.

Мәтін өрістері сияқты суреттер мен пішіндер керемет құжат жасауда өте маңызды рөл атқарады. Кірістірілген суреттер мен пішіндер санының артуымен оларды пішімдеуді біріктіру, мысалы, оларды орталықтандыру қажеттілігі туындай бастайды.

Сіз білуіңіз керек нәрсе құжатқа енгізілген барлық суреттер «Мәтінге сәйкес» орналасуында орнатылады, ал мәтіндік өрістер пішіндер ағып тұрады. Сурет орналасуын қажетінше өзгертуге болады, бірақ олардың ортасына қою үшін мәтінді орау мүмкіндігін ескеру қажет. Өйткені мәтінді пішімдеу оңай бұрмалануы мүмкін, бұл сізге ұнамайтын орналасуды қалдырады.

Сондықтан біз «Мәтінге сәйкес» суреттері мен мәтін ұяшықтарын ортаға салудың 2 әдісіне тоқталамыз.

1-әдіс: Бір суретті немесе мәтін ұясын қолмен ортаға қойыңыз

«Мәтінге сәйкес» суретті ортаға қою үшін мына қадамдарды орындаңыз:

1. Алдымен суретті таңдау үшін оны басыңыз.
2. Екіншіден, «Басты» қойындысындағы «Параграф» тобындағы «Орталық» түймесін басыңыз. Немесе оның орнына «Ctrl+ E» пернелер тіркесімін пайдалануға болады.

Содан кейін мәтін жолағын ортасына қою үшін мына нұсқауларды орындаңыз:

1. Сол сияқты, оны таңдау үшін мәтін жолағын басыңыз.
2. Содан кейін «Сызу құралдары» астындағы «Формат» қойындысын басыңыз.
3. Содан кейін «Реттеу» тобындағы «Тегістеу» түймесін басыңыз.
4. Оның ашылмалы мәзірінен «Орталыққа туралау» таңдаңыз.

2-әдіс: Бірнеше суреттерді немесе мәтіндік қораптарды автоматты түрде пакеттік орталықтандыру

Көпшілігіміз күш-жігерімізді үнемдеу үшін автоматты процесті қалаймыз. Міне, басталды.

1. Алдымен VBA редакторын ашу үшін «Alt + F11» пернелерін басыңыз.
2. Әрі қарай «Қалыпты» жобасын басыңыз.
3. «Кірістіру» қойындысын басып, «Модуль» таңдаңыз.
4. Содан кейін оң жақтағы өңдеу кеңістігін шығару үшін модульді екі рет басыңыз.
5. Орталық суреттердің жанына келесі кодтарды қоясыз:

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

Барлық мәтін ұяларын ортасына қою үшін төмендегі макрос қажет:

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

Суреттер мен мәтін ұяларының ортасына қою үшін мынаны пайдалану керек:

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. Соңында «Іске қосу» түймесін басыңыз немесе «F5» түймесін басыңыз.

Құжат мәселелерін шешу

Қаншалықты құлықсыз болса да, Сөздің мінсіз емес екенін мойындауымыз керек. Оның бұзылуы мұрагерлік кезінде құжаттардың бұзылуына әкелуі мүмкін бүлінген docx біз үшін жүрегіміз жаралануы мүмкін. Мұндай алаңдаушылықты жеңілдету үшін құжатты қалпына келтіру құралын алдын ала алған жөн. Сонда деректердің жоғалуы туралы алаңдамайсыз.

Автордың кіріспесі:

Вера Чен - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. xlsx сыбайлас жемқорлық және pdf бағдарламалық жасақтама өнімдерін жөндеу. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com