[b]sub[/b] tag2style
[b]dim[/b] [COLOR=darkgoldenrod]tagstyle[/color][teal]()[/teal]
[b]dim[/b] search[teal],[/teal] found
tagstyle[teal]=[/teal][COLOR=darkgoldenrod]array[/color][teal]([/teal] _
[COLOR=darkgoldenrod]array[/color][teal]([/teal][green][i]"bold"[/i][/green][teal],[/teal][green][i]"boldtext"[/i][/green][teal]),[/teal] _
[COLOR=darkgoldenrod]array[/color][teal]([/teal][green][i]"italic"[/i][/green][teal],[/teal][green][i]"italictext"[/i][/green][teal])[/teal] _
[teal])[/teal]
search[teal]=[/teal]ThisComponent[teal].[/teal]CreateSearchDescriptor
search[teal].[/teal]SearchRegularExpression[teal]=[/teal][b]True[/b]
[b]for[/b] i[teal]=[/teal][COLOR=darkgoldenrod]LBound[/color][teal]([/teal]tagstyle[teal])[/teal] to [COLOR=darkgoldenrod]UBound[/color][teal]([/teal]tagstyle[teal])[/teal]
tag[teal]=[/teal][COLOR=darkgoldenrod]tagstyle[/color][teal]([/teal]i[teal])([/teal][purple]0[/purple][teal])[/teal]
search[teal].[/teal]SearchString[teal]=[/teal][green][i]"[/i][/green][lime][i]\[[/i][/lime][green][i]"[/i][/green][teal]+[/teal]tag[teal]+[/teal][green][i]"[/i][/green][lime][i]\][/i][/lime][green][i].*?[/i][/green][lime][i]\[[/i][/lime][green][i]/"[/i][/green][teal]+[/teal]tag[teal]+[/teal][green][i]"[/i][/green][lime][i]\][/i][/lime][green][i]"[/i][/green]
found[teal]=[/teal]ThisComponent[teal].[/teal][COLOR=darkgoldenrod]FindFirst[/color][teal]([/teal]search[teal])[/teal]
[b]do[/b] [b]while[/b] [b]not[/b] [COLOR=darkgoldenrod]IsNull[/color][teal]([/teal]found[teal])[/teal]
found[teal].[/teal]String[teal]=[/teal][COLOR=darkgoldenrod]Mid[/color][teal]([/teal]found[teal].[/teal]String[teal],[/teal][b]Len[/b][teal]([/teal]tag[teal])+[/teal][purple]3[/purple][teal],[/teal][b]Len[/b][teal]([/teal]found[teal].[/teal]String[teal])-[/teal][b]Len[/b][teal]([/teal]tag[teal])*[/teal][purple]2[/purple][teal]-[/teal][purple]5[/purple][teal])[/teal]
found[teal].[/teal]CharStyleName[teal]=[/teal][COLOR=darkgoldenrod]tagstyle[/color][teal]([/teal]i[teal])([/teal][purple]1[/purple][teal])[/teal]
found[teal]=[/teal]ThisComponent[teal].[/teal][COLOR=darkgoldenrod]FindNext[/color][teal]([/teal]found[teal].[/teal]End[teal],[/teal]search[teal])[/teal]
[b]loop[/b]
[b]next[/b]
[b]end[/b] [b]sub[/b]