66问答网
所有问题
word宏命令vba中,如何把已选定的区域的内容提取出字符来,以便进行判断
比如我想从左至右以此检查,判断是否出现了空格,或是否出现了某个字幕如a b,或某个字符串ab等。但是选定了某一区域的内容以后不知道该如何处理,能帮我写一下关键的代码吗。
举报该问题
推荐答案 2014-06-16
Sub AAA()
Dim S As String
S = Selection
If InStr(S, "a") > 0 Then '将a修改为其他需要判断的字符或者字符串即可。
MsgBox "包含字母a"
End If
End Sub
温馨提示:答案为网友推荐,仅供参考
当前网址:
http://66.wendadaohang.com/zd/p2U9vDx2pU9v2vU9sn.html
相似回答
word中vba的
问题,想请问在
word中如何
调用
选定
文字的字数,并
将
字数变量...
答:
case 10,20:msgbox "当前选定字段
字符
数为" & STR$(Selection.
Words
.Count)End select End Sub 想设定更多特定字数,在case语句后加上并用逗号分开就可以了
如何
在
word中提取
所有的文字和英文?
答:
在“查找内容”框中输入“[a-zA-Z]+”(不含引号),这个正则表达式代表所有英文字符
。勾选“使用通配符”选项。点击“查找全部”按钮,Word将列出所有匹配的英文字符。可以选择复制这些英文字符,然后粘贴到其他位置。3. 使用宏(VBA)编程提取汉字或英文:打开Word文档,并按下“Alt+F8”打开“宏”对...
在VBA中如何判断WORD文档
内是否已存在选中状态
的内容
(不管选中的内容是...
答:
可以使用selection对象来判断
。selection对象有个type属性,没有选择内容的时候(插入点时),type属性的值是:wdSelectionIP ,所以可以根据type的值来判段。if selection.type= wdSelectionIP or selection.type=wdNoSelection thenmsgbox "没有选择任何对象,将退出处理过程"exit subend if你可以参考以下...
VBA,如何判断word中
被选择
的区域的
开始和结尾?
答:
selection.Range.start '开始位置 selection.Range.End '结束位置
如何
利用
excel vba提取word中
表格的部分
内容,
复制粘贴到excel_百度知...
答:
Sub 宏1() Dim
word
app As Object Dim mydoc Dim mypath$, myname$ Dim wdRng As Object Dim pos1%, pos2% '定义找到的字段的首位位置 Application.DisplayAlerts = False Set wordapp = CreateObject("word.application") mypath = ThisWorkbook.Path & "" myname...
关于用
VBA提取word中
指定
内容
到excel
中的
请教?
答:
Function regf(origiText, myPattern)Set regex = CreateObject("VBScript.RegExp")With regex .Pattern = myPattern .Global = True .IgnoreCase = False Set matchs = .Execute(origiText)End With For Each m In matchs regf = regf + m.submatches(0) + Chr(10)Next End Function ...
大家正在搜
vba选定第一行到最后一行
vba打印选定区域
word宏命令大全
word宏命令教程
如何编辑和使用宏word文档
vba选中多行
vba选中第i行
word宏Goto
vba选定段
相关问题
WORD VBA: 查找字符并选择整个格子
谁会word vba啊,如何在其中查找某些字符啊
在Word的VBA中根绝有无选择区做出不同反应?
VBA问题,如何判断word文本的最后一个字符?或换行符?
word 中如何用vba来获得指定行号的内容
如何在word里使用VBA语句删除选定范围内的关键字?求代码...
word的VBA问题,如何判断被选择的文本的头与尾的位置?
word vba 如何选择区域