我正在编写一些代码,用Excel文件中的数据修改Word文档模板(代码在Excel中运行)。此代码在Word中创建并保存多个自定义字母,一切正常。下面是我从Excel中获取的代码片段,该代码片段来自Word中用于创建自定义水印的宏录制。InsertWatermark()
Dim WordDoc, WordApp As Object
Set WordApp = GetObject("Word.ApplicationSelection.HeaderFoo
输入单词字符串(单词)查找单词的字符串长度使用range()遍历word中的每个字母(可用于范围循环)将单词中的奇数和偶数字母保存为从索引0,2,...even_letters:从索引1,3,...开始的列表print(odd_letters) =输入(“类型:") word =列表( word )打印(Word) odd_letters = [] even_let
我正在构建一个宏,它循环遍历文档中的每个单词,并通过正则表达式检查它是否与模式匹配,如果匹配,则将找到的单词写入excel表。它是这样的: For Each w In sentence.Words If TestRegExp(myPattern, myWord) Then myCount = myCount + 1