摘要： /// /// Word按页读取内容 /// /// 页数 /// html或纯文本 /// /// public string ReadPage(int page, bool isHtml) { object objWhat = Word.WdGoToItem.wdGoToPage; object objWhich = Word.WdGoToDirection.wdGoToAbsolute; object o... 阅读全文

摘要： 怎么让word自动删除第3、6、9、12等3的倍数页‘Sub kk1206190933() Dim wNum As Integer Dim wPag As Integer With Selection wPag = .Information(wdNumberOfPagesInDocument) For wNum = Int(wPag / 3) * 3 To 3 Step -3 .GoTo wdGoToPage, , wNum .Bookmarks("\Page").Range.Delete Next End WithEnd SubVBA实现检查和删除W... 阅读全文