查找文档中的空白文本框

ke3088

文档中有5个文本框，用代码查找空白的文本框并取得该文本框的序号，以便下一步的或清除，或录入新内容。
该代码如何写？向各位老师请教。谢谢

413191246se

楼主，请试用下面的代码，注意：执行代码后，建议马上按“取消”（Cancel），以便看清是哪个文本框，再决定是删除（Delete）还是输入（Input）。然后，再执行一遍该代码。。。

1. Sub a0228_LoopTextbox()
   
2.     Dim n&, s$, q$
   
3.     With ActiveDocument
   
4.         For n = .Shapes.Count To 1 Step -1
   
5.             With .Shapes(n)
   
6.                 .Select
   
7.                 If .TextFrame.HasText <> 0 Then
   
8.                     If Len(Replace(.TextFrame.TextRange.Text, vbCr, "")) = 0 Then
   
9.                         q = MsgBox("[Yes]Delete    [No]Input    [Cancel]Cancel", 3 + 16, "Empty Textbox!")
   
10.                         If q = vbYes Then
    
11.                             .Delete
    
12.                         ElseIf q = vbNo Then
    
13.                             s = InputBox("", "Please input!", "Hawaii")
    
14.                             If s = "" Then Exit Sub
    
15.                             .TextFrame.TextRange.Text = s
    
16.                         Else
    
17.                             End
    
18.                         End If
    
19.                     End If
    
20.                 End If
    
21.             End With
    
22.         Next
    
23.     End With
    
24. End Sub

复制代码

ke3088

413191246se兄，谢谢您。试后，再把结果向您汇报。

ke3088

413191246se兄，要的就是这个结果，好用，再次感谢！