Free for PREMIUM members
[Okta Webinar] Learn how to a build a cloud-first strategyRegister Now
The purpose of this paper is to provide you background on SQL Server. It’s your self-study guide for learning fundamentals. It includes both the history of SQL and its technical basics. Concepts and definitions will form the solid foundation of your future DBA expertise.
Const MACRO_NAME = "Search and Replace Subject"
Dim olkItem As Object, strFind As String, strReplace As String, intCount As Integer
strFind = InputBox("Enter the text to find", MACRO_NAME)
If strFind <> "" Then
strReplace = InputBox("Enter the text that will replace """ & strFind & """.", MACRO_NAME)
For Each olkItem In Application.ActiveExplorer.CurrentFolder.Items
If InStr(1, olkItem.Subject, strFind) Then
olkItem.Subject = Replace(olkItem.Subject, strFind, strReplace)
intCount = intCount + 1
Set olkItem = Nothing
msgbox "Find: " & strFind & vbCrLf _
& "Replace: " & strReplace & vbCrLf _
& "The macro found and replaced " & intCount & " instances.", vbInformation + vbOKOnly, MACRO_NAME
Open in new window
We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!