Word sənədindəki bütün mətn qutularında mətn formatının toplu dəyişdirilməsinin 3 yolu

Aşağıdakı bu məqalədə biz sizə Word sənədinizdəki bütün mətn qutularında mətn formatını toplu şəkildə dəyişdirməyin 3 yolunu göstərmək istəyirik.

Mətn qutuları tez-tez sənədlərdə görünür. Sənəd mətnlərini formatlaşdırarkən mətn qutularında olanları unuda bilmərik. Bununla belə, sənəddə səpələnmiş mətn qutuları içəridəki bütün mətnləri birdəfəlik seçməyinizi çətinləşdirə bilər. Buna görə də, formatlaşdırma məqsədləri xaricində, toplu emal etmək üçün bəzi hiylələri öyrənmək təcilidir.

Metod 1: "Qabaqcıl Tapma" funksiyasından istifadə edin

1. İlk növbədə, "Ev" sekmesini basın və "Redaktə" qrupunda "Tap" əmrinin arxasındakı ox düyməsini basın.
2. Sonra açılan siyahıda, "Tap və Dəyişdir" informasiya qutusunu açmaq üçün "Ətraflı Tap" seçin.
3. Kursoru "Nə tapın" mətn qutusuna qoyun və "^?" orada.
4. Sonra "Tap" düyməsini basın və "Əsas sənəddə mətn qutuları" seçin.
5. İndi mətn qutularındakı bütün mətnlərin seçimdə olduğunu görə bilərsiniz. “Nə tapın” qutusuna qoyulacaq sətri unuda bilsəniz, qutuda daha çox seçim açmaq üçün “Daha çox” düyməsini və sonra “Xüsusi” düyməsini sıxa bilərsiniz. Sonra "Hər hansı bir simvol" seçin.
6. Seçilmiş bütün mətnlərlə, sadəcə onları tələb olunduğu kimi formatlaşdırın.

Metod 2: Bir Sənəddə Bütün Mətn Qutularında Mətn Formatını Toplu Dəyişdirin

1. Başlamaq üçün VBA redaktorunu işə salmaq üçün Word-də "Alt" + "F11" düymələrini basın.
2. Sonra "Normal" düyməsini basın.
3. Sonra "Daxil et" sekmesini vurun və "Modul" seçin.
4. Və yeni modulun üzərinə iki dəfə klikləyin və aşağıdakı makronu ora yapışdırın:

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. Nəhayət, "Çalıştır" düyməsini basın.

Bu makro bütün mətn qutusunun mətnlərini “Arial” şriftində 16 pt ölçüsündə təyin edir. Bu parametrləri ehtiyac olduqda dəyişə bilərsiniz.

Metod 3: Çoxlu Sənədlərdəki Bütün Mətn Qutularında Mətn Formatını Toplu Dəyişdirin

İndi biz toplu emal haqqında danışırıq, biz bunu bir neçə fayl arasında etmək ehtiyacını aradan qaldıra bilmərik.

1. Əvvəlcə bütün hədəf sənədləri eyni qovluqda yerləşdirin.
2. Sonra 2-ci üsulda etdiyiniz kimi makronu quraşdırın və işə salın. Bu dəfə həmin kodları aşağıdakılarla əvəz edin:

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. Makronu işlədərkən, aşağıdakı kimi bir giriş qutusu tələb olunacaq:
4. Mətn qutusuna qovluq ünvanını daxil edin və "OK" düyməsini basın. Yol sətirinizin sonuna “\” işarəsi əlavə etməyi unutmayın. Sonra Word-ün işini görməsini gözləyin.

Bacardıqca Tam Hazırlıq Edin

Faylınızın korlandığını düşünməyin belə çətin olduğunu başa düşürük. Lakin, düzünü desəm, nisbətən yüksək olan bu ehtimalı heç vaxt nəzərdən qaçıra bilmərik. Hər halda, profilaktik tədbirlər görmək, hoppanmaqdan daha az problemlidir doc fix aracı.

Müəllif Giriş:

Vera Çen məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc Excel-i düzəldin və pdf proqram məhsullarının təmiri. Ətraflı məlumat üçün ziyarət edin www.datanumen.com