Ebben a post, örömmel mutatjuk be, hogyan adhat hozzá vagy törölhet több automatikus szöveg bejegyzést a Wordben.
A gyakran használt szövegeket felveheti az Automatikus szöveggalériába. Így legközelebb nem kell újra manuálisan beírnia ezeket a szövegeket. Ehelyett megtalálhatja a tarszerezzen be szöveget, és kattintson rá. És beilleszti őket abba a pozícióba, ahol a kurzor marad.
Most, ahogy a témánk is sugallja, szeretnénk bemutatni Önnek a módszert több automatikus szöveg bejegyzés köteggel történő hozzáadására vagy törlésére az értékes idő megtakarítása érdekében.
Több automatikus szövegbejegyzés kötegelt hozzáadása
- Először is létre kell hoznia egy 2 oszlopból álló táblázatot. Az első oszlopba írja be az AutoText bejegyzés nevét. És tegye a bejegyzés tartalmát a második oszlopba. Íme a bemutató:
- Következő lépésként nyissa meg a VBA-szerkesztőt az „Alt+F11” lenyomásával.
- Ezután kattintson a „Normál” projektre.
- Ezután kattintson a „Beszúrás” fülre a menüsorban, és válassza a „Modul” lehetőséget.
- Most kattintson duplán az új modulra a megnyitásához.
- Illessze be a következő kódokat:
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
- Végül kattintson a „Futtatás” gombra, vagy nyomja meg az „F5” gombot.
Ha elkészült, egy üzenetdobozt fog kapni, például az alábbiakat:
Nem fogja látni a hozzáadott bejegyzéseket az aktuális és az összes már megnyitott dokumentumban. A hatás megtekintéséhez új dokumentumot kell megnyitnia. Ezután ellenőrizheti az eredményt a „Beszúrás” fül „Gyors alkatrészek” elemére kattintva. Ezután válassza az „Automatikus szöveg” lehetőséget, és látni fogja, hogy a táblázat összes bejegyzése bekerült a galériába.
Több automatikus szöveg bejegyzés kötegelt törlése
A következő tartalomban bemutatjuk, hogyan törölhet több automatikus szöveg bejegyzést.
- Először is hozzon létre egy oszlopból álló táblázatot. És minden bejegyzés nevét egy cellába helyezze.
- Ezután ismételje meg a fenti 2-7 lépést. De ne felejtse el lecserélni a makrót erre:
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
Hasonlóképpen az utólag megnyitott új dokumentumokban is érvényesül.
Legyen nyugodt, ha adatvesztés történik
A számítógép-használat növekedésével az adatvesztés is évről évre megduzzad. Az adatvesztés veszélybe sodorhatja a karrierjét. Ez egy olyan frusztráló élmény, amellyel az ember soha többé nem akar majd találkozni. Aztán itt jön a fontossága doki javít. Mindig tartson előre egy javítószerszámot.
Szerző Bevezetés:
Vera Chen adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve Excel helyreállítás és a pdf javító szoftvertermékek. További információért látogasson el www.datanumen.com