批量删除word中的某一页（求VBA代码）

Public StartPageNum As Integer, EndPageNum As Integer Sub aaa() Dim myDialog As FileDialog, oFile As Variant, oDoc As Document On Error Resume Next Set myDialog = Application.FileDialog(msoFileDialogFilePicker) myDialog.Filters.Clear '清除所有文件筛选器中的项目 myDialog.Filters.Add ＂所有 WORD 文件＂， ＂*.doc＂, 1 '增加筛选器的项目为所有WORD文件 myDialog.AllowMultiSelect = True '允许多项选择 If myDialog.Show -1 Then Exit Sub Dim SelectRange As Range DlgDelePage.Show vbModal If StartPageNum = 0 And EndPageNum = 0 Then Exit Sub End If For Each oFile In myDialog.SelectedItems '在所有选取项目中循环 Set oDoc = Documents.Open(FileName:=oFile, Visible:=True) 'False) Dim Pages As Integer, StartPage As Long, EndPage As Long Pages = Selection.Information(wdNumberOfPagesInDocument) If Not (StartPageNum > Pages) Then If EndPageNum > Pages Then EndPageNum = Pages If StartPageNum = 1 Then StartPage = Selection.Range Else StartPage = Selection.GoTo(What:=wdGoToPage, Which:=wdGoToNext, Count:=StartPageNum - 1).Start End If If EndPageNum = Pages Then EndPage = ActiveDocument.Content.End Else EndPage = Selection.GoTo(What:=wdGoToPage, Which:=wdGoToNext, Count:=IIf(EndPageNum - StartPageNum > 0, EndPageNum - StartPageNum + 1, 1)).End '.Start End If ActiveDocument.Range(StartPage, EndPage).Select Selection.Delete End If '删除第3页批注 ActiveDocument.Words(1).Select '将光标移到文档开始位置 Dim myRange As Range, oComment As Comment Set myRange = Selection.Range StartPage = Selection.GoTo(What:=wdGoToPage, Which:=wdGoToNext, Count:=3 - 1).Start EndPage = Selection.GoTo(What:=wdGoToPage, Which:=wdGoToNext, Count:=3 - 1).End myRange = ActiveDocument.Range(StartPage, EndPage) If myRange.Comments.Count > 0 Then For Each oComment In myRange.Comments oComment.Delete Next End If oDoc.Save oDoc.Close Next oFile End Sub

如何通过VBA删除word最后一页空白页

应该可以实现，删除最后一页可以吧 !!!!!!!!!!!Sub 删除最后页（）Dim ra As RangeDim ra_1 As RangeDim ra_2 As RangeApplication.ActiveDocument.SelectPageCount = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)Set ra = Selection.RangeSelection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=PageCountSelection.SelectSet ra_1 = Selection.RangeSelection.EndKey Unit:=wdStorySelection.SelectSet ra_2 = Selection.Rangera.Start = ra_1.Startra.End = ra_2.Endra.SelectSelection.DeleteSelection.TypeBackspaceEnd Sub

怎样使用VBA批量删除word中空行

Sub DelBlank()Dim i As Paragraph, n As IntegerApplication.ScreenUpdating = FalseFor Each i In ActiveDocument.ParagraphsIf Len(i.Range) = 1 Theni.Range.Deleten = n + 1End IfNextMsgBox ＂共删除空白段落＂ & n & ＂个＂Application.ScreenUpdating = TrueEnd Sub试试上面的代码...

excel文件后面有大量空白页,如何清除

一. 1、把你做的表调小一些看看二.选定下面或右边的空白页，编辑——清除——全部三.选中没用的列开始，按“Shift+Ctrl+ →＂，右击，然后选删除。

选中没用的行开始，按“Shift+Ctrl+↓＂，右击，然后选删除。

四.一般用分页预览看一下，就不会有问题了。

五.上面的方法不是很好用啊，今天在单位弄个excel 表格，实际内容只有3 页，预览时总是显示6 页（3 页空白页），上网搜了不少解决办法，但是都不好用，后面的空白页总是删除不了。

后来总算找到了，发现原来是因为最后一列列宽窄了，稍微盖住一点文字，把最后一列的列宽加大一下就可以解决了。

六.不要理会他，不影响打印。

将数据区域选中，文件——打印——选定区域——确定。

...

Word快速输入特定的短语怎么操作呢？

我们在用WORD2000XP进行文档编辑时，像专业术语、单位名称等这些特定的短语，在一篇文章中可能要反复输入，如果每次都是一个字（词）一个字（词）地去输入，不仅麻烦、速度慢，而且容易出错，同时也很难每次输入文本的一致性。

我利用WORD2000XP的“剪贴板”功能，实现了特定短语的一次性输入，达到快速、准确、一致之目的。

1、启动WORD2000，打开“剪贴板”工具栏。

2、选将特定的短语（如“《中华人民共和国建筑法》”、“《建设工程质量管理条例》”、“建设工程质量监督工作”等）输入到文档中，然后一个一个的选中，用“复制”命令将他们逐条加到“剪贴板”中。

3、在需要某一短语的位置，单击“剪贴板”工具栏上相应短语的图标就可以一次性输入该短语。

4、如果短语太多，记不清某条短语在“剪贴板”上的具体位置也没关系，当你将鼠标指向某条短语时，在左下方即可显示出该短语，点击你需要的短语即可（在WORD XP中，“剪贴板”上直接会显示出短语的内容）。

wps空白页出现线条怎么修怎么

示例代码如下：Sub 宏1()For i = 1 To ThisDocument.Tables.Counts = ThisDocument.Tables(i).Cell(1, 2).Range.TextIf Trim(s) = ＂＂ ThenMsgBox （＂无数据＂ & s）ElseMsgBox （＂有数据＂ & s）End IfNextEnd Sub

转载请注明出处51数据库 » vba批量删除word空白页