Word ha una potente funzionalità di ricerca e sostituzione che ti consente di cercare praticamente qualsiasi cosa nel tuo documento. Word include anche codici che puoi utilizzare per cercare articoli speciali. (Fare clic sul pulsante Speciale nella finestra di dialogo Trova e sostituisci per vedere quali codici sono disponibili.) Tuttavia, una cosa che non è possibile cercare sono le caselle di testo. Non esiste un codice speciale che ti consenta di trovare caselle di testo e non puoi cercarle utilizzando il browser degli oggetti.

È tuttavia possibile utilizzare una macro per esaminare un documento e fermarsi quando trova una casella di testo. La seguente macro si ferma su ogni casella di testo che trova e chiede all’utente se quella è la casella di testo desiderata.

Sub SearchTextBox()

Dim shp As Shape     Dim sTemp As String     Dim iAnswer As Integer

For Each shp In ActiveDocument.Shapes         If shp.Type = msoTextBox Then             shp.Select             Selection.ShapeRange.TextFrame.TextRange.Select             sTemp = Selection.Text             sTemp = Left(sTemp,20)

iAnswer = MsgBox("Box contains text beginning with:" & vbCrLf _               & sTemp & vbCrLf & "Stop here?", vbYesNo, "Located Text Box")

If iAnswer = vbYes Then Exit For         End If     Next End Sub

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti WordTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

WordTips è la tua fonte di formazione economica su Microsoft Word.

(Microsoft Word è il software di elaborazione testi più popolare al mondo.) Questo suggerimento (3520) si applica a Microsoft Word 97, 2000, 2002 e 2003. È possibile trovare una versione di questo suggerimento per l’interfaccia a nastro di Word (Word 2007 e più tardi) qui:

Finding Text Boxes.