VBA修改word文档
开启模糊查询即可,再判断一下查找的长度Sub 分章()Set myrange = ActiveDocument.ContentFor n = 1 To 8myrange.Find.Execute findtext:="第*章", Forward:=True, MatchWildcards:=TrueIf myrange.End - myrange.Start < 20 Thenmyrange.Style = ActiveDocument.Styles("标题 2")End IfNextEnd Sub测试运行了下,效果有点不好,修改一下Sub 分章()Set myrange = ActiveDocument.ContentFor n = 1 To 8myrange.Find.Execute findtext:="第*章", Forward:=True, MatchWildcards:=TrueIf myrange.End - myrange.Start < 20 Thenmyrange.Style = ActiveDocument.Styles("标题 2")Elsemyrange.Start = myrange.Start + 1End IfNextEnd Sub
在word中想用vba实现依次新建文档并插入指定文件夹中的图片并命名...
以word2007为例,方法如下:1、点击图片,另存为“筛选过的网页”。
2、打开存放的文件夹,就多了一个网页文件夹。
3、打开网页文件夹,看看刚才存放的图片,其格式就是jpg。
word 中如何运用vba将文档中高亮的句段全部选中
展开全部 Sub Read_Word()Dim worDoc As objectDim wordappl As objectDim mydoc As StringDim myappl As Stringmydoc = thisworkbook.path & "\" & "文件名.doc" '本文档目录下的doc文件,这里可以直接改成路径+文件名的形式Set wordappl = CreateObject("Word.application") '设置wordappl对象Set worDoc = wordappl.Documents.Open(mydoc) '打开word文档,mydoc变量指定路径和文件名worDoc.Activate '激活打开的文档wordappl.Selection.WholeStory '全选文档wordappl.Selection.Copy '复制选择内容到剪贴板worDoc.Application.Quit '关闭word文档Set WordApp = Nothing '释放对象变量的内存Workbooks(1).Sheets(2).Activate '激活excel第一个工作簿的第二个工作表ActiveSheet.UsedRange.Clear '把当前工作表清空,如果有重要数据,这条删除Cells(1, 1).Select '选择A1单元格ActiveSheet.Paste '粘贴复制的内容wordappl.quitset wordappl =nothingEnd Sub...
word 文档中的图片怎么用vba 批量自动保存为逐个的jpg 文件呢?
不用VBA,编程一般人玩不了,给你一个最简单的方法,可以一下子把所有的图片一下子保存都保存下来。
1、你先把Word文档复制一个副本,用于保存原文档。
2、打开Word文档,Word菜单→另存为→选择htm网页格式,找到位置,保存。
退出文档。
3、在保存网页的位置,找到与文档相同名字的一个文件夹,你想要的图片都在文件夹内了。
4、整理一下文件夹内的图片,OK。
(可能会有较多不想要的其他东西,可以删除),也可以把文件夹外的网页文件删除了。
关于Word中 的VBA 编程
解决你的“顺便问下".....Sub Macro1()Dim strText As StringstrText = "建立反对撒客里空的龙卷风"Selection.TypeText strTextSelection.MoveStart Unit:=wdLine, Count:=-1Selection.MoveEnd Unit:=wdCharacter, Count:=-1 * (Len(Selection.Text) - 4)Selection.MoveStart Unit:=wdCharacter, Count:=3Selection.Font.Bold = TrueMsgBox Selection.TextEnd Sub
转载请注明出处51数据库 » word vba 文档