It should be pretty obvious... --- Dim s as String ---
On Aug 17, 9:58 pm, MM <[email protected]> wrote: > 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- Hide quoted text - > > - Show quoted text -
