..|| Blog || Produkti/Storitve || MExcel || MDodatki || 300 nasvetov ||..

Word VBA - tabela, celica, oblikuj znake

Pomoč pri izdelavi makrov

Word VBA - tabela, celica, oblikuj znake

OdgovorNapisal/-a Uros22 » Če jan 14, 2010 11:37 am

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š
Uros22
 
Prispevkov: 14
Pridružen: Če jan 14, 2010 10:59 am



Matjazev.NET
 

OdgovorNapisal/-a admin » Če jan 14, 2010 1:56 pm

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
admin
Site Admin
 
Prispevkov: 3537
Pridružen: Sr jul 20, 2005 10:06 pm

OdgovorNapisal/-a Uros22 » Če jan 14, 2010 3:38 pm

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š
Uros22
 
Prispevkov: 14
Pridružen: Če jan 14, 2010 10:59 am


Vrni se na VBA

Kdo je prisoten

Po forumu brska: 0 registriranih uporabnikov in 2 gostov