在VBA中如何判断WORD文档内是否已存在选中状态的内容(不管选中
可以使用selection对象来判断。selection对象有个type属性,没有选择内容的时候(插入点时),type属性的值是:wdSelectionIP ,所以可以根据type的值来判段。
if selection.type= wdSelectionIP or selection.type=wdNoSelection then
msgbox "没有选择任何对象,将退出处理过程"
exit sub
end if你可以参考以下微软的MSDN网页。
http://msdn.microsoft.com/zh-cn/library/office/ff821048(v=office.15).aspx
http://msdn.microsoft.com/zh-cn/library/office/ff838140(v=office.15).aspx
vba判断word选定区域内是否存在表格
步骤如下:
1. 打开word文档后,选中图表,鼠标右键,在自动调整中有三个选项;
2.
2.“根据内容调整表格”命令,Word将根据表格中的内容来调整表格的大小;
3.“根据窗口调整表格”命令,Word将根据当前文档页面的大小调整表格的大小,使表格与页面等宽;
4.如果不需要列宽自动调整,选择表格并右击,选择快捷菜单中的“自 动调整”一“固定列宽”命令即可。
用excelvba判断单元格数据改变时自动插入批注,怎么做?,如? 爱问
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("c4:z100")) Is Nothing Then Exit Sub If Target。
Count > 1 Then Exit Sub If Target。Comment Is Nothing Then Target。
AddComment。Text Text:=CStr(Now()) Else Target。
Comment。Delete Target。
AddComment。Text Text:=CStr(Now()) End If Target。
Comment。Visible = False End Sub 如果多次修改,所有修改时间都要在批注内: else ment。
text text:= ment。text & chr(10) &ctrs(now()) 。
word2010 vba 判断是否有文本框
可以先把文本框的内容读出来,替换后再放进去。
Sub test()
Dim T&, tbox As Object
For Each tbox In ActiveDocument.Shapes
If tbox.Type = msoTextBox Then
MsgBox tbox.Name & ": " & tbox.TextFrame.TextRange.Text
T = T + 1
End If
Next
MsgBox "TextBox QTY: " & T
End Sub
VBA常用技巧代码解析
在VBA中,可以利用Range对象的Comment属性判断单元格是否存在批注,如下面的代码所示。 复制内容到剪贴板 代码:#001 Sub HasComment()
#002 If Range("A1").Comment Is Nothing Then
#003 MsgBox "A1单元格中没有批注!"
#004 Else
#005 MsgBox "A1单元格中批注内容为:" & Chr(13) & Range("A1").Comment.Text
#006 End If
#007 End Sub代码解析:
HasComment过程判断A1单元格是否存在批注,并用消息框显示批注信息。
Range对象的Comment属性返回一个批注对象,如果指定的单元格不存在批注,该属性返回Nothing。
运行HasComment过程结果如图所示。
14-2 为单元格添加批注
如果希望为单元格添加批注,那么可以使用AddComment方法,如下面的代码所示。 复制内容到剪贴板 代码:#001 Sub Comment_Add()
#002 With Range("A1")
#003 If .Comment Is Nothing Then
#004 .AddComment Text:=.Value
#005 .Comment.Visible = True
#006 End If
#007 End With
#008 End Sub代码解析:
Comment_Add判断单元格A1中是否存在批注,如果没有批注则为单元格A1添加批注并将单元格数值作为批注文本,同时显示批注对象。
第4行代码使用Range对象的AddComment方法为单元格添加批注。该方法只有一个参数Text,代表批注文本。如果单元格已经存在批注,则该方法返回一个错误。
第5行代码显示批注对象,Visible属性确定对象是否可视。
当单元格A1中不存在批注时,运行代码后的结果如图所示。
14-3 删除单元格中的批注
如果需要删除单元格中的批注,那么可以使用ClearComments方法、ClearNotes方法或者Delete方法,如下面的代码所示。 复制内容到剪贴板 代码:#001 Sub Commentdel()
#002 On Error Resume Next
#003 Range("A1").ClearComments
#004 Range("A2").ClearNotes
#005 Range("A3").Comment.Delete
#006 End Sub格中的批注。
第2行代码错误处理语句,如果单元格中没有批注,那么运行第5行代码时会发生错误,所以使用On Error语句来忽略错误。
第3行代码使用ClearComments方法删除单元格A1中的批注。ClearComments方法清除指定区域的所有单元格批注,语法如下:
expression.ClearComments
第4行代码使用ClearNotes方法删除A2单元格中的批注。ClearNotes方法清除指定区域中所有单元格的附注和语音批注,语法如下:
expression.ClearNotes
第5行代码使用Delete方法删除删除A3单元格中的批注.Range对象的Comment属性返回一个Comment对象,该对象代表与该区域左上角单元格相关联的批注。
vba判断文件是否存在
我就用过两种:
Dim fso
Set fso = CreateObject("Scripting.Filesystemobject")
If fso.FileExists(filePathName) Then
'文件存在
Else
'文件不存在
End if
'----------------------------------
If dir(filepathname) "" Then
'文件存在
Else
'文件不存在
End if
[VBA]如何判断一个文件或者文件夹是否存在
可以使用如下几个函数来判断Function ExistsFile_UseFso(strPath As String) As BooleanDim fsoSet fso = CreateObject("Scripting.FileSystemObject")ExistsFile_UseFso = fso.FileExists(strPath)Set fso = NothingEnd FunctionFunction FolderExists_UseFso(strPath As String) As BooleanDim fsoSet fso = CreateObject("Scripting.FileSystemObject")FolderExists_UseFso = fso.FolderExists(strPath)Set fso = NothingEnd FunctionFunction FileOrFolderExists_UseDir(strPath As String) As Boolean'注意,使用 DIR 函数来检测文件或者文件夹是否存在在局域网环境下'由于访问权限问题可能会出错If Dir(strPath) = "" Then1和0。
转载请注明出处51数据库 » wordvba判断是否存在批注