word 替换文本框

创建以下宏

Dim mShape As Shape
Dim tmpString As String
For Each mShape In ActiveDocument.Shapes
If mShape.Type = msoTextBox Then
tmpString = mShape.TextFrame.TextRange.Text
mShape.TextFrame.TextRange.Text = Replace(tmpString, "查找内容", "替换内容")
End If
Next
End Sub

时间： 2024-07-31 17:03:34

word 替换文本框的相关文章

POI列子：替换文本框值

适用于2007版本的word,最开始是因为项目需要就去找找POI打印的列子,结果文本框替换值有点不知所措,试了一些方法.通过POI的api源码找到点头绪. 直接切代码,不擅长描述: 有些是重复,没有写成公用方法,因为是以前写的 ============================================查询值替换并生成zip包下载========================================= package com.buss.system.print; impor

C# 替换Word文字【包含页眉、页脚、文本框、普通文字的替换】

---使用 using System; using System.Collections.Generic; using System.Linq; using System.Text; namespace ToWord { class Program { static void Main(string[] args) { string sourceFile = @"c:\users\administrator\documents\visual studio 2012\Projects\ToWord

jQ禁止右键点击、隐藏搜索文本框文字、在新窗口中打开链接、检测浏览器、预加载图片、页面样式切换、所有列等高、动态控制页面字体大小、获得鼠标指针的X值Y值、验证元素是否为空、替换元素、延迟加载、验证元素是否存在于Jquery集合中、使DIV可点击、克隆对象、使元素居中、计算元素个数、使用Google主机上的Jquery类库、禁用Jquery效果、解决Jquery类库与其他Javascript类库冲突

1. 禁止右键点击代码如下: $(document).ready(function(){ $(document).bind("contextmenu",function(e){ return false; }); }); 2. 隐藏搜索文本框文字代码如下: $(document).ready(function() { $("input.text1").val("Enter your search text here"); textFill($

word 替换文本框