打开ppt按Alt+F11,插入--模块, 选中“工具”--“引用”--MicroSoft Word .. 复制代码: Sub Main() On Error Resume Next Dim temp As New Word.Document, tmpShap As Shape, tmpSlide As Slide For Each tmpSlide In ActivePresentation.Slides For Each tmpShape In tmpSlide.Shapes temp.R
这是一个自定义控件,继承了TextBox,在TextBox基础上添加了4个属性(下载): 1.ControlType 文本框需要验证的类型 2.ControlTypeText 显示的文字(只读) 3.IsNULL 填写的内容是否可空 4.IsPass 格式是否正确(在文本框失去焦点时验证,只读) 代码如下: using System; using System.Collections.Generic; using System.Linq; using System.Text; using Sys