Kako poiskati in prečrtati vrstico

Pomoč pri delu z MS Wordom
Odgovori
solata
Prispevkov: 22
Pridružen: Če Sep 01, 2005 10:31 am

Kako poiskati in prečrtati vrstico

Odgovor Napisal/-a solata »

Kako poiskati in prečrtati vrstico :?: :!:

Velik problem zame, majhen za vas :D

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 :oops:
:idea:
admin
Site Admin
Prispevkov: 3704
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a 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
lp,
Matjaž Prtenjak
Administrator
kljuka13
Prispevkov: 257
Pridružen: Po Sep 10, 2007 4:29 pm
Kraj: Maribor

Odgovor Napisal/-a kljuka13 »

Offtopic: Kaj vam je pa naredil 24 ur, da ga kar črtate? :D
[img]http://shrani.si/f/3t/YL/4W2P37B9/office.gif[/img]
[img]http://shrani.si/f/12/aa/1rt1wj6i/1/userbardionaea.gif[/img]
[img]http://shrani.si/f/3D/nN/3RQySBCl/vista-copy.gif[/img]
solata
Prispevkov: 22
Pridružen: Če Sep 01, 2005 10:31 am

Odgovor Napisal/-a solata »

@admin - hvala :!:

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

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 :lol:

tistih zgoraj omenjenih "24UR" je bil le za vzorec kaj me žuli :P
solata
Prispevkov: 22
Pridružen: Če Sep 01, 2005 10:31 am

Odgovor Napisal/-a solata »

admin napisal/-a: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
Prispevkov: 257
Pridružen: Po Sep 10, 2007 4:29 pm
Kraj: Maribor

Odgovor Napisal/-a 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.
[img]http://shrani.si/f/3t/YL/4W2P37B9/office.gif[/img]
[img]http://shrani.si/f/12/aa/1rt1wj6i/1/userbardionaea.gif[/img]
[img]http://shrani.si/f/3D/nN/3RQySBCl/vista-copy.gif[/img]
Odgovori