摘要： 下面的代码的功能是，全选word文档的当前页，注意，是当前页，即插入条所在的页，而不是全文。 Dim CurrentPageStart As Long, CurrentPageEnd As Long, myRange As Range
Dim Currentpage ...
下面的代码的功能是，全选word文档的当前页，注意，是当前页，即插入条所在的页，而不是全文。
Dim CurrentPageStart As Long, CurrentPageEnd As Long, myRange As Range
Dim Currentpage As Integer, Pages As Integer
On Error Resume Next
Currentpage = Selection.Information(wdActiveEndPageNumber)
Pages = Selection.Information(wdNumberOfPagesInDocument)
CurrentPageStart = Selection.GoTo(what:=wdGoToPage, Which:=wdGoToNext, Name:=Currentpage).start
如何给word文档加密?给word文档加密的详细步骤
如何给word文档加密?给word文档加密的详细步骤 在编辑一些非常重要的Word文档时，特别是一些机密的文档，给Word文档加上密码是一项非常有用的功能，也是一项安全的保障。为了防止他人看见内容，我们必须给Word文档加上密码。给Word文档加密后任何人必须输入正确的密码后才可以查看内容。 下面分享给word文档加密的方法，分别介绍word2003和word2007的方法。 word2003文档加密方法在Word2003中单击菜单栏上的【工具】 选择【选项】打开，会弹出一个对话框。 在弹出的对话框中选择
If Currentpage = Pages Then
CurrentPageEnd = ActiveDocument.Content.End
Else
CurrentPageEnd = Selection.GoTo(what:=wdGoToPage, Which:=wdGoToNext, Name:=Currentpage 1).start
End If
Set myRange = ActiveDocument.Range(CurrentPageStart, CurrentPageEnd)
myRange.Select
注意，以上代码在VBA环境下使用。
Word段前段后间距的设置
Word段前段后间距的设置 在Word中，有如下的两个段落。 现在，我们要设置第一段的段前段后的间距，如何设置呢? 首先选择好要设置的对象，在这里，选择的是第一段的内容，即“大众计算机学习网简介”，之后，如下图一样，找到菜单“格式”→“段落”。 弹出如下图的对话框。 上图中，找到“缩进和间距”选项卡，然后，在里面找到蓝线圈住的那部分，分别设置段前和段后的距离，其单位使用行，在这里，设置为1.6行的距离。设置好了以后，就点击“确定”按钮，即可看到效果。上图，就是设置好的效果。 段前段后的距离，就是这样设置的
