Word VBA - tabela, celica, oblikuj znake

Pomoč pri izdelavi makrov
Odgovori
Uros22
Prispevkov: 14
Pridružen: Če Jan 14, 2010 10:59 am

Word VBA - tabela, celica, oblikuj znake

Odgovor Napisal/-a Uros22 »

Pozdravljeni,

Pripravljam makro, ki bo v Word tabeli po celici, in celici iskal zapise v oklepajih in jih oblikoval v kurzivo (italic slog).

Prilagam rešitev, ki sem jo pripravil, vendar mi manjka delček kode, kjer moram oblikovati ustrezne znake v kurzivo (znak po znak).

Koda: Izberi vse

Sub TabelainCelice()
    Dim celica As Cell
    Dim oklepaj, zaklepaj, stznakov
    For Each celica In ActiveDocument.Tables(1).Columns(1).Cells
        'dolžina vpisa
        stznakov = Len(celica.Range)
        ' poišči oklepaj
        For i = 1 To stznakov
            If Mid(celica.Range, i, 1) = "(" Then
                oklepaj = i
            End If
        Next
        'poišči zaklepaj
        For i = 1 To stznakov
            If Mid(celica.Range, i, 1) = ")" Then
                zaklepaj = i
            End If
        Next
        If oklepaj > 1 Then
            For j = oklepaj To zaklepaj
                ' *****KAKO OBLIKOVATI ZNAKE OD OKLEPAJA DO ZAKLEPAJA POŠEVNO (ITALIC)? ******
                ' celotno vsebino celice oblikujem v italic tako: celica.Range.Italic = True
            Next
        End If
        oklepaj = 0
        zaklepaj = 0
    Next
End Sub
Prosim za nasvet, pomoč, namig, rešitev.

Hvala, Uroš
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a admin »

Spodaj imate kodo, ki jo vstavite v if stavek - zanke ne potrebujete!

Koda: Izberi vse

        If oklepaj > 1 Then
          celica.Select
          Selection.HomeKey wdLine
          Selection.MoveRight Unit:=wdCharacter, Count:=oklepaj
          Selection.MoveRight Unit:=wdCharacter, Count:=zaklepaj - oklepaj - 1, Extend:=wdExtend
          Selection.Font.Italic = True
        End If
Boste pa morali še malce popraviti iskanje - kaj če je v celici več oklepajev, kaj če ni zaklepaja... ;)
lp,
Matjaž Prtenjak
Administrator
Uros22
Prispevkov: 14
Pridružen: Če Jan 14, 2010 10:59 am

Odgovor Napisal/-a Uros22 »

Kapo dol Matjaž.

Trenutna rešitev glede iskanja zadošča saj je problem, ki ga rešujem relativno enostaven, vendar zaradi količine podaktov nujno potreben avtomatizacije.

Hvala za pomoč,
Uroš
Odgovori