thank you - but I can't use Trim the way it is used in your code - it says 'Trim' is not the member of 'System.Array'
any suggestion? On Aug 17, 12:39 pm, Cerebrus <[email protected]> wrote: > 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
