Tässä artikkelissa haluamme näyttää sinulle kaksi nopeaa ja helppokäyttöistä tapaa poimia tekstiä Word-asiakirjasi tekstilaatikoista.
Ajoittain voimme saada Word-tiedoston, joka sisältää suuren määrän tekstiruutuja. Yleensä näiden laatikoiden sisällä on tekstejä tai suhteellista sisältöä. Silloin voi olla tarve saada vain tekstit sisään koko tekstilaatikon säilyttämisen sijaan.
Varmasti on nopeaa hakea sanoja yhdestä tekstilaatikosta yksinkertaisesti kopioimalla teksti ja liittämällä se jonnekin muualle. Kuitenkin, kun kyse on sadoista niistä, meidän on parempi oppia nopeita vinkkejä työn suorittamiseen.
Tapa 1: Käytä "Valintapaneelia"
- Ensinnäkin, napsauta "Koti"-välilehteä.
- Napsauta sitten "Valitse"-kuvaketta "Muokkaus"-ryhmässä.
- Valitse seuraavaksi avattavasta valikosta "Valintaruutu".
- Nyt näytön oikealla puolella näet kaikki ruudussa näkyvät tekstiruudut.
- Paina "Ctrl" ja napsauta näitä tekstiruutujen nimiä ruudussa yksitellen valitaksesi ne kaikki.
- Ja siirry asettaaksesi kohdistimen jollekin laatikkoriville ja napsauta hiiren kakkospainikkeella.
- Napsauta luettelovaihtoehdossa "Kopioi". Jos et enää tarvitse näitä laatikoita, paina vain "Poista".
- Napsauta seuraavaksi "Käynnistä" nähdäksesi Windows-valikon.
- Valitse "WordPad" ja avaa se.
- Napsauta sitten "Liitä" saadaksesi kaikki tekstit tekstilaatikoista.
- Valitse seuraavaksi kaikki tekstit ja napsauta hiiren kakkospainikkeella valitaksesi "Kopioi".
- Avaa nyt uusi Word-asiakirja ja napsauta hiiren kakkospainikkeella valitaksesi "Säilytä vain teksti" saadaksesi tekstin.
Tapa 2: Käytä VBA-koodeja
Kuten saatat nähdä, edes ensimmäisellä menetelmällä et voi välttää kaikkien tekstiruutujen valitsemista. Jos jotkut teistä vain vihaavat tällaista työvoimaa, tässä me tarjoamme sinulle tavan suorittaa makro. Menetelmällä 2 voit purkaa kaikki tekstit yhdellä kertaa ja poistaa tekstilaatikot.
- Paina ensin "Alt + F11" avataksesi VBA-editorin.
- Napsauta toiseksi "Normaali" ja sitten "Lisää".
- Valitse sitten "Moduuli" lisätäksesi uuden.
- Kaksoisnapsauta sitten moduulin nimeä avataksesi muokkausalueen.
- Liitä seuraavat koodit ja napsauta "Suorita":
Sub DeleteTextBoxesAndExtractTheText()
Dim nNumber As Integer
Dim strText As String
' Delete all textboxes and extract the text from them
With ActiveDocument
For nNumber = .Shapes.Count To 1 Step -1
If .Shapes(nNumber).Type = msoTextBox Then
strText=strText& .Shapes(nNumber).TextFrame.TextRange.Text & vbCr
.Shapes(nNumber).Delete
End If
Next
End With
' Open a new document to paste the text from textboxes.
If strText <> "" Then
Documents.Add Template:="Normal"
ActiveDocument.Range.Text = strText
Else
MsgBox ("There is no textbox.")
End If
End Sub
Tässä on mitä saat todennäköisesti:
Selvitä tuhoutuneita Word-tiedostoja
Word on altis virheille ja siksi usein korruption uhri. Siksi sinun on hallittava asiakirjojasi oikein suojataksesi niitä vaurioilta. Kerran kun ne vioittuvat, sinulla on riski menettää ne pysyvästi. Sitten sinun on käytettävä vioittunut Word-tietojen palautustyökalu.
Tekijän esittely:
Vera Chen on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien Excel-tiedoston virheenpalautustyökalu ja pdf korjata ohjelmistotuotteita. Lisätietoja osoitteessa www.datanumen.com