替换播放器SQL语法UPDATE mac_vod SET vod_play_from=REPLACE(vod_play_from, '原始播放器', '替换后播放器') WHERE type_id=文章分类ID
例如
UPDATE mac_vod SET vod_play_from=REPLACE(vod_play_from, 'ckplayer', 'm3u8') WHERE type_i...
原理：让宏自动去查找改文件夹下所有word文档，找到后打开，并对所有文档批量自动执行指定的宏。示例代码如下：
Sub 批量操作WORD()
Dim path As String
Dim FileName As String
Dim worddoc As Document
Dim MyDir As String
MyDir =...
将下方宏命令copy到命令窗口中并点击运行即可，也无需保存，即可（1）设置固定大小n厘米：
Sub resetImgSize()
Dim iShape As InlineShape
For Each iShape In ActiveDocument.InlineShapes
iShape.LockAspectRatio = msoTrue
iShape.Height = Centimeter...