首页
学习
活动
专区
工具
TVP
发布

积木居

专栏成员
74
文章
178015
阅读量
14
订阅数
VG浏览器生成EXE的自动运行及自动关闭
首先生成启动函数 方法一:双击窗体标题生成exe启动函数,也就是窗体载入函数
用户1191760
2019-05-22
1.4K0
终于让采集侠自动采集了
用织梦采集侠一段时间了,觉得这个插件真的不错,尤其是新版本,可以结合DEDE自动的采集规则来进行采集。一下采集功能就非常强大了。
用户1191760
2019-02-27
1.6K0
EXCEL密码去除(工作表、工作薄密码保护破解)
各位朋友不知有沒有碰到过这样的情况,当要打开一个EXCEL工作表时,突然发现密碼忘记了,唯一可做的也许是搞个破解软件来破一下,但针对打开后的工作表保护,一般就很难有效了,复制虽是一种方法,但不少数据(特別是公式较多者),可能就要乱套了,如何才能破解这一类密码呢?不久前在网上发现此精华,与大家共享一下! 利用宏运行方式破解,真的很有效,运行中可能电脑会有两分钟无反应,千萬不要以为死机了哦,等等吧! 步骤方法如下:1、打开文件2、工具—宏—-录制新宏—输入名字如:aa3、停止录制(这样得到一个空宏)4、工具—宏—-宏,选aa,点编辑按钮5、删除窗口中的所有字符(只有几个),替换为下面的内容:(复制吧)6、关闭编辑窗口7、工具—宏—–宏,选AllInternalPasswords,运行,确定两次,等2分钟,再确定.OK,没有密码了! !宏内容如下:
用户1191760
2019-02-27
14.2K2
word如何自动分割成多个文档
Sub 每N页分割为一个新文档__保存到同目录下() '特别鸣谢"雨雪霏霏、守柔版主。 Dim MyPath As String, PageCount As Integer Dim StartRange As Long, EndRange As Long, MyRange As Range Dim Fn As String, MyDoc As Document, i As Integer On Error Resume Next Application.ScreenUpdating = False MyPath = ActiveDocument.Path '取得文档路径 PageCount = Selection.Information(wdNumberOfPagesInDocument) '取得文档总页数 N = InputBox("按每几页拆分?默认为3:", "请输入数值", 3) Selection.HomeKey unit:=wdStory '将光标移至文档起点 For i = 1 To PageCount / N + (PageCount Mod N) '设置循环次数,如3则表示每3页做一次循环 StartRange = Selection.Start '取得该页的第一个字符位置 Selection.EndKey unit:=wdLine '将光标移动到该页首行的最后位置 Fn = i & ActiveDocument.Name '-1的目的是防止该页首行含有段落标记,导致出错. If i * N >= PageCount Then '如果循环到达最后一页 EndRange = ActiveDocument.Content.End '将文档最后位置赋值于EndRange Else For J = 1 To N Selection.GoToNext (wdGoToPage) Next J EndRange = Selection.Start End If Set MyRange = ActiveDocument.Range(StartRange, EndRange) '将N页中的内容进行复制 MyRange.Copy Set MyDoc = Documents.Add '新建一空白文档 With MyDoc .Content.Paste '在新文档中粘贴 .Content.Paragraphs.Last.Range.Delete '删除新文档末尾多出来的一个段落标记 .SaveAs FileName:=MyPath & "/" & Fn '保存新文档到原文档所在目录。如果删除"MyPath & "/" & ",。则保存到"我的文档"中。 .Close '关闭新文档 End With Next Application.ScreenUpdating = True End Sub
用户1191760
2019-02-27
9100
没有更多了
社区活动
【纪录片】中国数据库前世今生
穿越半个世纪,探寻中国数据库50年的发展历程
Python精品学习库
代码在线跑,知识轻松学
博客搬家 | 分享价值百万资源包
自行/邀约他人一键搬运博客,速成社区影响力并领取好礼
技术创作特训营·精选知识专栏
往期视频·千货材料·成员作品 最新动态
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档