通配符使用    2
选择性地去掉段落标记    3
Like运算符的语法    3
语句：光标运动，改变选区    4
Sub 用属性的标题更改选定目录下的office文档文件名()    6
'64 卦卦辞输出到数组    7
换行符(vbLf)和回车符(vbCr)有什么区别？    8
查数字后面跟“卦”字，在数字前添加第，在“卦”后面添加冒号    8
关于range的find，和selection的find，    9
判断当前行是否有分页符    9
两段文字之间区域删除do until 未控制死循环    10
两段文字之间区域删除range（range1,range2）和for……next循环    10
两段文字之间区域删除 查扩展选区 for……next循环    11
查特定字符开头结尾（"[[]*[]]*"）的段落，删除其后部分    12
删除空段落    13
选择性粘贴    13
文档中的编号变成标题    13
如何选中每段的一部分，并把这部分复制到另一个文件中？    13
本示例交替设置活动文档中的所有段落为“标题 3”和“正文”样式。    14
新概念3标题整理    15
本示例显示活动文档中每个段落的样式。    15
妙用Visual Basic将Word替换进行到底    15
删除特定开头结尾的段落    17
以下代码可选定两个【例子】之间的内容    17
插入一个图片，将插入的图片的格式设置为浮于文字的上方。    18
当前光标是否处于文章的末尾，光标在文档中的位置（字符计数），    18
如何实现VBA中窗体控件中的复合框控件的下拉菜单中选择数据？而且数据来源与相连接的Excel表中？    18
Int((上限 - 下限 + 1) * Rnd + 下限)    18
WORD VBA 指定任意页为当前页    19
Word自动翻页    19
Sub 清除剪贴板()    19
在文档中显示当前文档的属性，并弹出文档属性的标题    20
BuiltInDocumentProperties 属性    20
当您尝试使用 VBA 更改文档属性时出现运行时错误 4248、4605 或 5941    21
若要列出某个文件夹中的所有文件 WD 2002： 示例宏    23
两个宏使用 Microsoft Word 文档的页或节属性选择并移动到文档内容    26
重命名文件    28
打开目录下文件    28
读取一个文件夹下的所有文件,也可以根据扩展名筛选    29
新建一篇文档，并显示“另存为”对话框，为文档提供一个名称。    29
显示各打开文档的名称。    29
新建一个文件并且写入内容另存，再关闭    30
查替换功能就能实现word宏替换数字和文字之间的空格    30
WordVBA语句- - - - - - - - - - - - - - - - - - --    30
Application对象    30
Documents/Document对象    31
Paragraphs/Paragraph对象    32
Sentences对象    32
Words对象    33
Characters对象    33
Sections/Section对象    33
Range对象    33
其它    34
将A1到A10的数据写到数组里    34
Excel语句集400句    34
定制模块行为    34
工作簿    35
工作表    35
单元格/单元格区域    36
公式与函数    37
图表    38
窗体    38
事件    39
对象    39
工作簿    40
工作表    40
公式与函数    41
图表    42
窗体和控件    42
对象    43
Application对象    43
Range对象    44
Collection与object    45
Windows API    45
8位数
利用循环，先到 .后面跟数字，选中小数点点前面的字符，判断是否数字，如果是，i加1（初始＝0）得到小数点前面的位数为A
再小数点后面的数字个数为B，如果A＋B>=8，光标定位在小数点上，向后移动8－A次，删除后面的数字(A+B-8)个
通配符使用
[^i^13^32^t]{2,}  替换任意2个以上相邻的软回车、硬回车、空格或者制表符为硬回车
(<[!^13]*^13)(*)\1    \1\2  删除重复段落，重复直到删除完所有的重复段落
*[^13^l] 使用通配符 格式 非隐藏  查并复制这些，再在特殊格式文字上右键选相似文字删除之
选择性地去掉段落标记
Sub 标记词()
Selection.InsertAfter "标记词"
End Sub
Sub 去除段落标记()
Application.ScreenUpdating = False
With Selection
.HomeKey Unit:=wdStory
.Find.Execute findtext:="^p", replacewith:="", Replace:=wdReplaceAll, Wrap:=wdFindContinue
.Find.Execute findtext:="标记词", replacewith:="^p", Replace:=wdReplaceAll, Wrap:=wdFindContinue
Application.ScreenUpdating = True
End With
End Sub
Like运算符的语法
Like运算符用于判断给定的字符串是否与指定的模式相匹配，其语法为：
结果=<字符串> Like <模式>
说明：
(1) <字符串>为文本字符串或者对包含文本字符串的单元格的引用，是要与<模式>相比较的字符串，数据类型为String型。
<模式>数据类型为String型，字符串中可以使用一些特殊字符，其它的字符都能与它们相匹配，其如下表1所示。字符串函数title作用

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。