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
Hvala, Uroš