如果文档中的代码表格时,感觉还是很快速有用的. Sub HangHao() ' ' hanghao 宏 ' ' Dim parag As Paragraph Dim nLineNum: nLineNum = 0 Dim selRge As Range Set selRge = Selection.Range For Each parag In Selection.Paragraphs nLineNum = nLineNum + 1 bgNLineNum = nLineNum selRge.Par

看过很多人写的VBA代码,一团一团的,一点规划都没有,为了VBA编程更具工程性,这里讨论一下,并列出自己的一些建议:0.给VBA工程定义一个名字,而非直接使用默认的名称——"VBAProject",以方便以后可能要进行的跨VBA工程编码1.定义一个命名为“O”的标准模块[拼音中“O”字母的读音,意指“我”这个字],用于定义所有的全局对象,管理本工程的代码与数据,主要API:    [1]About(Optional ShowDetail As Boolean = False)函数:对本

处理Selection对象和Range对象——Word VBA中重要的两个对象 Word 开发人员参考Selection 对象代表窗口或窗格中的当前所选内容.所选内容代表文档中选定(或突出显示)的区域,如果文档中没有选定任何内容,则代表插入点.每个文档窗格只能有一个 Selection 对象,并且在整个应用程序中只能有一个活动的 Selection 对象.说明 可以使用 Selection 属性返回 Selection 对象.如果 Selection 属性未使用对象限定符,则 Microsoft

安装office2010的时候, 最好是 完全安装/完整安装 , 这样可以查阅 excel的 "帮助文档" 帮助文档中包含了更多的/更详细的 参考信息. 普通模块无事件, 只有 子过程和函数等.. / 而类模块(包括工作表/工作簿/窗体)模块 才有 事件! 工作表的名称: 要注意, 在vba代码中, 是用的 worksheet表示工作表, 而在excel中表示工作表的 默认名称直接是 : Sheet1, Sheet2,Sheet3 没有work- 但是在excel对象中, 是三个she

参考:Object model (Word VBA reference) 序号 类名称   功能说明   语法 & 举例 01 Selection   ====<<<< Description >>>>==== 代表窗口或窗格中的当前所选内容.所选内容代表文档中选定(或突出显示)的区域,如果文档中没有选定任何内容,则代表插入点.每个文档窗格只能有一个 Selection 对象,并且在整个应用程序中只能有一个活动的 Selection 对象.-----

表 20‑1到表 20‑8是VBA编程中使用频率最高的英文单词,按字母排序.词性列中,a表示形容词,n表示名词,v表示动词,p表示介词以及其他词性. 表 20‑1 VBA编程常用词汇表 单词 中文 词性 单词 中文 词性 单词 中文 词性 Absolute 绝对 a Area 区域 n Book 书 n Accelerator 加速器 n Areas 区域 n Boolean 布尔 n Access 访问 v Arg 参数 n Border 边框 n Action 动作 n Array 数组 n

地铁沉降观测数据分析之巧用VBA编程处理 当你观测了一天累的要死了,回来看着成百上千的测量数据,还要做报表.如果是三五页报表还好说,如果是2000个点的报表 按照一页纸张报30个点就得大约70页的报表.作为苦逼的测量员,而且更苦逼的是没有沉降数据处理分析软件的测量员,而且更更苦逼的有沉降数据处理分析软件的但是不配套当地监理要求的报表格式的测量员,是否只能人工去做这么多的日报表呢?想想还有周报,和月报吧!!!多恐怖啊!作为一个过来人,谨将自己的体验和VBA提出来让大家探讨.时间紧凑,没有多审阅文章

今天工作的时候遇到一个问题,需要整理出一个工程下依赖的jar的名称和大小,并且按照大小排序,我在使用一个java程序打印出名称和大小之后,需要将这些文字整理到word文档表格中,刚开始是想一个个的拷进去,后来发现我去,这样太苦逼了,于是查阅了资料之后,发现了一个小技巧 1.     最开始是下面这样的文字 2. 然后新建一个表格,点击插入,选中表格,点击文字转表格 3. 点击后就成了下面这个样子 4. 大功告成

公司网点表存储的坐标是百度坐标,现需要将网点位置标注到高德地图上,研究了一下高德地图的云图数据模版 http://lbs.amap.com/yuntu/reference/cloudstorage和坐标转换服务http://lbsbbs.amap.com/forum.php?mod=viewthread&tid=724,云数据管理平台http://yuntu.amap.com/datamanager/   ,实现了excel文件的导入,现将实现步骤及使用的一些技巧总结一下: 本地数据导出为高德云

1.占位符替换模板导出(只适用于word中含有表格形式的): /// <summary> /// 使用替换模板进行到处word文件 /// </summary> public class WordUtility { private object tempFile = null; private object saveFile = null; private static Word._Document wDoc = null; //word文档 private static Word

程序需要,需要将word中不规则的表格数据转换为标准的表格,即合并的单元格按正常格式解析,word中的表格格式如下: 解析后数据如下: 借鉴了网上代码,如下处理: procedure TfrmMain.getWordCellStr; var WordApp: TWordApplication; WordDoc: TWordDocument; DocInx,oFileName,CfCversions,oReadOnly,AddToRctFiles,PswDocument, PswTemplate,

在主要的编程语言中, 结构体是用大括号来表示 代码段的 范围 界定的. 但是在一些比较"老的"语言中,由于历史原因, 还是使用的 是: 关键字来进行界定代码 的 结构段, 如vba中的 语法结构: if .. . then ... end if, if .... then ... else ... end if; if .... then .... elseif .... then .... elseif .... then.... end if for i=1 to 10 ... e

经常操作办公软件的人一定有一个困惑,ppt本身表格编辑能力似乎很弱,如果从word里直接将一个编辑好的表格复制粘贴到ppt中,整个表格一定会发生让你没有预料的变化,还得重新花老大的劲去重新编辑,有人屛拷截图,也不是办法,有没有什么方法能完美解决这个问题呢 工具/原料   word ppt 方法/步骤     如下图所示,word文档中的表格复制到ppt中之后,表格变的松散,字体变小,字体发生变化,要再次调整到跟word里的一模一样,可得再费一番功夫,有时候还不一定能弄成一个样   将要插入ppt

[程序1] 所有程序语言的开始都源于Hello world,那么我们也使用Hello world进行第一个VBA编程 新建Excle文件-----文件-------选项-----自定义功能区域----开发工具(打钩)  如下图: 此时Excle界面就出现开发工具选项 点击Visual Basic后出现如下界面: 在该窗口中的“工程”子窗口中的Sheet1子节点上,单击鼠标右键,插入---模块 在模块中写下如下代码: [代码区域] Sub First_VB() MsgBox "Hello worl

word 批量设置表格宽度自适应 描述 : 我们经常从 外部 如 excel,html 等其他文件 中复制的表格到word 文档 经常会出现在 word 中显示不全的问题 主要是源格式的表格 宽度比 word 文档页面要大,就会导致 表格无法正常显示所有数据 解决方案 使用 word 宏工具 批量设置 word 文档中的 表格宽度自适应,即可解决问题! 打开宏编辑器 在当前word文档中 按 alt + F11 快捷键 打开 word 宏编辑器 是 vb 语言. 然后 步骤如下图 所示 直接上代

使用VB可以将表外的字体设置标题字体实际操作如下: VB代码如下: Sub oliver_1() Selection.EndKey Unit:=wdStory '光标移到文末 To ActiveDocument.Tables.Count '有几个表格,下面操作就循环几次 With Application.Browser .Target = wdBrowseTable '插入点在表格中 .Previous '插入点移至前一张表格之前 End With Selection.MoveUp Unit:=

.Option Explicit '强制对模块内所有变量进行声明 Option Private Module '标记模块为私有,仅对同一工程中其它模块有用,在宏对话框中不显示 Option Compare Text '字符串不区分大小写 '指定数组的第一个下标为 1 .On Error Resume Next '忽略错误继续执行 VBA代码,避免出现错误消息 .On Error GoTo ErrorHandler '当错误发生时跳转到过程中的某个位置 . '恢复正常的错误提示 .Applicat

Public Sub SameFolderGather() Application.ScreenUpdating = False Application.DisplayAlerts = False Application.Calculation = xlCalculationManual Application.StatusBar = ">>>>>程序正在转化,请耐心等候>>>>>" 'On Error GoTo ErrHan

怎么批量修改Word表格的宽度呢.Word表格可根据窗口自动调整表格宽度,使得所有的表格宽度和页面宽度一样. 当页面设置了新的页边距后,所有的表格都需要调整新的宽度.或者文档中有许多大大小小的表格,希望宽度全部调整与页宽一样.下面的方法就非常有用啦 步骤阅读   百度经验:jingyan.baidu.com 工具/原料 Word 2013 百度经验:jingyan.baidu.com 方法/步骤 1 打开Word文档,按下[Alt + F11] 步骤阅读 2 在VBA编辑器窗口的左上方,双击[T

1.说明 通过使用Word的宏功能, 批量设置表格, 根据窗口自动调整表格, 使所有表格的宽度和窗口一样, 而不用一个一个手动调整表格. 宏是一个批量处理程序命令, 正确地运用它可以提高工作效率. 微软的office软件允许用户编写, 叫VBA的脚本来增加其灵活性, 进一步扩充它的能力. 如完打开Word同时要使用某个功能, 可以编写一段称之为宏的脚本. 2.查看宏 依次点击: 视图 -> 宏 -> 查看宏(V) 或者使用快捷键查看宏: Alt + F8 3.新建宏 在查看宏的界面, 为了新建

最近同事的一个word文档中的表格操作非常不灵活,用鼠标直接调整列宽时总觉得很不灵活.她的操作系统为XP,office 为微软office 2003. 我首先检查了木马,检查了输入法等,结果都没有问题. 后来我发现她为了阅读方便,页面之间是采用隐藏空白的.我就试着整了一下,将隐藏空白改为了不隐藏,结果就好了.^_^