3 módszer a szövegformátum kötegelt módosítására a Word dokumentum összes szövegdobozában

Az alábbi cikkben 3 módot szeretnénk bemutatni a szövegformátum kötegelt megváltoztatására a Word-dokumentum összes szövegmezőjében.

A szövegdobozok gyakran láthatók a dokumentumokban. A dokumentumok szövegeinek formázása közben nem felejthetjük el azokat a szövegdobozokban. A dokumentumban szétszórt szövegdobozok azonban megnehezíthetik az összes szöveg egyszeri kijelölését. Ezért formázási okokból sürgősen meg kell tanulnunk néhány trükköt a kötegelt feldolgozáshoz.

1. módszer: Használja a „Speciális keresés” funkciót

1. Mindenekelőtt kattintson a „Kezdőlap” fülre, majd a „Szerkesztés” csoportban kattintson a „Keresés” parancs mögötti nyílra.
2. A legördülő listában válassza a „Speciális keresés” lehetőséget a „Keresés és csere” párbeszédpanel megnyitásához.
3. Vigye a kurzort a „Mit talál” szövegmezőre, és írja be a „^?” ott.
4. Ezután kattintson a „Keresés” gombra, és válassza a „Szövegdobozok a fő dokumentumban” lehetőséget.
5. Most láthatja, hogy a szövegmezőkben lévő összes szöveg ki van jelölve. Abban az esetben, ha elfelejti a „Keresse meg mit” mezőbe beírandó karakterláncot, kattintson a „Tovább” gombra a további lehetőségek megnyitásához a mezőben, majd kattintson a „Különleges” gombra. Ezután válassza a „Bármely karakter” lehetőséget.
6. Ha az összes szöveg ki van jelölve, csak formázza őket szükség szerint.

2. módszer: A szövegformátum kötegelt módosítása az összes szövegmezőben egy dokumentumban

1. A kezdéshez nyomja meg az „Alt + F11” billentyűkombinációt a Wordben a VBA szerkesztő elindításához.
2. Ezután kattintson a „Normál” gombra.
3. Ezután kattintson a „Beszúrás” fülre, és válassza a „Modul” lehetőséget.
4. Kattintson duplán az új modulra, és illessze be oda az alábbi makrót:

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. Végül kattintson a „Futtatás” gombra.

Ez a makró az összes szövegdoboz szövegét „Arial” betűtípussal 16 pontra állítja. Ezeket a beállításokat szükség szerint módosíthatja.

3. módszer: A szövegformátum kötegelt módosítása több dokumentum összes szövegdobozában

Most, hogy a kötegelt feldolgozásról beszélünk, nem tudjuk megszüntetni annak szükségességét, hogy ezt több fájl között végezzük.

1. Először is, rendezd az összes céldokumentumot ugyanabba a könyvtárba.
2. Következő lépésként telepítse és futtassa a makrót a 2. módszerben leírtak szerint. Ezúttal cserélje ki ezeket a kódokat a következőre:

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. A makró futtatása közben egy beviteli mező jelenik meg, például az alábbiak:
4. Írja be a mappa címét a szövegmezőbe, majd kattintson az „OK” gombra. Ne felejtsen el egy „\” karaktert hozzáadni az elérési út karakterláncának végéhez. Ezután csak várja meg, hogy a Word elvégezze a munkáját.

Készüljön fel teljesen, amíg teheti

Megértjük, hogy még csak gondolni is nehéz arra, hogy a fájlja megsérül. Azonban soha nem hagyhatjuk figyelmen kívül ezt a lehetőséget, amely őszintén szólva viszonylag magas. Mindenesetre kevésbé zavaró a megelőző intézkedések megtétele, mint egy ugrálás doki javít eszköz.

Szerző Bevezetés:

Vera Chen adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve javítsd ki az Excelt és a pdf javító szoftvertermékek. További információért látogasson el www.datanumen.com