vba to determine if there's a cover page - Word 2010

[kdock]

Hey all,

I'm trying to use vba to determine if a person has inserted one of Word's cover pages into their document. If so, the code will branch. I've been less than productive searching the inet.

Despite their slickness, I don't find Word's cover pages very useful and usually avoid them. But that doesn't mean a client will.

Any help will be much appreciated.

Thanks, Kim

[macropod]

Try:

Code: Select all

If InStr(ActiveDocument.Content.WordOpenXML, "<w:docPartObj><w:docPartGallery w:val=""Cover Pages""/>") > 0 Then
  MsgBox "A Cover Page has been inserted."
End If

[kdock]

That's perfect Paul. Thank you! K