Perhaps :
s = WordStyle.NameLocal
If s.Trim().EndsWith("char", StringComparison.OrdinalIgnoreCase) Then
WordStyle.Delete()
...
On Aug 17, 9:16 pm, MM <[email protected]> wrote:
> Hi,
>
> The code below checks the styles in a word document against the styles
> in a template that is to be applied - then it will get rid of all
> styles in my document that are not in the template - it also deletes
> variation of styles that were inadvertently created in my docuemtn
> (i.e "style_name Char"). Up to here all is fine, however, the
> challenge starts when for some unknown reasons invalid styles in the
> form of a space and Char (" CHAR") creeps into my document. The code
> below is not able to catch this specific invalid style. Can someone
> tell me how to modify this code in order to catch the mentioned
> invalid style. thank you.
>
> 'delete the style if its not from the template
> Dim s() As String
> app.Events.Write(WordStyle.NameLocal)
> s = WordStyle.NameLocal.Split(" ")
> If UCase(s(s.Length - 1)) = "CHAR" Then
> WordStyle.Delete()
> ElseIf Not ok Then
> WordStyle.Delete()
> End If
