精华内容
下载资源
问答
  • word自动排版,公文自动排版,word自动排版 高效办公,提高办公效率 很好的选择,可以自动设置很多需要手动重复操作的内容!
  • 公文自动排版VBA代码

    2018-05-08 09:34:04
    使用vba代码,使得繁琐的公文排版工作变成自动化的享受!
  • 里面内容详细,有较多案例教程,希望大家能够共同学习
  • VBA代码排版工具

    千次阅读 2017-11-09 22:22:58
    VBA代码排版工具下载

    工具名称:Smart Indenter V3.1
    第一步:解压后安装
    第二步:打开EXCEL的VBA编辑器,在编辑菜单里就可以找到“Smart Indenter”菜单

     

    示例如下:

     

    文件下载链接:http://pan.baidu.com/s/1kVBs8Gf 密码:eisv

    展开全文
  • VBA代码自动对齐工具

    热门讨论 2008-12-16 15:29:56
    Smart Indenter VBA代码自动对齐工具
  • 就是一个通过VBA实现的word宏,代码虽然比较LOW,但是很好用。 该宏可以同时实现新建窗口、并排查看和取消同步滚动,如果需要保留同步滚动,只需在相应处进行修改即可。 兼容了doc和docx格式 代码如下 Sub 分窗口...

    就是一个通过VBA实现的word宏,代码虽然比较LOW,但是很好用。
    该宏可以同时实现新建窗口、并排查看和取消同步滚动,如果需要保留同步滚动,只需在相应处进行修改即可。

    在这里插入图片描述
    兼容了doc和docx格式
    代码如下

           Sub 分窗口()
            Dim Document As String
            Dim leftnum As Long
            Dim dot As String
            **取消页间间隔**
            ActiveWindow.View.DisplayPageBoundaries = False
            **页面缩放比率100%**
            ActiveWindow.ActivePane.View.Zoom.Percentage = 100
             **变量赋值**
            Document = ActiveDocument.Name
            leftnum = InStr(Document, "doc")
            dot = Right(Document, 4)
            **识别扩展名**
            If dot = "docx" Then
            **新建窗口**
            NewWindow
            **新建窗口缩放比率100%**
            ActiveWindow.ActivePane.View.Zoom.Percentage = 100
            **并排查看**
            Windows.CompareSideBySideWith Left(Document, leftnum - 2) & ".docx:1"
               **同步滚动:否**
            Windows.SyncScrollingSideBySide = False
            
            ElseIf InStr(Document, "docx [兼容模式]") Then
            NewWindow
            ActiveWindow.ActivePane.View.Zoom.Percentage = 100
            Windows.CompareSideBySideWith Left(Document, leftnum - 2) & ".docx [兼容模式]:1"
               **同步滚动:否**
            Windows.SyncScrollingSideBySide = False
            
            ElseIf InStr(Document, "doc [兼容模式]") Then
            NewWindow
            ActiveWindow.ActivePane.View.Zoom.Percentage = 100
            Windows.CompareSideBySideWith Left(Document, leftnum - 2) & ".doc [兼容模式]:1"
               **同步滚动:否**
            Windows.SyncScrollingSideBySide = False
            
            ElseIf InStr(Document, "docx [只读]") Then
            NewWindow
            ActiveWindow.ActivePane.View.Zoom.Percentage = 100
            Windows.CompareSideBySideWith Left(Document, leftnum - 2) & ".docx [只读]:1"
               **同步滚动:否**
            Windows.SyncScrollingSideBySide = False
           
            ElseIf InStr(Document, "doc [只读]") Then
            NewWindow
            ActiveWindow.ActivePane.View.Zoom.Percentage = 100
            Windows.CompareSideBySideWith Left(Document, leftnum - 2) & ".doc [只读]:1"
            **同步滚动:否**
            Windows.SyncScrollingSideBySide = False
            End If
            
        End Sub
    

    赚点零花钱不容易,求赏脸。

    展开全文
  • 本插件提供VBA代码缩进美化,统计,工程密码解密,VBA code dump,API语句64位和32位转换等功能。 最新1.53版同时支持32位和64位office、AutoCAD、WPS、CorelDRAW等软件,支持三种语言,修复十几处Bugs。 获取新版...
  • 代码比较简单,只是在替换的基础上增加了最基础的For循环,有效节省了批量替换文本的时间。 废话不多说,直接上代码, Ori = Array("a","b","c") '被替换文本 Rep = Array("a&...

    代码比较简单,只是在替换的基础上增加了最基础的For循环,有效节省了批量替换文本的时间。
    废话不多说,直接上代码,

    Ori = Array("a","b","c")    '被替换文本
    Rep = Array("a","b","c")    '替换后的文本
    For i = 0 To UBound(Ori)
          With Selection.find
             .Text = Ori(i)
             .Replacement.Text = Rep(i)
             .Forward = True
             .Wrap = wdFindContinue
             .Format = False             '不查找格式
             .MatchCase = False          '不区分大小写
             .MatchWholeWord = False     '不采用全字匹配
             .MatchByte = False          '不区分全半角
             .MatchWildcards = False     '不使用通配符
             .MatchSoundsLike = False    '不查找同音
             .MatchAllWordForms = False  '不查找单词的所有形式
         End With
    

    注,ori(),与rep()的各元素之间应当相互对应

    展开全文
  • Word VBA自动排版(3)- 去除空白段落

    千次阅读 2019-01-22 10:21:10
    代码一则 Sub 删除空白段落() For Each para In ActiveDocument.Paragraphs If Right(para.Range.Text, 2) <> "。" & Chr(13) Then para.Range....

    老代码一则

    Sub 删除空白段落()
        For Each para In ActiveDocument.Paragraphs
             If Right(para.Range.Text, 2) <> "。" & Chr(13) Then para.Range.Characters.Last.Delete
        Next
    End Sub
    
    展开全文
  • VBA代码在试题自动组卷中的排版应用。减轻了教师的工作量
  • Word VBA 实现办公自动排版教程。
  • 我们拿从数据库导出来的数据做面板回归时原始数据往往不是按Stata面板数据格式排版的,这个代码能使下载到excel中的数据自动转化为stata面板数据的排版数据,里面附有详细的操作说明
  • 利用VBA在Word中排出漂亮的代码

    千次阅读 2018-07-25 14:02:16
    宏来进行代码排版进行说明 1.工具  我用的是word2007,word2003和word2010操作也差不多 2.基本操作  从visual studio、QT、Android studio复制代码到word时,通常都会自 带高光的,直接复制粘贴到...
  • 楼主比较懒,代码只提供了提取关键词短句的部分,并未加入重复检测功能 待提取的word文档格式如下:(关键词为XX) aaaxxaa bbbxxbb sssss ccccxxcc sddssfsdf sdfsdfxxdddd 以下代码能够实现批量提取出word文档内的带...
  • 使用VBA能够批量修改,处理繁琐的操作,解放双手~ 本文对应的软件是word2013版。 具体步骤: 1.新建一个能够用宏的文档类型:dotm。 2.一次插入所有的图片 3.点击“宏” 在弹出的窗口中输入宏名...
  • 2.笔者习惯显示文件的扩展名,所以在获取当前文件名称时会保留doc或docx,需在生成权利要求后自动删除 3.上述代码需要获取当前文件名称,因此需要将专利名称作为文件名称 Sub 生成权利要求() documentname = ...
  • 专利说明书在撰写时,如遇到附图标记过多时,往往需要手动替换各部件以增加附图标记,较为耗时,通过下述代码可对文中的所有部件快速标记,通常只需几秒。 Sub 自动增加附图标记() Dim fea(0 To 9, 0 To 9, 0 To 9)...
  • 笔者的使用环境是SQL-SERVER2014 和VS2017 首先在SQL-server中建立如下表格 ...以下是word中的VBA代码: '——————————————————————————————声明公共变量 Public rs As New AD...
  • 历时一个月的紧张开发,VBA代码助手专业版终于问世了,对原加载宏版VBA代码助手进行了全面升级,焕然一新的代码助手重装上阵,希望一如既往的带给大家最好的代码收藏管理和快速插入体验 ! 以前的老朋友应该会很快...
  • 自己管理的Excel工作簿经过多人的修改,其中的很多格式会经常出现不一致的情况,这里提供VBA代码,用来实现表格数据格式一键排版,免除手动频繁调整Excel数据格式。 1 Option Explicit 2 Option Base 1 3 ...
  • 本文主要目的:整理成果,方便日后维护、共享代码;留给我校,以后担任学习委员的学弟学妹,在制作综合测评成绩表时,可以使用我的程序增加效率; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ...
  • 在提取数据时,会遇到具有相似格式的内容,例如同一...必须先将所有符合这种格式的数据找出后形成数组,然后进行批量替换,如果手动录入会非常麻烦,那么可以用到下述代码。以下以字符长度L为第二判别条件实现降噪,...
  • 舍友从网上下载的word题库文档很乱,手动改了大半天才改了一点,想起python是大名鼎鼎的自动化脚本,于是乎开始了python对word的一顿瞎操作。 分析需求 对文档中的内容进行分析,只留下题目,选项,并且题号要从1...
  • 钢板排版预估程序

    2017-04-18 19:40:31
    一个可以将所有制造中需要下料板材的排版预估程序
  • PPT自动排版宏命令

    2011-11-06 12:34:31
    一页8张PPT自动排版宏命令 而且没有间距的啊 最大化排版
  • 代码原理为通过自建数组和通配符替换逐一替换,无需引入其他数据库,运行速度还可以。 代码如下: Sub 替换文本() '替换前文本 Orit = Array("(&lt;[!^13]*^13)(*)\1", "(&lt;[!^13]*^13.....
  • 推荐一款神器-VBA&C#代码编辑管理器

    千次阅读 2019-11-12 10:23:00
    7、VBE排版插件去除了VBA代码动态加密功能,有需要的请用2.x旧版。 已知bug: 1、由于Epplus不支持PrefixCharacter,在导入Excel数据时,如果VBA代码内容的第一个字符是单引号(即VBA注释),第二个字符不是汉字的...
  • 2、接下来进入VBA编辑窗口,将以下代码复制进去: Sub img() '设置图片大小 Dim n ' 图片个数 On Error Resume Next ' 忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片 ...
  • Python 自动整理 Excel 表格

    千次阅读 2019-08-01 14:48:08
    Python 自动整理 Excel 表格 相信有不少朋友日常工作会用到 Excel 处理各式表格文件,更有甚者可能要花大把时间来做繁琐耗时的表格整理工作。最近有朋友问可否编程来减轻表格整理工作量,今儿我们就通过实例来实现 ...

空空如也

空空如也

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

vba代码自动排版