Hvordan batchlegge til eller slette flere autotekstoppføringer i Word

I denne sost, vi er glade for å vise deg måten å legge til eller slette flere autotekstoppføringer i Word.

For tekster du bruker ofte, kan du bruke legg dem til i AutoText-galleriet. Så neste gang trenger du ikke å skrive alle disse tekstene manuelt på nytt. I stedet kan du finne tarfå tekstinntasting og klikk på den. Og du vil få dem satt inn i posisjonen der markøren blir stående.

Nå som emnet vårt antyder, ønsker vi å vise deg metoden for å legge til eller slette flere autotekstoppføringer for å spare verdifull tid.

Batch Legg til flere autotekstoppføringer

1. Først må du lage en tabell med 2 kolonner. Sett navn på autotekst i den første kolonnen. Og legg oppføringsinnholdet inn i den andre kolonnen. Her er demonstrasjonen:
2. Åpne deretter VBA-redigering ved å trykke "Alt+ F11".
3. Klikk deretter på "Normal" prosjekt.
4. Klikk deretter på "Sett inn"-fanen på menylinjen og velg "Modul".
5. Dobbeltklikk nå på den nye modulen for å åpne den.
6. Lim inn følgende koder:

Sub BatchAddAutoTextEntries()
  Dim objTable As Table
  Dim objEntry As Cell
  Dim objEntryRange As Range
  Dim objEntryNameRange As Range
  Dim nRowNumber As Integer
 
  Set objTable = ActiveDocument.Tables(1)
  nRowNumber = 1
  For Each objEntry In objTable.Columns(2).Cells 
    Set objEntryNameRange = objTable.Cell(nRowNumber, 1).Range
    objEntryNameRange.MoveEnd Unit:=wdCharacter, Count:=-1 
    Set objEntryRange = objEntry.Range
    objEntryRange.MoveEnd Unit:=wdCharacter, Count:=-1
    objEntryRange.Select 
    NormalTemplate.AutoTextEntries.Add Name:=objEntryNameRange.Text, _
                                             Range:=Selection.Range
    nRowNumber = nRowNumber + 1
  Next objEntry
  MsgBox "All entries in the table are added to the gallery."
End Sub

7. Til slutt klikker du på "Kjør" eller trykker på "F5".

Når det er ferdig, vil du motta en meldingsboks som nedenfor:

Du vil ikke kunne se de lagte oppføringene i gjeldende og alle dokumenter som allerede er åpnet. For å se effekten må du åpne et nytt dokument. Deretter kan du sjekke resultatet ved å klikke "Quick Parts" under "Sett inn"-fanen. Velg deretter "Autotekst" og du vil se alle oppføringer i tabellen er lagt til i galleriet.

Batch-slett flere autotekstoppføringer

I det følgende innholdet vil vi vise deg måten å batchslette flere autotekstoppføringer på.

1. Først av alt, lag en tabell med én kolonne. Og legg inn hvert oppføringsnavn i én celle.
2. Gjenta deretter fra trinn 2 til 7 ovenfor. Men husk å erstatte makro med denne:

Sub BatchDeleteAutoTextEntries()
  Dim objTable As Table
  Dim objEntry As Cell
  Dim objEntryNameRange As Range
  Dim objEntryRange As Range
  Dim nRowNumber As Integer
 
  Set objTable = ActiveDocument.Tables(1)
  nRowNumber = 1
  For Each objEntry In objTable.Columns(1).Cells
    Set objEntryNameRange = objTable.Cell(nRowNumber, 1).Range
    objEntryNameRange.MoveEnd Unit:=wdCharacter, Count:=-1
    On Error Resume Next
    NormalTemplate.AutoTextEntries.Item(objEntryNameRange.Text).Delete
    nRowNumber = nRowNumber + 1
  Next objEntry
  MsgBox "All entries in the table are deleted from the gallery."
End Sub

På samme måte trer den i kraft i nye dokumenter som åpnes i etterkant.

Hold deg kjølig når datatap oppstår

Etter hvert som bruken av datamaskiner øker, øker også tap av data hvert år. Datatap kan sette karrieren på spill. Det er en så frustrerende opplevelse som man aldri vil møte igjen. Så her kommer viktigheten av doc fikse. Du bør alltid ha et reparasjonsverktøy på forhånd.

Forfatterintroduksjon:

Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert Excel-gjenoppretting og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med