Fjernelse Alle tekstfelter i et dokument

Hvis du gør en masse arbejde med dokumenter fra andre mennesker, kan du have behov for at fjerne tekstbokse i disse dokumenter. Hvis der kun er en eller to tekstbokse i dokumentet, er det ikke så svært at vælge dem og slette dem. Hvad hvis der er 30, 40 eller flere tekstbokse, selv? Sletning dem individuelt kan hurtigt få kedelige.

En mulig løsning er en "brutal kraft" -metoden. Følg disse trin:

  1. I dit dokument, skal du trykke på Ctrl + A. Hele dokument er valgt.
  2. Tryk på Ctrl + C. Dokumentet er nu i udklipsholderen.
  3. Åbn et nyt, tomt dokument.
  4. Vælg Indsæt speciel i menuen Rediger. Word viser dialogboksen Indsæt speciel. (Se figur 1.)

    Fjernelse Alle tekstfelter i et dokument

    Figur 1. dialogboksen Indsæt speciel.

  5. På listen over formater, vælg uformateret tekst.
  6. Klik på OK.

Dokumentet tekst, minus tekstboksene, er nu i det nye dokument. Den indlysende ulempe ved denne metode er, at den anden formatering af det originale dokument også er tabt, og du skal omformatere hele dokumentet. (Jeg fortalte dig det var en brute force metode.)

Hvis du ønsker at slippe af med kun de tekstbokse, så den hurtigste løsning er at bruge en makro. Følgende makro vil hurtigt fjerne alle tekstfelter i dokumentet:

Sub RemoveTextBox1 ()
Dim SHP Da Shape
For hver SHP I ActiveDocument.Shapes
Hvis shp.Type = msoTextBox Så shp.Delete
Næste SHP
End Sub

Du bør indse, at denne makro fjerner alle de tekstbokse og deres indhold. Med andre ord, hvis en tekstboks bruges til placering af tekst, så teksten i denne tekstboks slettes sammen med tekstfeltet selv.

Hvis du foretrækker at overføre teksten fra tekstfelterne til dokumentet, før du sletter tekstboksen, så en mindre ændring af ovenstående makro vil arbejde:

Sub RemoveTextBox2 ()
Dim SHP Da Shape
Dim oRngAnchor Som Range
Dim sString As String

For hver SHP I ActiveDocument.Shapes
Hvis shp.Type = msoTextBox Så
»Kopiere tekst til snor, uden sidste afsnitstegn
sString = Venstre (shp.TextFrame.TextRange.Text, _
shp.TextFrame.TextRange.Characters.Count - 1)
Hvis Len (sString)> 0 Derefter
'Sæt intervallet at indsætte teksten
Set oRngAnchor = shp.Anchor.Paragraphs (1) .Range
»Indsætte tekstfeltet tekst før intervallet objekt
oRngAnchor.InsertBefore _
"Tekstboks starte <> Tekstboks ende"
End hvis
shp.delete
End hvis
Næste SHP
End Sub

Når denne makro er færdig, kan du gøre en søgning efter "Tekstboks start" og du vil være i begyndelsen af ​​tekst, der plejede at være i tekstboksene, der nu gået fra dokumentet. Du kan derefter redigere teksten, så det ser ud som du ønsker.

WordTips er din kilde til omkostningseffektiv Microsoft Word træning. (Microsoft Word er det mest populære tekstbehandlingsprogram i verden.) Dette tip (1690) gælder for Microsoft Word 97, 2000, 2002, og 2003. Du kan finde en version af dette tip til menufaner Word (Word 2007 og nyere) her: Fjernelse Alle tekstfelter i et dokument.


© 2020 Zajacperrone.com | Contact us: webmaster# zajacperrone.com