摘要： Dim Adoc As String， PsDoc As Document On Error Resume Next
ChDrive "C" ‘设置当前驱动器盘符
ChDir "C：Documents and SettingsMy DocumentsTemp" ‘进入指定目录
Adoc = Dir("*.doc")
Application.Screen...
Dim Adoc As String， PsDoc As Document
On Error Resume Next
ChDrive "C" ‘设置当前驱动器盘符
ChDir "C：Documents and SettingsMy DocumentsTemp" ‘进入指定目录
Adoc = Dir("*.doc")
Application.ScreenUpdating = False
Do While Adoc <> "" ‘如果是文件夹，或者没有此文件，则会返回""
LNMP系列教程之三:SSH安装WordPress博客
LNMP系列教程之三:SSH安装WordPress博客 在之前的文章中，
‘ MsgBox Adoc
Set PsDoc = Documents.Open(Adoc) ‘打开指定文档
PsDoc.Protect Type：=wdAllowOnlyFormFields， Password：="Password"
PsDoc.Close True
Adoc = Dir()
Loop
Application.ScreenUpdating = True
使用的时候，请将如上的代码放在宏中来使用。
如何调整Word的上边距太小.页面之间距离太小的问题
如何调整Word的上边距太小.页面之间距离太小的问题 如果您的Word文档由于设置不正确或使用了其它模板，导致文档的上边距非常小，甚至于，就连页面之间的间隔距离也相当小，就如下图一样! 上边距已经没有了，页面的插入条已经顶着水平标尺来输入了，遇到这种情况，如果调整文档的页面，符合平时的操作习惯呢? 一、调整页面设置 您可以通过“文件”→“页面设置”，在打开的对话框中，调整上边距大一点，这样或许能解决。 二、使用鼠标拖动 将鼠标移动到上图的上边距的那位置，可以直接拖动上边距的大小，这样也能解决问题。 三、特
