不解释,直接上代码... Sub 删除表格列WT0818() '此符号是注释 ' 删除表格列WT0818 宏 ' For Each tb In ActiveDocument.Tables //word文件中的表格集合 For r = tb.Rows.Count To 1 Step -1 'tb.Rows(r).Delete //删除指定的行 If InStr(tb.Cell(r, 3), "char") > 0 Then tb.Cell(r, 3) = Replace(tb.
FROM://http://blog.csdn.net/jinciyulang/article/details/8631889 阅读cocos2d-x demo的代码,我们会看到有些头文件中使用CREATE_FUNC这个宏,那么它是做什么的呢?在cocos2d-x 又是起什么作用呢?下面我们就一起来看看CREATE_FUNC宏的源代码: /** * define a create function for a specific type, such as CCLayer * @__TYPE__
'脚本方式新建word 再新建文档,文档中输入字符串"你好" Dim wdapp As Word.Application Dim wddoc As Word.Document Set wdapp = CreateObject("Word.Application") Set wddoc = wdapp.Documents.Open("d:\123.doc ") With wdapp .Visible = True .Activate .Select
#define TEMP_FAILURE_RETRY(expression) \ (__extension__\ ({ long int __result;\ do __result = (long int)(expression);\ while(__result == -1L&& errno == EINTR);\ __result;})\ #endif The GNU library provides a