word2010 vba 判断是否有文本框

答案:2 悬赏:40 手机版

解决时间 2021-03-14 01:35

提问者网友：玫瑰园
2021-03-13 17:23

语句要求：在word2010中需要判断正文中是否存在文本框，之后弹出对话框，提示存在文本框数量或0。
请问，这个功能能实现么？语句怎么写？
谢！

我的主要问题是需要在整个word中做文字搜索替换，包括页眉、页脚、正文、文本框等部分，我希望采用宏的功能把上述各部分的替换动作集合为1个动作。
但是，在使用录制宏的过程中，无法录制“替换文本框内的文字”这个动作。
我的编写思路是先判断全文是否存在文本框，然后再一一定位后搜索替换。

最佳答案

五星知识达人网友：雾月
2021-03-13 18:47

可以先把文本框的内容读出来，替换后再放进去。
Sub test()
Dim T&, tbox As Object
For Each tbox In ActiveDocument.Shapes
If tbox.Type = msoTextBox Then
MsgBox tbox.Name & ": " & tbox.TextFrame.TextRange.Text
T = T + 1
End If
Next
MsgBox "TextBox QTY: " & T
End Sub

全部回答

1楼网友：十鸦
2021-03-13 18:58

excel2003支持vba编程，vba是visual basic for application的简写情势。微软的office是最为流行的办公软件，主要有office2010和office

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息