本示例显示指定文稿是否只读。

Msgbox Application.Presentations(1).ReadOnly