I denne artikkelen vil vi vise deg måten å trekke ut innhold mellom to spesifikke ord fra ett Word-dokument til et annet.
Av og til må du trekke ut innhold mellom spesifikke ord ved noen anledninger. Følgende er 2 mulige tilfeller du kan støte på:
- Først, i en Word-tabell, for alle cellene i en kolonne som begynner og slutter med de samme 2 ordene, må du kanskje trekke ut bare den forskjellige midtdelen, for eksempel nedenfor:
- For det andre, i noen loggfiler med flere oppføringer, må du sannsynligvis bare pakke ut de du trenger. Deretter kan du spesifisere første og siste ord og bruke metoden i denne artikkelen for å få innholdet du trenger.
For å utføre en slik oppgave foretrekker vi å kjøre en Word-makro. Bare følg disse trinnene.
Trekk ut innhold mellom to ord
- Først og fremstost, trykk "Alt+ F11" for å åpne VBA-redigering i Word.
- Klikk deretter på "Normal" prosjekt i venstre kolonne.
- Klikk deretter på "Sett inn"-fanen på menylinjen.
- Velg "Modul" fra rullegardinmenyen.
- Dobbeltklikk for å angi kodeområdet til den nye modulen og lim inn disse kodene der:
Sub ExtractContentsBetweenTwoWords() Dim strFirstWord As String Dim strLastWord As String Dim objDoc As Document Dim objDocAdd As Document Dim objRange As Range ' Initialiser og lag et nytt tomt dokument. Set objDoc = ActiveDocument Set objDocAdd = Documents.Add objDoc.Activate ' Skriv inn første og siste ord. strFirstWord = InputBox("Skriv inn det første ordet:", "First Word") strLastWord = InputBox("Skriv inn det siste ordet:", "Siste ord") ' Finn og trekk ut innholdet og sett det inn i det nye dokumentet. With Selection .HomeKey Unit:=wdStory With Selection.Find .ClearFormatting .Text = strFirstWord & "*" & strLastWord .MatchWildcards = True .MatchWholeWord = True Do While .Execute Selection.MoveStart Unit:=wdCharacter, Count:=Len(strFirstWord) Selection.MoveEnd Unit:=wdCharacter, Count:=-Len(strLastWord) objDocAdd.Range.InsertEtter Selection.Range & vbNewLine Selection.Collapse wdCollapse End WithEnd
- Klikk deretter "Kjør" eller trykk "F5" for å kjøre koder.
- Skriv inn det første ordet i inntastingsboksen "Første ord". Husk at makroen skiller mellom store og små bokstaver. Så initialiser ordet om nødvendig.
- Klikk deretter "OK" for å gå til "Siste ord"-boksen.
- På samme måte, skriv inn ordet og klikk "OK". Ikke glem å følge den samme regelen for initialisering av ord i henhold til.
Det vil være et nytt dokument åpent og alt innhold som er hentet ut skal vises der.
Trekk ut innhold i parentes
Som vi har nevnt, er noe innhold i parentes. Så her er hva du kan gjøre:
- Til start av, må du følge trinnene ovenfor for å installere og kjøre en makro.
- Nå, i henhold til typen av en brakett, kan du velge tilsvarende makro nedenfor:
For tannregulering {}:
Sub ExtractContentsInBraces() Dim objDoc As Document Dim objDocAdd As Document Dim objRange As Range Set objDoc = ActiveDocument Set objDocAdd = Documents.Add objDoc.Activate With Selection .HomeKey Unit:=wdStory With Selection.Find .Clearplacement .CleTFormatting "\{(*)\}" .MatchWildcards = True Do While .Execute Selection.MoveStart Unit:=wdCharacter, Count:=1 Selection.MoveEnd Unit:=wdCharacter, Count:=-1 objDocAdd.Range.InsertEtter Selection.Range & vbNewLine Selection.Collapse wdCollapseEnd Loop End With End With End Sub
- For firkantede parenteser [ ]:
Bare bytt ut denne kodelinjen:
.Tekst = "\{(*)\}"
Med:
.Tekst =\[(*)\]
- Så for parenteser():
Erstatt den samme kodelinjen i trinn 3 med:
.Tekst = "\((*)\)"
- Og for vinkelbraketter<>:
Bruk denne linjen i stedet:
.Tekst = "\<(*)\>"
Håndtere en datakatastrofe
I et høyt tilkoblet Word som vårt er det viktig å ha datasikkerheten i tankene hele tiden. Dessuten må man vite hva man skal gjøre i tider med en datakatastrofe. Og ditt beste valg er å få en docx reparasjon verktøyet.
Forfatterintroduksjon:
Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert xls gjenoppretting og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med