2 metode inteligente pentru a șterge conținutul între două cuvinte specifice din documentul Word

În acest articol, am dori să vă demonstrăm 2 moduri inteligente de a șterge conținutul dintre 2 cuvinte specifice din documentul dvs. Word.

În articolul nostru anterior, am discutat despre abordarea de a le extrage într-un alt document. Pentru detalii, puteți consulta această post: Cum să extrageți conținut între două cuvinte specifice dintr-un document Word în altul

Și astăzi, vom ilustra 2 moduri de a șterge conținutul dintre două cuvinte specifice din documentul Word. Totuși, să vedem unde sunt scenariile aplicației.

1. În primul rând, avem tendința de a pune text între paranteze. Și după un timp, poate fi necesar să le ștergeți sau să le rescrieți, cum ar fi mai jos:
2. În al doilea rând, în unele fișiere jurnal sau rapoarte de laborator, poate fi necesar să ștergeți textul dintre 2 cuvinte specifice. De exemplu, în captura de ecran de mai jos, poate fi necesar să ștergeți textele roșii dintre „Comentariu:” și „Valoare:”.

Acum iată 2 abordări.

Metoda 1: Folosiți funcția „Găsiți și înlocuiți”.

1. În primul rând, apăsați „Ctrl + H” pentru a deschide caseta „Găsiți și înlocuiți”.
2. În caseta de text „Găsiți ce”, introduceți primul cuvânt, „*” și al doilea cuvânt. În cazul nostru, ar trebui să introducem „Comentariu:*Valoare:”.
3. Apoi, în caseta de text „Înlocuire cu”, introduceți cuvintele pe care doriți să le păstrați. De exemplu, pentru a șterge numai conținutul dintre cuvinte, trebuie să introduceți primul și al doilea cuvânt în caseta „Înlocuiește cu”, cum ar fi „Valoare comentariu”. Sau puteți alege să ștergeți și cele 2 cuvinte, lăsând caseta „Înlocuiți cu” goală.
4. Apoi faceți clic pe „Mai multe” pentru a afișa mai multe opțiuni.
5. Apoi bifați caseta „Utilizați caractere metalice” și faceți clic pe „Înlocuiți toate”.

Metoda 2: Rulați coduri VBA

1. În primul rând și înainteost, apăsați „Alt+ F11” pentru a declanșa editorul VBA în Word.
2. Apoi faceți clic pe proiect „Normal” și apoi pe fila „Inserare” din bara de meniu.
3. Apoi alegeți „Modul” din meniul derulant „Insert”.
4. Faceți dublu clic pe modul pentru a-l deschide și lipiți următoarele coduri acolo:

Sub DeleteTextBetweenTwoWords() Dim strFirstWord As String Dim strLastWord As String Dim objDoc As Document Dim objWord As Object Set objDoc = ActiveDocument strFirstWord = InputBox("Introduceți primul cuvânt:", =strFirst the WordWor("d) :", „Ultimul cuvânt") Cu selecție .HomeKey Unit:=wdStory Cu selecție.Găsește .ClearFormatting .Replacement.ClearFormatting .Text = strFirstWord & "*" & strLastWord .Replacement.Text = strFirstWord .Extcard =Word .ExtrEscute Replace:=wdReplaceAll End With End With Set objDoc = Nimic Set objWord = Nimic End Sub

5. Și faceți clic pe „Run” sau apăsați „F5” pentru a executa coduri.
6. Acum, în caseta „Primul cuvânt”, introduceți primul cuvânt. Și faceți clic pe „OK” pentru a continua.
7. În mod similar, în caseta „Ultimul cuvânt”, introduceți ultimul cuvânt. Faceți clic pe „OK” pentru a continua.

Notă:

Pentru a șterge și cele 2 cuvinte, puteți înlocui această linie de cod:

.Replacement.Text = strFirstWord & strLastWord

La

.Replacement.Text = ""

Ștergeți conținutul dintre paranteze

1. Urmați pașii de mai sus pentru a instala și rula o macrocomandă.
2. În schimb, rulați această macrocomandă:

Sub DeleteTextInAngleBrackets() With Selection .HomeKey Unit:=wdStory With Selection.Find .ClearFormatting .Replacement.ClearFormatting .Text = "\<(*)\>" .MatchWildcards = True .Replacement.Replacement.Text = "<>"Inlocuire. :=wdReplaceAll End With End With End Sub

Macrocomanda de mai sus este dedicată ștergerii textului dintre paranteze unghiulare (<>).

Cu siguranță, în documentul dvs. pot exista multe tipuri de paranteze.

Pentru bretele { }:

Înlocui

.Text = "\<(*)\>" .Înlocuire.Text = "<>"

cu

.Text = „\{(*)\}” .Înlocuire.Text = „{}”

Pentru paranteze ( ):

Folosiți aceste 2 rânduri

.Text = „\((*)\)” .Înlocuire.Text = „()”

Pentru paranteze drepte [ ]:

.Text = „\[(*)\]” .Înlocuire.Text = „[]”

Faceți backup pentru fișierele dvs. acum

Este întotdeauna bine să iei măsuri de precauție înainte să se întâmple ceva rău. Și să faceți copii de rezervă ale documentelor Word vă va permite să recurgeți la cea mai recentă versiune de date în cazul în care apare vreun dezastru. Apoi puteți utiliza un instrument pentru a repara Word fără prea multă anxietate.

Introducerea autorului:

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