VBA,字符串处理大全
1 VBA中的字符串2 VBA中处理字符串的函数2.1 比较字符串 2.2 转换字符串 2.3 创建字符串 2.4 获取字符串的长度 2.5 格式化字符串 2.6 查找字符串 2.7 提取字符/字符串 2.8 删除空格 2.9 返回字符代码 2.10 返回数值代表的相应字符 2.11 使用字节的函数 2.12 返回数组的函数 2.13 连接字符串 2.14 替换字符串 2.15 反向字符串-VBA中的字符串VBA不仅可以处理数字，也可以处理文本(字符串)。VBA提供了两类字符串：一类为固定长度的字符串，声明时包含指字的字符数。例如，下面的语句Dim strFixedLong As Str...
VBA统计WORD文档中汉字、英文及其组合出现的次数，并输出
使用前，需要在word内插入一个textbox1和一个commandbutton1，然后去掉文档中的标点符号。笔者比较懒，未加入剔除标点的代码。理论上下述代码可以统计999个字符（含标点）的文本，如需增加文本数量，则只需要增加数组体积即可。代码只是通过比较简单的for ，do循环实现，没啥技术含量哈。Sub Button1_click()'统计词频 Dim input_word As String Dim input_word_part(1 To 9999) As String Dim output_word_part(1 To 9999) As String Dim temp_inpu...
Word VBA自动排版- 通过For循环批量替换
Word VBA自动排版- 通过For循环批量替换代码比较简单，只是在替换的基础上增加了最基础的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 ...
VBA语句集100句 (Word VBA) [转]
Application对象(301) Application.ActivePrinter ‘获取当前打印机(302) Application.Height '当前应用程序文档的高度(303) Application.Width ‘当前应用程序文档的宽度(304) Application.Build ‘获取Word版本号和编译序号(305) Application.Caption ‘当前应用程序名(306) Application.DefaultSaveFormat '返回空字符串，表示Word文档(307) Application.DisplayRecentFiles '返回是否显示最近...
word vba宏在活动内容后插入文字
word vba宏在活动内容后插入文字Sub InsertTextAtEndOfDocument()ActiveDocument.Content.InsertAfter Text:="你好 www.txttool.com "End Subword vba宏在所选内容前插入文字Sub AddTextBeforeSelection()Selection.InsertBefore Text:="你好 www.txttool.com"End SubRange对象或 Selection对象在使用了 InsertBefore 或 InsertAfter方法之后...
word vba宏在所选内容前插入文字
word vba宏在所选内容前插入文字Sub AddTextBeforeSelection()Selection.InsertBefore Text:="你好 www.txttool.com"End Subword vba宏在所选内容后插入文字Sub InsertTextAtEndOfDocument()ActiveDocument.Content.InsertAfter Text:="你好 www.txttool.com "End SubRange对象或 Selection对象在使用了 InsertBefore 或 InsertAfter方法之后...
word vba宏删除关键字字符之后的所有内容关键字保留
Sub 删除关键字字符之后的所有内容()Selection.Find.ClearFormattingWith Selection.Find .Text = "中国人" '关键字保留 .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute range1 = Selection.End Selection.Find.Execute range2 = Selection.Start ActiveDocument.Range(range1).Delete 'Activ...
word vba宏删除关键字字符之后的所有内容关键字不保留
Sub 删除关键字字符之后的所有内容关键字不保留()Selection.Find.ClearFormattingWith Selection.Find .Text = "中国人" '关键字不保留 .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute range1 = Selection.End Selection.Find.Execute range2 = Selection.Start ActiveDocument.Range(range2).Delete...
Word 宏VBA全角转换为半角
Sub 全角转换为半角()'使用前需先选中要替换的区域 Dim fullshape, halfshape As String, i As Integer '定义fullshape(全角)、halfshape(半角)为字符串型，i为整数型 fullshape = "A、B、C、D、" halfshape = "A.B.C.D." For i = 1 To 10 '循环10次 With Selection.Find .Text = Mid(fullshape, i, 1) 'mid函数：返回文本字符串中从指定位置开始的特定数目的字符，每次取一个标点符号...
