VBA find how can have found when searching the number

CodePudding user response:

 this example in the current presentation all "CompanyX" string, and the format is set to bold, 

For Each SLD In Application. ActivePresentation. Slides TAB 
For Each SHP In SLD. Shapes 
If SHP. HasTextFrame Then 
The Set txtRng=SHP. TextFrame. TextRange 
The Set foundText=txtRng. Find (FindWhat:="CompanyX") 
The Do While Not (foundText Is Nothing) 
With foundText 
. The Font. Bold=True 
The Set foundText=_ 
TxtRng. Find (FindWhat:="CompanyX", _ 
After:=. Start +. Length - 1) 
End With 
Loop 
End the If 
Next 
Next 

CodePudding user response:

upstairs can give a PPT sample, but the truth may be almost

CodePudding user response:

Written in the word:
Sub word ()
Application. ScreenUpdating=False
Dim sum&
Dim aDoc As Document: Set aDoc=ActiveDocument
With Selection
The HomeKey wdStory
Do the While. The Find. The Execute (" hello ")
Sum=sum + 1
Loop
End With
Application. ScreenUpdating=True
The Debug. Print the sum
End Sub

CodePudding user response:

Quicker to use regular may, of course,,,