精华内容
下载资源
问答
  • word 以上全选

    2013-10-15 12:25:04
    自写的word2003宏代码,用于简化操作,运行后,自动选定当前段落之前的所有段落
  • 选择WORD文档中的所有表格宏代码

    千次阅读 2017-08-20 17:37:56
    主要是把WORD文档中的所有表格选取上,以便单独对文档中的所有表格进行整体编辑,宏代码如下:'************************************** ' 函数名: SelectAllTables ' 功  能:主要是把WORD文档中的所有表格选取上...
    主要是把 WORD 文档中的所有表格选取上,以便 单独 对文档中的所有表格进行整体编辑,宏代码如下:

    '**************************************
    ' 函数名SelectAllTables
    '    :主要是把WORD文档中的所有表格选取上,以便单独对文档中的所有表格进行整体编辑。

    '**************************************

    Sub SelectAllTables()

        Dim tempTable As Table

        Application.ScreenUpdating = False

        '判断文档是否被保护

        If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then

            MsgBox "文档已保护,此时不能选中多个表格!"

            Exit Sub

        End If

        '删除所有可编辑的区域

        ActiveDocument.DeleteAllEditableRanges wdEditorEveryone

        '添加可编辑区域

        For Each tempTable In ActiveDocument.Tables

            tempTable.Range.Editors.Add wdEditorEveryone

        Next

        '选中所有可编辑区域

        ActiveDocument.SelectAllEditableRanges wdEditorEveryone

        '删除所有可编辑的区域

        ActiveDocument.DeleteAllEditableRanges wdEditorEveryone

        Application.ScreenUpdating = True   

    End Sub

     


    展开全文
  • Word批量选中表格

    千次阅读 2020-02-05 23:13:32
    选择选项 ...Sub 批量选中表格() Dim tempTable As Table Application.ScreenUpdating = False If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then MsgBox "文档已保护,此时...

    选择选项
    在这里插入图片描述

    在自定义区域勾选开发工具
    在这里插入图片描述

    选着Visual Basic
    在这里插入图片描述

    输入以下代码
    在这里插入图片描述

    代码

    Sub 批量选中表格()
    
    Dim tempTable As Table
    
    Application.ScreenUpdating = False
    
    If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then
    
    MsgBox "文档已保护,此时不能选中多个表格!"
    
    Exit Sub
    
    End If
    
    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
    
    For Each tempTable In ActiveDocument.Tables
    
    tempTable.Range.Editors.Add wdEditorEveryone
    
    Next
    
    ActiveDocument.SelectAllEditableRanges wdEditorEveryone
    
    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
    
    Application.ScreenUpdating = True
    
    
    End Sub
    

    选着宏

    在这里插入图片描述

    运行宏

    在这里插入图片描述

    运行之后会选中所有的表格。

    展开全文
  • WORD之VBA几种全选的方法

    千次阅读 2021-04-13 14:39:40
    以下是本人自学心得分享并记录,以便日后忘记了可以翻查,同时希望能帮到自学的朋友,测试环境为WORD2007,测试文档为纯文字文档,没有对插入图表、表格、图片、多媒体等内容的文档进行测试,有需要可以自行测试。...

    转自:https://baijiahao.baidu.com/s?id=1654133934465654783&wfr=spider&for=pc

    以下是本人自学心得分享并记录,以便日后忘记了可以翻查,同时希望能帮到自学的朋友,测试环境为WORD2007,测试文档为纯文字文档,没有对插入图表、表格、图片、多媒体等内容的文档进行测试,有需要可以自行测试。

     

    activedocument.Range(activedocument.Words.First.Start,activedocument.Words.Last.End).Select要对WORD文档内容进行选择就要先了角WORD文档内容的组成,大家在看小说的时候都能看到第几章第几节的,其它是WORD里也有分节的,可以在需要的时候手动插入,如果没有插入分节符,无论文档有多少页,都只有一个节,要插入节的时候可以点菜单栏》页面布局》分隔符》分节符,Sections(X)代表第X节。

    无论有多少个节,

    ActiveDocument.Sections.First.Range.Select都代表第一个节

    ActiveDocument.Sections.Last.Range.Select都代表最后一个节

    如果只有一个节,那么无论是选择第一节还是选择最后一节都相当于全选

    无论有多少个节,都可以使用以下语句全选

    ActiveDocument.Range(ActiveDocument.Sections.First.Range.Start, ActiveDocument.Sections.Last.Range.End).Select

    上面词句意思意思是选择第一节开始到最后一节结尾,也就是全选的意思,ActiveDocument.Range(区域开始,区域结束),意思是为活动文本指定一个区域,区域里就是区域范围,指定区域开始和区域结束位置

     

    每个节里有若干段落,段落标记^p,在“查找和替换”窗口中点击“特殊格式”就可以选择段落标志,或直接在查询内容中输入^p,段落标志由回车键产生,代表分段,一个回车就是一段。在WORD中回车符号见下图左边被方框圈着的标志。

     

    Paragraphs(2),代表第二段落

    整个文档由若干段落组成,所以我们也可以通过选择段落的方法全选

    ActiveDocument.Range(ActiveDocument.Paragraphs.First.Range.Start, ActiveDocument.Paragraphs.Last.Range.End).Select

    通常情况下,文档第一段是标题,如果我们要选择除标题外的其它所有内容则可以

    ActiveDocument.Range(ActiveDocument.Paragraphs(2).Range.Start, ActiveDocument.Paragraphs.Last.Range.End).Select

    每个段落又是由若干的句子组成,每个句子由若干的词组和字符组成,由此也是可以通过选择句子,单词或字符的方法全选。

    Characters(index),字符

    Words(index),单词,以WORD词库划分

    Sentences(index)句子,以句号划分

    通常标题只有一句内容,所以要选择除标题外的其它所有内容也可以写成

    ActiveDocument.Range(ActiveDocument.Sentences(2).Start, ActiveDocument.Sentences.Last.End).Select

    通过选择句子的方法全选可以写成

    ActiveDocument.Range(ActiveDocument.Sentences.First.Start, ActiveDocument.Sentences.Last.End).Select

    注意的是,"Sections节"和"Paragraphs段落"后面是要写上range对象的,但“Sentences句子”、“Words单词”、“Characters字符”后面是不用接range,

    通过选择单词的方法全选可以写成

    activedocument.Range(activedocument.Words.First.Start,activedocument.Words.Last.End).Select

    通过选择字符的方法全选和其它的有点区别,直接写上从第几个字符到第几个字符就可以了,由于不知道有多少个字符所以可以使用ActiveDocument.Characters.Count得到总字符数

    ActiveDocument.Range(0, ActiveDocument.Characters.Count).Select

    当前也可以写成和通过单词或句子一样的方法

    ActiveDocument.Range(ActiveDocument.Characters.First.Start,ActiveDocument.Characters.Last.End).Select

    但不建议使用字符的方法来全选,毕竟是以字符为单位,如果文章内容多的时候,运行效率是会明显比选择节或段落的方法低。如果要区分标题和正文内容的话,建议使用段落的选择方法,如果是包括标题的所有文字内容建议使用

    ActiveDocument.Content.Select '全选文字内容

    Content代表主文档文字部分 (文章:包含文档中可区别于其他文字区域的文字区域。例如,如果文档包括正文文本、脚注和标题,则文章包含主文章、脚注文章和标题文章。)

    需要在文章最后添加内容可以

    ActiveDocument.Content.InsertAfter "文章后新增内容"

    展开全文
  • word 使用批量设置表格

    千次阅读 2016-01-04 22:58:00
    表格内边框 .Borders.InsideLineStyle = wdLineStyleSingle ' 表格内边框 .Borders(wdBorderRight).Color = wdColorAutomatic .Borders(wdBorderLeft).Color = wdColorAutomatic .Borders(wdBorderTop)....
    Sub ChangeTable()
    
    Application.Browser.Target = wdBrowseTable
    
        For i = 1 To ActiveDocument.Tables.Count
    
            ActiveDocument.Tables.Item(i).Select
    
            With Selection
        
                '表格外边框
                .Borders.OutsideLineStyle = wdLineStyleSingle
                '表格内边框
                .Borders.InsideLineStyle = wdLineStyleSingle
                '表格内边框
                .Borders(wdBorderRight).Color = wdColorAutomatic
                .Borders(wdBorderLeft).Color = wdColorAutomatic
                .Borders(wdBorderTop).Color = wdColorAutomatic
                .Borders(wdBorderBottom).Color = wdColorAutomatic
                '表格居中
                .Rows.Alignment = wdAlignRowLeft
                '表格内容居中
                .Range.Paragraphs.Alignment = wdAlignParagraphLeft
                
            End With
        
        Next i
    
    End Sub

     

    相关链接:http://blog.chinaunix.net/uid-20423564-id-1949478.html

    展开全文
  • Word中怎么一次选中所有表格

    千次阅读 2021-02-23 10:40:49
    1、打bai开word文档,切换到“视图”标签du-点击“”下拉zhi箭dao头-点击“查看”。...' 功 能:主要是把WORD文档中的所有表格选取上,以便单独对文档中的所有表格进行整体编辑。 '*************************
  • ... MsgBox "文档已保护,此时不能选中多个表格!...2 word---视图-------查看----输入宏名...4 word---视图-------查看----运行刚创建的,在word中查看,所有表格已为选中状态。
  • 选中Word中全部表格和修改表格列宽

    千次阅读 2019-01-28 09:23:34
    2.方法:通过Word中的命令,选中全部表格,并修改表格列宽。 3.选中全部表格命令。 在WPS中,依次选择视图>>>>编辑,添加代码如下: Sub SelectAllTables() Dim tempTable ...
  • -------------------------------------------------------------------- 学数学和计算机,当然还是用LaTeX排版技术文章更方便。但有时候还是迫不得已需要用Word写作,另外Word其实也有W...
  • Word VBA 选取文档中的所有表格

    千次阅读 2016-05-23 20:28:00
    Word VBA 选取文档中的所有表格 Sub 选取所有表格() ' ' 选取表格 ' Dim T As Table Application.ScreenUpdating = False ActiveDocument.DeleteAllEditableRanges wdEditorEvery...
  • 测试开发笔记

    万次阅读 多人点赞 2019-11-14 17:11:58
    读书选择 166 3.2.Counter 168 3.3:word中的判定表举例 169 3.4.合并判定表 170 3.4.密码修改 171 3.5.进销存 173 3.6.总结 175 因果图 176 4.1.字母判定 177 4.2.自动售货机 179 课前复习: 180 状态迁移 181 5.1....
  • word文档批量处理表格

    2021-09-29 19:55:00
    可以使用,编写脚本代码来进行批量修改。...全选word中所有的表格 Sub SelectAllTable() Dim tempTable As Table Application.ScreenUpdating = False '判断文档是否被保护 If ActiveDocument.Pro
  • 如何在Word中排出漂亮的代码

    万次阅读 多人点赞 2014-12-08 15:58:35
    引言 学数学和计算机,当然... 从Matlab高亮代码复制到Word,中文会乱码开始,我就很想研究下如何在Word中展示漂亮的代码。今年寒假利用Vim,有些突破,10月3日的时候又有了比较大的进展,自己设计了一款Vim的代码...
  • 如何批量处理word中的表格

    千次阅读 2014-07-11 00:37:24
    如何批量处理word中的表格 1 .批量设置word中的表格宽度 比如,我这有一个word文档有200多个表格(全部是3列的),现在要求第一列宽度3cm...
  • 不知道大家在工作当中有没有遇到这样的情况:在WORD文档中想插入图片,却不能保证大小格式一样怎么办?如果数量较少的话,我相信大家还是有办法解决的!比如可以先插入一张图片后设置统一的格式进使用快捷键F4进行上...
  •  If MsgBox("是否转换为 Word2003 格式?", vbYesNo + vbCritical) = vbYes Then  x = Left(y, Len(y) - 5)  .SaveAs FileName:=x, FileFormat:=wdFormatDocument  If MsgBox("是否删除源文件?", 4 + 16) = ...
  • 这是作者的网络安全自学教程系列,主要是关于安全工具...这篇文章将讲解病毒相关知识,它仍然活跃于各个APT攻击样本中,本文包括病毒基础原理、防御措施、自发邮件及APT28样本分析。基础性文章,希望对您有所帮助。
  • 因此,我重新开设了这个专栏,准备系统整理和深入学习系统安全、逆向分析和恶意代码检测,“系统安全”系列文章会更加聚焦,更加系统,更加深入,也是作者的慢慢成长史。换专业确实挺难的,逆向分析也是块硬骨头,但...
  • JeecgBoot是一款基于代码生成器的低代码平台!前后端分离架构 SpringBoot2.x,SpringCloud,Ant Design&Vue,Mybatis-plus,Shiro,JWT 支持微服务。强大的代码生成器让前后端代码一键生成! JeecgBoot引领低代码开发...
  • 有时候需要将一个word文档每一页另存为一个word文档,如果手工操作,量大会累死人的。今天我们用VBA来实现批量自动处理。在文档的ThisDocument的代码页中输入以下代码,然后执行Sub SaveParagraph() 即可: Option ...
  • 病毒的研究与实例分析01——基础篇

    千次阅读 多人点赞 2019-03-10 19:45:02
    文章目录前言基础知识病毒VB基础sub与functionVB基本函数对象病毒实例分析实例1oledump.py病毒的分析技巧自动执行隐秘执行调用外部例程和命令执行字符串隐写Chr()函数Replace()函数CallByname 函数...
  • 2. 菜单栏: 文件( F )、编辑( E )、视图( V )、插入( I )、格式( O )、工具( T )、表格( A )、窗口( W )、帮主( H ) 3. 菜单的打开: 鼠标单机、 Alt+ 菜单后字母 4. 标尺: 水平、垂直 (页面...
  • Excel VBA 操作 Word(入门篇)

    万次阅读 多人点赞 2018-07-03 13:14:56
    原文地址本文的对象是:有一定Excel VBA基础,对Word VBA还没有什么认识,想在Excel中通过VBA操作Word还有困难的人。 一、新建Word引用需要首先创建一个对 Word Application 对象的引用。在VBA中,工具-引用,选取...
  • 必须将Word文档保存在有图片的文件夹内,打开该Word文档,全选后按 F9 ,完成。 10 排版 10.1 制表符/制表位排版 打开标尺,在左侧标尺上方,可以设置制表符是居中/左/右,这样插入的制表位是相应变化...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 384
精华内容 153
关键字:

word全选表格的宏代码