Tässä artikkelissa haluamme jakaa kaksi helppoa tapaa muokata sisältöä sopimaan Word-taulukon soluihin.
Kun käsittelet taulukkoa Word-asiakirjassa, on vaikea varmistaa, että kaikki taulukon solut pysyvät kiinteässä koossa. Normaalisti, kun soluun syötetään enemmän sanoja, se rivittää tekstin automaattisesti. Alla on esimerkki:
Tämä ei varmasti ole silmiinpistävää. Entä jos löytäisit tapoja korjata pöydän koko, mutta saada sisältö siihen sopivaksi?
Seuraavassa on 2 käytettävissä olevaa tapaa:
Tapa 1: Aseta pöytä kerran
- Valitse ensin taulukon vasemmassa yläkulmassa oleva plusmerkki.
- Napsauta sitten hiiren oikealla painikkeella valittua taulukkoa.
- Valitse seuraavaksi "Taulukon ominaisuudet".
- Napsauta nyt "Taulukon ominaisuudet" -valintaikkunassa ensin "Solu" -välilehteä.
- Napsauta sitten "Asetukset" laatikon oikeasta alakulmasta.
- Nyt avaat "Cell Options" -valintaikkunan. Siirry "Asetukset" -osioon ja tyhjennä "Kierrä teksti" -ruutu.
- Valitse sen sijaan Sovita teksti -ruutu.
- Napsauta sitten “OK”.
- Muista myös napsauttaa ”Taulukon ominaisuudet” -valintaikkunan OK-painiketta.
Nyt sisällön asettelu muuttuu vastaavasti. Tässä on mitä saat:
Tapa 2: Käytä VBA-koodeja
Wordin VBA-editorin avulla voit kirjoittaa koodeja omien Wordin ominaisuuksien mukauttamiseksi saadaksesi työt tehtyä nopeasti ja siististi. Joten voit mukavasti käyttää koodeja saadaksesi ihmeen tapahtumaan.
- Ensinnäkin, napsauta ”Kehittäjä”-välilehteä. Jos sinulla ei vielä ole sitä, voit tutustua tähän artikkeliin: Kuinka lisätä taustamusiikkia Word-asiakirjaasi
- Napsauta sitten "Visual Basic" avataksesi VBA-editorin.
- Etsi VBA-editorissa projekti, jonka jälkeen on asiakirjan nimi, ja napsauta "ThisDocument".
- Napsauta sitten työkalurivin Lisää-painiketta.
- Ja valitse valikosta ”Moduuli”.
- Nyt avaat muokkausalueen, liitä vain koodit sinne:
Sub AutoFitTextForAllTableCells()
' Check if there are any tables in the document
If ActiveDocument.Tables.Count > 0 Then
Dim objTable As Table
Dim objCell As Cell
' Process each cell in each table and set the options accordingly
For Each objTable In ActiveDocument.Tables
For Each objCell In objTable.Range.Cells
objCell.WordWrap = False
objCell.FitText = True
Next
Next
Else
MsgBox("There is no table in this document!")
End If
End Sub
Valmistaudu uhkaavaan epäonnistumiseen
Tapahtumat saavat sinut aina epävarmaksi. Joten paras tapa on varata aikaa ja valmistautua. Varotoimenpiteisiin voi kuulua tiedostojen varmuuskopiointi ja rahan maksaminen a vioittunut Word doc -palautustyökalu. Koska tietojen menetys voi tapahtua kenelle tahansa missä tahansa, on aika tehdä jotain.
Tekijän esittely:
Vera Chen on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien Excelin tietojen virheenkorjaustyökalu ja pdf korjata ohjelmistotuotteita. Lisätietoja osoitteessa www.datanumen.com