Word hujjatidagi barcha matn qutilarida matn formatini to'plamli o'zgartirishning 3 usuli

Quyida ushbu maqolada Word hujjatingizdagi barcha matn maydonlarida matn formatini ommaviy ravishda o'zgartirishning 3 usulini ko'rsatmoqchimiz.

Matn qutilari ko'pincha hujjatlarda ko'rinadi. Hujjat matnlarini formatlashda biz matn qutilaridagilarni unuta olmaymiz. Biroq, hujjatdagi matn maydonchalari tarqalib ketishi sizni ichidagi barcha matnlarni bir marta va umuman tanlashni qiyinlashtirishi mumkin. Shuning uchun, formatlash maqsadlaridan tashqari, ommaviy ishlov berish uchun qandaydir hiyla-nayrangni o'rganish kerak.

1-usul: “Kengaytirilgan qidiruv” funksiyasidan foydalaning

1. Avvalo, "Uy" yorlig'ini bosing va "Tahrirlash" guruhidagi "Topish" buyrug'i orqasidagi o'q tugmasini bosing.
2. Keyin ochiladigan ro'yxatda "Topish va almashtirish" dialog oynasini ochish uchun "Kengaytirilgan topish" ni tanlang.
3. Kursorni “Nima top” matn maydoniga qo‘ying va “^?” kiriting. U yerda.
4. Keyin "Topish" tugmasini bosing va "Asosiy hujjatdagi matn qutilari" ni tanlang.
5. Endi siz matn maydonlaridagi barcha matnlar tanlanganligini ko'rishingiz mumkin. Agar siz "Nimani toping" oynasiga qo'yiladigan satrni unutib qo'ysangiz, "Ko'proq" tugmasini bosib, qutidagi qo'shimcha variantlarni oching va keyin "Maxsus" tugmasini bosing. Keyin "Har qanday belgi" ni tanlang.
6. Tanlangan barcha matnlar bilan ularni faqat kerakli tarzda formatlang.

2-usul: Bitta hujjatdagi barcha matn qutilaridagi matn formatini ommaviy ravishda o'zgartirish

1. Boshlash uchun VBA muharririni ishga tushirish uchun Word dasturida "Alt + F11" tugmalarini bosing.
2. Keyin "Oddiy" tugmasini bosing.
3. Keyin "Qo'shish" yorlig'ini bosing va "Modul" ni tanlang.
4. Va yangi modulni ikki marta bosing va u erga quyidagi makroni joylashtiring:

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. Nihoyat, "Ishga tushirish" tugmasini bosing.

Ushbu makros "Arial" shriftidagi barcha matn maydoni matnlarini 16 pt qilib o'rnatadi. Agar kerak bo'lsa, bu sozlamalarni o'zgartirishingiz mumkin.

3-usul: Bir nechta hujjatlardagi barcha matn qutilarida matn formatini to'plamli o'zgartirish

Endi biz ommaviy ishlov berish haqida gapiramiz, biz bir nechta fayllar orasida buni qilish zaruratini bartaraf eta olmaymiz.

1. Birinchidan, barcha maqsadli hujjatlarni bitta katalog ostida joylashtiring.
2. 2-usulda bo'lgani kabi so'lni o'rnating va ishga tushiring. Bu safar o'sha kodlarni quyidagi kodlar bilan almashtiring:

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. Makrosni ishga tushirayotganda kirish oynasi paydo bo'ladi, masalan:
4. Matn maydoniga papka manzilini kiriting va "OK" tugmasini bosing. Yo'l satrining oxiriga "\" qo'shishni unutmang. Keyin Word o'z vazifasini bajarishini kuting.

Iloji boricha to'liq tayyorgarlik ko'ring

Faylingiz buzilgani haqida o'ylash qiyinligini tushunamiz. Biroq, rostini aytganda, nisbatan yuqori bo'lgan bu imkoniyatni hech qachon e'tibordan chetda qoldira olmaymiz. Qanday bo'lmasin, profilaktika choralarini ko'rish bir sakrashdan ko'ra kamroq muammoli doc tuzatish vositasi.

Muallif kirish:

Vera Chen - ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc Excelni tuzatish va pdf dasturiy mahsulotlarni ta'mirlash. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com