Hvordan trekke ut innhold mellom to spesifikke ord fra ett Word-dokument til et annet

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å:

1. 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:   
2. 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

1. Først og fremstost, trykk "Alt+ F11" for å åpne VBA-redigering i Word.
2. Klikk deretter på "Normal" prosjekt i venstre kolonne.
3. Klikk deretter på "Sett inn"-fanen på menylinjen.
4. Velg "Modul" fra rullegardinmenyen.
5. 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

6. Klikk deretter "Kjør" eller trykk "F5" for å kjøre koder.
7. 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.
8. Klikk deretter "OK" for å gå til "Siste ord"-boksen.
9. 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:

1. Til start av, må du følge trinnene ovenfor for å installere og kjøre en makro.
2. 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

3. For firkantede parenteser [ ]:

Bare bytt ut denne kodelinjen:

.Tekst = "\{(*)\}"

Med:

.Tekst =\[(*)\]

4. Så for parenteser():

Erstatt den samme kodelinjen i trinn 3 med:

.Tekst = "\((*)\)"

5. 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