使用VBA对一个打开的文档进行操作，代码~详细点！谢谢！

使用VBA对一个打开的文档进行操作，代码~详细点！谢谢！

Private Sub iOpenXLS()
Dim ph As String, bk As Workbook
ph = "D:\我的文档\Book1.xls" '设置excel文件地址
Set bk = Workbooks.Open(ph) '打开这个excel文档
With bk.Worksheets("sheet1") '操作sheet表
.Range("a1:b1").Merge '合并单元格a1:b1
End With
bk.Close True '保存并关闭这个excel文件
End Sub

第一步：打开文档后，点击“审阅”标签下的“显示标记”，根据需要选中“批注”、“墨迹”、“插入和删除”、“设置格式”等等。 第二步：点击“修订”选项的下拉菜单，在弹出的“修订选项”窗口中，点击“高级选择”，对“标记”、“移动”、“表单元格突出显示”、“格式”、“批注框”等选项按需要进行设置。 第三步：待设置完成之后，点击“确定”按钮，即可对文档进行修改了 第四步：如果要消除其中某一处的修改痕迹，可以在该处上右击，然后选择“接受删除”，则“网络”二字消失，或者“拒绝删除”恢复原样。如果要彻底消除修订痕迹，则先单击“修订”，然后在“显示标记”选项下一一勾除“批注”、“墨迹”、“插入和删除”、“设置格式”这些标记；需要注意的是一定要先单击解除“修订”状态后再执行其它操作，否则即使保存退出，再打开时也会再显示修改痕迹。