ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 2740|回复: 3

[求助] Word VBA修改文本控件

[复制链接]

TA的精华主题

TA的得分主题

发表于 2018-10-15 09:09 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
各位大神好!
我有个问题是关于Word VBA的,我想做一个检验报告模板,
用VBA编写一个窗体,
然后在窗体里填写报告信息,
然后自动将报告模板中值定的文本控件内容修改成在窗体里填写的信息。
我本身Excel VBA就是个小新手,这到了Word里更蒙圈了,
哪位大神等带我上上道,帮我起个头就好,剩下的我自己摸索。
比如,如何用VBA批量修改报告编号这个文本控件呢?


微信截图_20181015090027.png
微信截图_20181015090000.png
微信截图_20181015085853.png

特检报告_膨胀节_2019版.zip

147.76 KB, 下载次数: 18

TA的精华主题

TA的得分主题

发表于 2018-10-15 18:50 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
1) 2017B0131
2) 副本:报送受理单位
3) 无加强U形
4) ZXLDN500-PN4.0-1X6X4X(Q345R)
5) 辽阳市太子河区大林子冲压厂
6) 辽阳市太子河区大林子冲压厂
7) 首次制造
8) 2017B131
9) 辽阳市太子河区大林子冲压厂
10) 辽阳市太子河区大林子冲压厂
11) 铁西路124号
12) 辽阳市太子河区大林子冲压厂
13) ZXLDN500-PN4.0-1X6X4X(Q345R)
14) 2017年6月20日
15) LCF81002-00
16) C2017-17-1~5
17) 2017年11月13日
18) 5
19) 2017
20) 12
21) 5
22) 2018B131
23) 2.5
24) 80
25) ±15
26) 500
27) 8
28) 400
29) SUS304
30) 27
31) 35
32) 496
33) 4
34) 1.0
35) 3
36) 1000
37) 10
38) 406
39) 2017B131
40) 2017B131
41) 2017B131
42) 2017B131
43) 2017B131
44) 2017B131
45) 2017B131
46) 2017B131
47) 2017B131
48) 2017B131
49) 2017B131
50) 2017B131
51) 2017B131
52) 2017B131
53) 2017B131
54) 2017B131
55) 2017B131
56) 2017B131
57) 2017B131
58) 2017B131
59) 2017B131
60) 2017B131
61) 2017B131
62) 2017B131
63) 2017B131
64) 膨胀节
65) 2017B131
66) ZXLDN500-PN4.0-1X6X4X
67) C2017-17-1
68) 400±3
69) 400.0
70) 400.5
71) 496+0  -0.63
72) 495.86
73) 27±1.95
74) 26.57
75) 28.30
76) 35±1.95
77) 34.22
78) 36.02
79) 35±1.95
80) 34.22
81) 36.02
82) ≤3
83) 1.28
84) 2017B131
85) 膨胀节
86) 2017B131
87) ZXLDN500-PN4.0-1X6X4X
88) C2017-17-1
89) 400±3
90) 400.0
91) 400.5
92) 496+0  -0.63
93) 495.86
94) 27±1.95
95) 26.57
96) 28.30
97) 35±1.95
98) 34.22
99) 36.02
100) 35±1.95
101) 34.22
102) 36.02
103) ≤3
104) 1.28
105) 2017B131
106) 膨胀节
107) 2017B131
108) ZXLDN500-PN4.0-1X6X4X
109) C2017-17-1
110) ±10
111) 475
112) 万能液压寿命试验机
113) 万能液压寿命试验机
114) CAL-III
115) CAL-III
116) 0.5%
117) ±10
118) 475.2
119) 2017B131
120) 膨胀节
121) 2017B131
122) ZXLDN500-PN4.0-1X6X4X
123) C2017-17-1
124) ±10
125) 475
126) 万能液压寿命试验机
127) 万能液压寿命试验机
128) CAL-III
129) CAL-III
130) 0.5%
131) ±10
132) 475.2
133) 2017B131
134) 膨胀节
135) 2017B131
136) ZXLDN500-PN4.0-1X6X4X
137) C2017-17-1
138) 2.5
139) 3.75
140) 水
141) 试压泵
142) 38
143) ——
144) 压力表
145) 4
146) 压力表
147) 4
148) 3.75
149) 3.7
150) 2017B131
151) 膨胀节
152) 2017B131
153) ZXLDN500-PN4.0-1X6X4X
154) C2017-17-1
155) 2.5
156) 3.75
157) 水
158) 试压泵
159) 38
160) ——
161) 压力表
162) 4
163) 压力表
164) 4
165) 3.75
166) 3.7
167) 2017B131
168) 膨胀节
169) 2017B131
170) ZXLDN500-PN4.0-1X6X4X
171) C2017-17-1
172) 2.5
173) 2.5
174) 空气
175) 气密试验装置
176) 40
177) ——
178) 压力表
179) 4
180) 压力表
181) 4
182) 试件浸入水槽内检漏
183) 试件浸入水槽内检漏
184) 2.5
185) 2017B131
186) 膨胀节
187) 2017B131
188) ZXLDN500-PN4.0-1X6X4X
189) C2017-17-1
190) 2.5
191) 2.5
192) 空气
193) 10
194) 气密试验装置
195) 40
196) ——
197) 压力表
198) 4
199) 压力表
200) 4
201) 试件浸入水槽内检漏
202) 试件浸入水槽内检漏
203) 2.5
204) 2017B131
205) 膨胀节
206) 2017B131
207) ZXLDN500-PN4.0-1X6X4X
208) C2017-17-1
209) ±10
210) 3.75
211) 水
212) 试压泵
213) 38
214) ——
215) 压力表
216) 4
217) 压力表
218) 4
219) ±10
220) 3.75
221) 3.7
222) 2017B131
223) 膨胀节
224) 2017B131
225) ZXLDN500-PN4.0-1X6X4X
226) C2017-17-1
227) ±10
228) 3.75
229) 水
230) 10
231) 试压泵
232) 38
233) ——
234) 压力表
235) 4
236) 压力表
237) 4
238) ±10
239) 3.75
240) 3.7
241) 2017B131
242) 膨胀节
243) 2017B131
244) 2017B131
245) ZXLDN500-PN4.0-1X6X4X
246) C2017-17-1
247) 2.5
248) 2.5
249) 水
250) 水
251) ±15
252) 10
253) 2000
254) 万能液压寿命试验机
255) 万能液压寿命试验机
256) CAL-III
257) CAL-III
258) 0.5%
259) 压力表
260) 4
261) 压力表
262) 4
263) 2.5
264) ±15
265) 2000
266) 2017B131
267) 膨胀节
268) 2017B131
269) ZXLDN500-PN4.0-1X6X4X
270) C2017-17-1
271) 2.5
272) 7.5
273) 水
274) 7.5
275) 试压泵
276) 38
277) ——
278) 压力表
279) 4
280) 压力表
281) 4
282) 7.5
283) 2017B131
284) 膨胀节
285) 2017B131
286) ZXLDN500-PN4.0-1X6X4X
287) C2017-17-1
288) 2.5
289) 7.5
290) 水
291) 7.5
292) 试压泵
293) 38
294) ——
295) 压力表
296) 4
297) 压力表
298) 4
299) 7.5
300) 2017B131
301) 波纹管管坯
302) 2017B131
303) DN500×0.5
304) 304
305) C
306) 1.0
307) Ti
308) 1.1
309) Si
310) 1.0
311) N
312) 1.1
313) Mn
314) 1.1
315) 1.1
316) P
317) 1.1
318) 1.1
319) S
320) 1.1
321) Cr
322) 1.1
323) Ni
324) 1.1
325) 2017B131
326) 波纹管管坯
327) 2017B131
328) DN500×0.5
329) 304
330) C
331) 1.0
332) Ti
333) 1.1
334) Si
335) 1.0
336) N
337) 1.1
338) Mn
339) 1.1
340) 1.1
341) P
342) 1.1
343) 1.1
344) S
345) 1.1
346) Cr
347) 1.1
348) Ni
349) 1.1
350) 2017B131
351) 波纹管管坯
352) 2017B131
353) DN500×0.5
354) 304
355) GB/T4340.1-2009《金属材料维氏硬度试验 第1部分:试验方法》
356) 微机控制双向电子万能试验机
357) WDW-10
358) 1级
359) 数显布洛维硬度计
360) SHBRV-187.5
361) ±3.0%
362) 375
363) 375
364) 3.5
365) 50HRB
366) 2017B131
367) 波纹管管坯
368) 2017B131
369) DN500×0.5
370) 304
371) GB/T4340.1-2009《金属材料维氏硬度试验 第1部分:试验方法》
372) 微机控制双向电子万能试验机
373) WDW-10
374) 1级
375) 数显布洛维硬度计
376) SHBRV-187.5
377) ±3.0%
378) 375
379) 375
380) 3.5
381) 50HRB
382) 2017B131
383) 波纹管管坯
384) 波纹管管坯
385) 2017B131
386) 2017B131
387) DN500×0.5
388) 304
389) 304
390) XXQ-2005
391) XXQ-2005
392) AGFA-C4/C4
393) 360×60
394) 1.5mm×1.5mm
395) 0.04
396) 源在外单壁透照
397) 1200
398) 140
399) 5
400) 1.0
401) 300
402) 100%
403) 5
404) 20
405) 2017B131
406) 波纹管管坯
407) 2017B131
408) DN500×0.5
409) 304
410) XXQ-2005
411) XXQ-2005
412) AGFA-C4/C4
413) 360×60
414) 1.5mm×1.5mm
415) 0.04
416) 源在外单壁透照
417) 1200
418) 140
419) 5
420) 1.0
421) 300
422) 100%
423) 5
424) 20
425) 2017B131
426) 膨胀节
427) 膨胀节
428) 2017B131
429) 波纹管与受压筒节环焊缝
430) 304/20#
431) 100%
432) 2017B131
433) 膨胀节
434) 膨胀节
435) 2017B131
436) 波纹管与受压筒节环焊缝
437) 304/20#
438) 100%

TA的精华主题

TA的得分主题

发表于 2018-10-15 18:52 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
如果只要改编号是可以的,其他的太多了

TA的精华主题

TA的得分主题

发表于 2018-10-15 19:02 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
Sub 宏1()
新编号 = InputBox("请输入新编号:", , "2018B123")
编号 = ActiveDocument.ContentControls(1).Range.Text
For i = 1 To ActiveDocument.ContentControls.Count
  If ActiveDocument.ContentControls(i).Range.Text = 编号 Then ActiveDocument.ContentControls(i).Range.Text = 新编号
Next i
End Sub
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 22:25 , Processed in 0.042521 second(s), 10 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表