Kako poiskati in prečrtati vrstico

[solata]

Kako poiskati in prečrtati vrstico

Velik problem zame, majhen za vas

V word prenesem televizijski spored, ga malce pofriziram in za posamezni dan dobim nekaj temu podobnega

Koda: Izberi vse

Ponedeljek, 25/5/2009 
20:55 Čedno dekle 
23:00 24UR, Zvečer 
23:20 Razočarane gospodinje 
00:15 Tabloid 
01:10 Seks v mestu 
01:40 24UR , ponovitev

Torek, 26/5/2009 
21:05 Premagana usoda 
22:45 24UR, Zvečer 
23:05 Shark 
00:00 Tabloid 
00:55 Seks v mestu 
01:30 24UR , ponovitev
..... itd ..... itd ..... itd .....

Brezuspešno se mučim z izdelavo makroja, ki bi

- od začetka do konca dokumenta
- poiskal besedo "24UR"
- označil to celo vrstico in
- jo prečrtal

Rezultat je takšen

Koda: Izberi vse

Ponedeljek, 25/5/2009 
20:55 Čedno dekle 
23:00 24UR, Zvečer 
------------------ >>>>>> ta in zgornja vrstica sta izpisani kot ena !
23:20 Razočarane gospodinje 
00:15 Tabloid 
01:10 Seks v mestu 
01:40 24UR , ponovitev
---------------------- >>>>>> ta in zgornja vrstica sta izpisani kot ena !

Torek, 26/5/2009 
21:05 Premagana usoda 
22:45 24UR, Zvečer 
------------------ >>>>>> ta in zgornja vrstica sta izpisani kot ena !

23:05 Shark 
00:00 Tabloid 
00:55 Seks v mestu 
01:30 24UR , ponovitev
---------------------- >>>>>> ta in zgornja vrstica sta izpisani kot ena !

..... itd ..... itd ..... itd .....

Za vsako pomoč in rešitev v naprej hvala

[admin]

Priložen makro bo rešil vaš problem...

Koda: Izberi vse

'
'   www.matjazev.net
'     maj 2009
'
Sub OznaciOdstavek(IskaniNiz As String)
    For Each para In ActiveDocument.Paragraphs
        If (InStr(para.Range.Text, IskaniNiz) > 0) Then
            para.Range.Select
            Selection.Font.StrikeThrough = wdToggle
        End If
    Next
End Sub

Sub test()
  OznaciOdstavek "24UR"
End Sub

[kljuka13]

Offtopic: Kaj vam je pa naredil 24 ur, da ga kar črtate?

[solata]

@admin - hvala

@kljuka13 - na 24kur + a-greznici imajo pravljičarje z govornimi napakami

sicer pa izdelam seznam zanimivih oddaj, predvsem discovery, hallmark, animal, pa še kaj, za cca. 1 mesec, nastavim dvd rekorder in s tistim prečrtanim si olajšam delo

tistih zgoraj omenjenih "24UR" je bil le za vzorec kaj me žuli

[solata]

Priložen makro bo rešil vaš problem...

Nekaj minut nazaj sem bil prehiter.
Tisto kodo sem podtaknil wordu, pa mi je bill$$$ napisal:

Compile error:
Ambiguous name detected: OznaciOdstavek

ustavil/označil je naslednje

Sub OznaciOdstavek(IskaniNiz As String

kje sem ga polomil

[kljuka13]

Koda: Izberi vse

Function OznaciOdstavek(IskaniNiz As String)
    For Each para In ActiveDocument.Paragraphs
        If (InStr(para.Range.Text, IskaniNiz) > 0) Then
            para.Range.Select
            Selection.Font.StrikeThrough = wdToggle
        End If
    Next
End Function

Sub test()
  OznaciOdstavek "24UR"
End Sub

Hmm ... Poskusite spremeniti ime makra ali pa uporabite zgornjo kodo.