2 nopeaa tapaa poimia samanvärisiä tekstejä Word-asiakirjastasi

Tämän päivän viestissä jaamme mielellämme kaksi nopeaa tapaa poimia samanvärisiä tekstejä Word-dokumentistasi.

Joskus muotoillessamme Word-asiakirjaa, todennäköisesti käytämme kirjasimen väriä joihinkin teksteihin, jotta ne kiinnitettäisiin erityiseen huomiota. Yleensä nämä värilliset sanat ovat tärkeitä sisältöjä, jotka ansaitsevat arvostelun uudelleen. Entä sitten viedä ja kerätä ne muualle selkeää tarkistusta varten myöhemmin?

Keskitymme tähän kysyntään suosittelemme 2 nopeaa pikavalintaa loputtomien leikkaus- ja liittämistoimien sijaan.

Tapa 1: Käytä Etsi-ominaisuutta

1. Napsauta ensin "Koti" -välilehteä.
2. Napsauta sitten Muokkaaminen-ryhmää ja napsauta ylösalaisin olevaa kolmionappia Etsi-kohdan vieressä.
3. Valitse seuraavaksi luettelosta Lisähaku.
4. Aseta Etsi ja korvaa -valintaikkunassa kohdistin Etsi mitä -tekstiruutuun ja tyhjennä siellä oleva sisältö, jos sellaista on.
5. Napsauta sitten Lisää-painiketta.
6. Napsauta nyt "Format" -painiketta ja valitse "Font".
7. Napsauta Etsi fontti -valintaikkunassa Fontin väri -kohdan takana olevaa avattavaa painiketta ja valitse tekstille määritetty tarkka väri.
8. Muista napsauttaa “OK”.
9. Palaa nyt "Etsi ja korvaa" -ruutuun ja napsauta "Etsi".
10. Valitse lopuksi ”Pääasiakirja”.

Tämän jälkeen kaikki kohdevärin tekstit valitaan. Voit nyt painaa “Ctrl+C” kopioidaksesi ja liittääksesi ne toiseen paikkaan yhdellä kertaa.

Tapa 2: Suorita Word-makro

1. Ensinnäkin, napsauta ”Kehittäjä”-välilehteä.
2. Napsauta sitten “Visual Basic” käynnistääksesi VBA-editorin.
3. Napsauta sitten “Normal” ja sitten “Insert”.
4. Valitse valikosta ”Moduuli”.
5. Kaksoisnapsauta sitten moduulia aktivoidaksesi koodaustilan.
6. Seuraava liitä koodit:

Sub ExtractColoredTexts()
  Dim objDoc As Document, objDocAdd As Document
  Dim objRange As Range

  Set objDoc = ActiveDocument
  Set objDocAdd = Documents.Add
  objDoc.Activate

  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Font.Color = wdColorRed
      .Text = ""
      .Execute
    End With
  Do While .Find.Found
    Set objRange = Selection.Range
    objDocAdd.Range.InsertAfter objRange & vbCr
    .Collapse wdCollapseEnd
    .Find.Execute
  Loop
  End With
End Sub

7. Napsauta nyt Suorita-painiketta.

Avattu uusi asiakirja sisältää kaikki otetut tekstit.

Huomaa: Koodirivillä “.Font.Color = wdColorRed” sinun on korvattava ”wdColorRed” tekstisi todellisella värillä. Tarkempia tietoja varten voit käydä tällä sivulla: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColor

Osoitesanaongelma

Useimmat meistä käyttävät jo Wordia säännöllisesti. Siitä huolimatta saatamme silti kohdata vaikeita ongelmia, kuten Wordin kaatumisen. Tämä on todella vakava ongelma, sillä tärkeät tiedostosi voivat olla vaarassa. Tällaisissa olosuhteissa on suositeltavaa hankkia... Word-tietojen virheiden korjaustyökalu joka palauttaa Word-tiedot vain muutamassa minuutissa.

Tekijän esittely:

Vera Chen on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien xls-dataongelmien korjaustyökalu ja pdf korjata ohjelmistotuotteita. Lisätietoja osoitteessa www.datanumen.com