代码如下，如果想判断为其它格式的，请自行修改。Option ExplicitSub EditPasteSpecial()'''当用户单击选择性粘贴命令时,Word自动调用本过程Dim myDlg As Word.DialogDim strDataType As StringSet myDlg = Word.Dialogs(wdDialogEditPasteSpecial) '''选择性粘贴对话框If myDlg.Show = -1 ThenstrDataType = UCase$(myDlg.DataType) '''获取数据类型End IfSet myDlg = NothingIf strDataType = "TEXT" Then '''无格式文本MsgBox "无格式文本方式已被选中！" vbInformation, "Rousoft Office"End IfEnd Sub
答：详情>>
答：这样，用户可以随身携带笔记本电脑在大楼之间或在房间之间移动当计算机与无线AP或其他计算机相距较远时，随着信号的减弱，或者传输速率明显下降，或者根本无法实现与AP...详情>>
