🚀 go-pugleaf

Kathy--

Two things come to mind. First, there's no need to iterate through the character styles collection looking for a named style. Instead, you can refer to the character style object by name:



Set CharStyle_Bold = myInDesignDoc.CharStyles.Item("Body Bold") 




Obviously, this will generate an error if the character style of that name does not exist, so you might want to surround it with some error-checking code.

Most of the time, the Contents will be an InsertionPoint. The TextContents of an InsertionPoint will always be ""--so your line:



If XMLeleGroup.Item(myCounter).Contents.Item(1).TextContents <> "" Then 




Should probably be:



If XMLeleGroup.Item(myCounter).Contents.Item(1).Texts.Item(1).TextContents <> "" Then 




Next, you probably want to clear any formatting overrides as you apply the character style--which means you should use the ClearOverrides parameter of the ApplyStyle method:



myTextItem.ApplyStyle myCharStyle, True



Given these changes, and given an XML file placed in a document (style application won't work for unplaced XML elements, as far as I can tell), your example works well for me. If it's not working, put a stop at the line "Select Case..." and watch the type of the variable "myTextItem" (assigned in the preceding line).

Thanks,

Ole