2 moduri rapide de a extrage texte cu aceeași culoare din documentul Word

În postarea de astăzi, suntem încântați să vă împărtășim 2 metode rapide pentru a extrage texte de aceeași culoare din documentul Word.

Din când în când, în timp ce formatăm un document Word, este posibil să aplicăm culoarea fontului pentru unele texte, astfel încât să le scoatem pentru o atenție suplimentară. De obicei, aceste cuvinte colorate sunt conținuturi importante care merită din nou revizuirea ta. Atunci ce zici de exportarea și colectarea lor în altă parte pentru o verificare clară mai târziu?

Cu accent pe această cerere, vă sugerăm 2 comenzi rapide rapide în loc de acțiuni nesfârșite de tăiere și lipire.

Metoda 1: Utilizați funcția „Găsiți”.

1. Mai întâi, faceți clic pe fila „Acasă”.
2. Apoi accesați grupul „Editare” pentru a face clic pe butonul triunghi invers de lângă „Găsiți”.
3. Apoi alegeți „Căutare avansată” din listă.
4. În caseta de dialog „Găsiți și înlocuiți”, plasați cursorul în caseta de text „Găsiți ce” și ștergeți orice conținut de acolo, dacă există.
5. Apoi faceți clic pe butonul „Mai multe”.
6. Acum faceți clic pe butonul „Format” și alegeți „Font”.
7. În caseta de dialog „Găsiți font”, faceți clic pe butonul drop-down din spatele „Culoarea fontului” pentru a alege culoarea exactă pe care o atribuiți textelor.
8. Nu uitați să faceți clic pe „OK”.
9. Acum reveniți la caseta „Găsiți și înlocuiți” și faceți clic pe „Găsiți în”.
10. În cele din urmă, alegeți „Document principal”.

Apoi, toate textele în culoarea țintă vor fi selectate. Acum puteți apăsa „Ctrl+ C” pentru a le copia și apoi lipi într-o altă locație dintr-o dată.

Metoda 2: Executați o macrocomandă Word

1. În primul rând, faceți clic pe fila „Dezvoltator”.
2. Apoi faceți clic pe „Visual Basic” pentru a declanșa editorul VBA.
3. Apoi faceți clic pe „Normal” și apoi pe „Inserare”.
4. Alegeți „Modul” din meniu.
5. Apoi faceți dublu clic pe modul pentru a activa spațiul de codare.
6. Următoarele coduri de lipire:

Sub ExtractColoredTexts()
  Dim objDoc As Document, objDocAdd As Document
  Dim objRange As Range

  Set objDoc = ActiveDocument
  Set objDocAdd = Documents.Add
  objDoc.Activate

  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Font.Color = wdColorRed
      .Text = ""
      .Execute
    End With
  Do While .Find.Found
    Set objRange = Selection.Range
    objDocAdd.Range.InsertAfter objRange & vbCr
    .Collapse wdCollapseEnd
    .Find.Execute
  Loop
  End With
End Sub

7. Acum faceți clic pe butonul „Run”.

Va fi deschis un nou document cu toate textele extrase.

Notă: În linia de cod „.Font.Color = wdColorRed”, trebuie să înlocuiți „wdColorRed” cu culoarea reală a textelor dvs. Pentru referințe detaliate, puteți vizita această pagină: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColor

Adresă problema cuvântului

Majoritatea dintre noi suntem deja utilizatori frecvenți ai Word. Cu toate acestea, în ciuda acestui fapt, ne putem confrunta cu unele probleme dificile, cum ar fi prăbușirea Word. Aceasta este, fără îndoială, o problemă destul de serioasă, deoarece fișierele dumneavoastră critice pot fi în pericol. În astfel de circumstanțe, este sugerat să obțineți un Instrument de reparare a erorilor de date Word care va recupera datele Word în doar câteva minute.

Introducerea autorului:

Vera Chen este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv instrument de reparare a problemelor de date xls și pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com