vba正则表达式入门
vba正则表达式入门正则表达式很强大且内容比较多。不少初学者学这个表示很困难。故写一篇入门的教程。1、什么是正则表达式正则表达式是一个天才创建的用于快速检索匹配字符串，通过简单的表达式匹配文本。2、正则表达式的组成正则表达式也是一个字符串，包括元字符、限定符和正常意义的字符。正则表达式强大的地方就在元字符和限定符。3、限定符很多人讲这个都是先讲元字符。其实先讲限定符更加容易吸收。限定符是表示...
Word VBA 批量替换字体颜色
Sub 批量替换字体颜色()With ActiveDocument.Content.Find.ClearFormatting.Font.Color = wdColorRedWith .Replacement.ClearFormatting .Font.Color = wdColorBlack End With.Execute FindText:="", ReplaceWith:="", F...
word vba 设置字体
Sub 设置字体()Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=1, Name:="" Selection.EndKey Unit:=wdLine, Extend:=wdExtend With Selection.Font .ColorIndex = 6 .Size = 15 ...
word中使用vba实现：删除某两行之间的全部内容
如何在word中使用vba实现：删除某两行之间的全部内容比如有一篇文章，我已知“内容简介”在第1页的第15行，“作者简介”在第2页的第3行，我想删除这两行之间的所有内容，如何用vba实现？Word VBA 参考代码：Sub DeleteContent()Dim lngNumOfPages As Long lngNumOfPages = Selection.Information(wdNu...
VBA实现多列数据合并为一列
经常会遇到将一个表格进行重新排列，实现把很多列的数据合并为一列，因此使用VBA实现多列数据合并为一列的功能，这一功能在日常工作也经常会用到，提供的这一VBA函数为MultiColumnsToOneColumn，具体源代码如下：Option Explicit'================================' 多列数据合并为一列' MultiColumnsToOneColumn...
VBA对Word行、段落和光标位置的移动、选择和操作
Const wdCharacter = 1Const wdExtent = 1Const wdExtend = 1Const wdGoToBookmark = -1Const wdLine = 5Const wdCell = 12Const wdTableFormatSimple2 = 2Const wdAlignParagraphRight = 2Const wdYellow = 7Con...
Word文档中行数的VBA例程
一个统计Word文档中行数的VBA例程Sub test() Dim i As Integer Dim t As Table i = ActiveDocument.range.ComputeStatistics(wdStatisticLines) For Each t In ActiveDocument.Tables i = i - t.range.ComputeStatis...
word vba 删除空白段落
删除空白段落 '功能简介:可以对指定长度的段落进行删除，当LEN=1时'可对空白段落进行删除。''* ---------------------------------------Sub 删除空段() Dim i As Paragraph, n As Long Call 删除段首空格2 '调用工程 Application.ScreenUpdating = False '关闭屏幕刷新 ...
word vba 删除段首包含的关键词
Sub 删除段首包含的关键词() Dim i As Paragraph, n As Long Application.ScreenUpdating = False '关闭屏幕刷新 For Each i In ActiveDocument.Paragraphs '在活动文档的段落集合中循环 For n = 1 To i.Range.Characters.Count ...
Word下的几个VBA代码
删除文档中所有内容为空的行Sub DelBlank()Dim i as Paragraph, n as Long Application.ScreenUpdating = False For Each i In ActiveDocument.Paragraphs If Len(i.Range) = 1 Then i.Range.Delete n = n...
