2 hitra načina za pridobivanje besedil z isto barvo iz dokumenta Word

V današnji objavi z veseljem delimo z vami dve hitri metodi za izvlečenje besedil iste barve iz vašega Wordovega dokumenta.

Občasno bomo med formatiranjem v Wordovem dokumentu verjetno uporabili barvo pisave za nekatera besedila, da bi jih izrisali za dodatno pozornost. Običajno so te barvne besede pomembna vsebina, ki si jo zasluži še enkrat. Potem pa kako bi jih izvozili in zbrali kam drugam, da bi jih kasneje jasno preverili?

Če se osredotočimo na to povpraševanje, vam predlagamo dve hitri bližnjici, namesto neskončnih dejanj rezanja in lepljenja.

1. način: Uporabite funkcijo »Najdi«

1. Najprej kliknite zavihek »Domov«.
2. Nato pojdite na skupino »Urejanje« in kliknite gumb na glavo trikotnika poleg možnosti »Poišči«
3. Nato na seznamu izberite »Napredno iskanje«.
4. V pogovornem oknu »Poišči in zamenjaj« postavite kazalec v besedilno polje »Najdi kaj« in tam počistite morebitno vsebino.
5. Nato kliknite gumb »Več«.
6. Zdaj kliknite gumb "Format" in izberite "Font".
7. V pogovornem oknu »Poišči pisavo« kliknite spustni gumb za »Barva pisave«, da izberete natančno barvo, ki jo določite besedilu.
8. Ne pozabite klikniti »V redu«.
9. Zdaj se vrnite na polje »Najdi in zamenjaj« in kliknite »Najdi v«.
10. Na koncu izberite »Glavni dokument«.

Nato bodo izbrana vsa besedila v ciljni barvi. Zdaj lahko pritisnete »Ctrl + C«, da jih kopirate in nato z enim potezom prilepite na drugo mesto.

2. način: zaženite Wordov makro

1. Najprej in predvsem kliknite zavihek »Razvijalec«.
2. Nato kliknite »Visual Basic«, da sprožite urejevalnik VBA.
3. Nato kliknite »Običajno« in nato »Vstavi«.
4. V meniju izberite “Module”.
5. Nato dvokliknite modul, da aktivirate prostor za kodiranje.
6. Naslednje kode za lepljenje:

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. Zdaj kliknite gumb »Zaženi«.

Odprt je nov dokument z vsemi izvlečenimi besedili.

Opomba: V vrstici kode ".Font.Color = wdColorRed" morate "wdColorRed" nadomestiti z dejansko barvo besedil. Za podrobnejše reference lahko obiščete to stran: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColor

Naslov Word Word

Večina nas že redno uporablja Word. Kljub temu pa se lahko še vedno srečamo z nekaterimi resnimi težavami, kot je na primer sesutje Worda. To je vsekakor precej resna težava, saj so lahko ogrožene vaše kritične datoteke. V takšnih okoliščinah je priporočljivo, da si priskrbite Orodje za popravilo besednih podatkov ki bo podatke Worda obnovil v samo nekaj minutah.

Uvod avtorja:

Vera Chen je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z orodje za popravilo podatkov xls - in pdf popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com