Word Document дахь бүх текстийн хайрцагт текстийн форматыг багцлан өөрчлөх 3 арга

Доорх энэ нийтлэлд бид Word баримтын бүх текст хайрцагт текст форматыг багцаар өөрчлөх 3 аргыг харуулахыг хүсч байна.

Баримт бичигт текст хайрцаг ихэвчлэн харагддаг. Баримт бичгийн текстийг форматлахын зэрэгцээ бид текст хайрцагт байгаа текстүүдийг мартаж болохгүй. Гэсэн хэдий ч, текст хайрцагнууд баримт бичигт тархсан нь таныг доторх бүх текстийг нэг удаа, бүрмөсөн сонгоход хэцүү болгодог. Тиймээс форматлах зорилгоос гадна багц боловсруулалт хийх ямар нэгэн заль мэхийг яаралтай сурах хэрэгтэй.

Арга 1: "Нарийвчилсан хайлт" функцийг ашиглана уу

1. Юуны өмнө "Нүүр хуудас" таб дээр товшоод "Засварлах" бүлгийн "Find" командын ард байрлах сум товчийг дарна уу.
2. Унждаг жагсаалтаас "Нарийвчилсан хайлт" гэснийг сонгоод "Олох ба солих" харилцах цонхыг нээнэ үү.
3. Курсорыг "Юуг олох" текст талбар дээр тавиад "^?" гэж оруулна уу. Тэнд.
4. Дараа нь "Find In" товчийг дараад "Үндсэн баримт бичиг дэх текст хайрцаг" -ыг сонгоно уу.
5. Одоо та текст хайрцагт байгаа бүх текстийг сонгох боломжтой. Хэрэв та "Юуг олох" талбарт оруулах мөрийг мартаж болзошгүй бол "Дэлгэрэнгүй" товчийг дарж хайрцагт нэмэлт сонголтуудыг нээж, "Тусгай" дээр дарна уу. Дараа нь "Ямар ч дүр" -ийг сонгоно уу.
6. Сонгосон бүх бичвэрүүдтэй байхын тулд тэдгээрийг шаардлагатай хэлбэрээр форматлаарай.

Арга 2: Нэг баримтын бүх текст хайрцаг дахь текстийн форматыг багцаар өөрчлөх

1. Эхлэхийн тулд Word дээр "Alt" + "F11" товчийг дарж VBA засварлагчийг ажиллуулна уу.
2. Дараа нь "Хэвийн" дээр дарна уу.
3. Дараа нь "Insert" таб дээр дарж "Module" -г сонгоно уу.
4. Шинэ модуль дээр давхар товшоод доорх макрог наа:

Sub FormatTextsInTextBoxes()
  Dim objShape As Shape
  Dim objDoc As Document
 
  Set objDoc = ActiveDocument
 
  With objDoc
    For Each objShape In .Shapes
      If objShape.Type = msoTextBox Then
        objShape.TextFrame.TextRange.Font.Name = "Arial"
        objShape.TextFrame.TextRange.Font.Size = "16"
      End If
    Next
  End With
End Sub

5. Эцэст нь "Ажиллуулах" дээр дарна уу.

Энэ макро нь "Arial" үсгийн фонтоор 16 pt хэмжээтэй бүх текстийн хайрцгийн текстийг тохируулдаг. Та эдгээр тохиргоог шаардлагатай бол өөрчилж болно.

Арга 3: Олон баримт бичгийн бүх текст хайрцаг дахь текстийн форматыг багцаар өөрчлөх

Одоо бид багц боловсруулалтын талаар ярьж байгаа тул олон файлын дунд үүнийг хийх хэрэгцээг арилгаж чадахгүй.

1. Эхлээд бүх зорилтот баримт бичгүүдийг нэг лавлах дор байрлуул.
2. Дараа нь 2-р аргын дагуу макро суулгаад ажиллуулна уу. Энэ удаад эдгээр кодыг дараах кодоор солино уу:

Sub FormatTextsInTextBoxesInMultiDoc()
  Dim strFile As String
  Dim strFolder As String
  Dim objDoc As Document
 
  '  Initialization
  strFolder = InputBox("Enter folder path here: ")
  strFile = Dir(strFolder & "*.docx", vbNormal)
 
  '  Process each file in the folder.
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & strFile)
    Set objDoc = ActiveDocument
 
    With objDoc
      For Each objShape In .Shapes
        If objShape.Type = msoTextBox Then
          objShape.TextFrame.TextRange.Font.Name = "Arial"
          objShape.TextFrame.TextRange.Font.Size = "16"
        End If
      Next
    End With
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
End Sub

3. Макро ажиллуулж байх үед оруулах цонх гарч ирнэ, тухайлбал доорх:
4. Текст талбарт хавтасны хаягийг оруулаад "OK" дээр дарна уу. Замынхаа төгсгөлд "\" нэмэхээ бүү мартаарай. Дараа нь Word-ыг ажлаа хийхийг хүлээх л үлдлээ.

Боломжтой үедээ бүрэн бэлтгэлээ хий

Таны файл эвдэрсэн талаар бодоход хэцүү гэдгийг бид ойлгож байна. Гэсэн хэдий ч үнэнийг хэлэхэд харьцангуй өндөр байгаа энэ боломжийг бид хэзээ ч үл тоомсорлож чадахгүй. Ямар ч байсан урьдчилан сэргийлэх арга хэмжээ авах нь тойрон эргэлдэхээс хамаагүй бага асуудал юм док засварлах хэрэгсэл.

Зохиогчийн танилцуулга:

Вера Чен бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. Excel-ийг засах болон pdf програм хангамжийн бүтээгдэхүүнийг засах. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com