vba正则表达式入门

vba正则表达式入门

vba正则表达式入门正则表达式很强大且内容比较多。不少初学者学这个表示很困难。故写一篇入门的教程。1、什么是正则表达式正则表达式是一个天才创建的用于快速检索匹配字符串,通过简单的表达式匹配文本。2、正则表达式的组成正则表达式也是一个字符串,包括元字符、限定符和正常意义的字符。正则表达式强大的地方就在元字符和限定符。3、限定符很多人讲这个都是先讲元字符。其实先讲限定符更加容易吸收。限定符是表示...

VBA 2019-09-28 AM 3999次 0条
Word VBA 批量替换字体颜色

Word VBA 批量替换字体颜色

Sub 批量替换字体颜色()With ActiveDocument.Content.Find.ClearFormatting.Font.Color = wdColorRedWith .Replacement.ClearFormatting .Font.Color = wdColorBlack End With.Execute FindText:="", ReplaceWith:="", F...

VBA 2019-09-26 PM 5303次 0条
word vba 设置字体

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 ...

VBA 2019-09-25 PM 3621次 0条
word中使用vba实现:删除某两行之间的全部内容

word中使用vba实现:删除某两行之间的全部内容

如何在word中使用vba实现:删除某两行之间的全部内容比如有一篇文章,我已知“内容简介”在第1页的第15行,“作者简介”在第2页的第3行,我想删除这两行之间的所有内容,如何用vba实现?Word VBA 参考代码:Sub DeleteContent()Dim lngNumOfPages As Long lngNumOfPages = Selection.Information(wdNu...

VBA 2019-09-25 PM 3357次 0条
VBA实现多列数据合并为一列

VBA实现多列数据合并为一列

经常会遇到将一个表格进行重新排列,实现把很多列的数据合并为一列,因此使用VBA实现多列数据合并为一列的功能,这一功能在日常工作也经常会用到,提供的这一VBA函数为MultiColumnsToOneColumn,具体源代码如下:Option Explicit'================================' 多列数据合并为一列' MultiColumnsToOneColumn...

VBA 2019-09-25 PM 5738次 0条
VBA对Word行、段落和光标位置的移动、选择和操作

VBA对Word行、段落和光标位置的移动、选择和操作

Const wdCharacter = 1Const wdExtent = 1Const wdExtend = 1Const wdGoToBookmark = -1Const wdLine = 5Const wdCell = 12Const wdTableFormatSimple2 = 2Const wdAlignParagraphRight = 2Const wdYellow = 7Con...

VBA 2019-09-25 PM 6480次 0条
Word文档中行数的VBA例程

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...

VBA 2019-09-25 PM 2484次 0条
word vba 删除空白段落

word vba 删除空白段落

删除空白段落 '功能简介:可以对指定长度的段落进行删除,当LEN=1时'可对空白段落进行删除。''* ---------------------------------------Sub 删除空段() Dim i As Paragraph, n As Long Call 删除段首空格2 '调用工程 Application.ScreenUpdating = False '关闭屏幕刷新 ...

VBA 2019-09-25 PM 3237次 0条
word vba 删除段首包含的关键词

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 ...

VBA 2019-09-25 PM 2187次 0条
Word下的几个VBA代码

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...

VBA 2019-09-25 PM 2857次 0条
wrod vba中调用 Function

wrod vba中调用 Function

Sub 查找相同字符个数()Text = InputBox("请输入您要查找到字符:", "信息提示")Dim result As StringFor i = 1 To 45Text = "[" + Trim(str(i)) + "]" '注意数值转成字符串会在前面加上空格,所以要用trim去除空格Text = Trim(Text)With ActiveDocument.Content....

VBA 2019-09-25 PM 3202次 0条