Add Word-Search 

Add Image-Tweening




get-childitem *.jpg | foreach { 
  rename-item $_ $_.Name.Replace("bowl", "wooden-bowl") 
}

get-childitem *.jpg | foreach { 
  rename-item $_ $_.Name.Replace("wooden-bowl", "bowl") 
}



$search = 'Your Name'
$replace_with = 'Bill Rosener'
$base_dir = 'C:\Users\rosener\Desktop\Temp\website'
$text_file_ext = 'html'

Get-ChildItem $base_dir -Recurse -Include  "*.$text_file_ext" |
    ForEach-Object { (Get-Content $_.FullName) | 
    ForEach-Object {$_ -replace $search, $replace_with} | 
    Set-Content $_.FullName }



$search = 'Bill Rosener'
$replace_with = 'Your Name'
$base_dir = 'C:\Users\rosener\Desktop\Temp\website'
$text_file_ext = 'html'

Get-ChildItem $base_dir -Recurse -Include  "*.$text_file_ext" |
    ForEach-Object { (Get-Content $_.FullName) | 
    ForEach-Object {$_ -replace $search, $replace_with} | 
    Set-Content $_.FullName }





Private Sub CommandButton1_Click()
  Dim pathName
  pathName = Cells(1, 2)
  Call getFiles(pathName)
  MsgBox ("Finished converting files.")
End Sub


Sub getFiles(ByVal path As String)
  Dim fso As Object ' File System Object
  Set fso = CreateObject("Scripting.fileSystemObject")
  Dim temp
  
  Dim folder As Object
  Set folder = fso.getfolder(path)
  Dim subfolder As Object
  Dim currFile As Object
  
  For Each subfolder In folder.subfolders
    getFiles (subfolder.path)
  Next subfolder
  
  For Each currFile In folder.Files
    If LCase(Right(currFile.Name, 5)) = ".html" Then
      ' MsgBox (currFile)
      Dim tempFile
      tempFile = Cells(2, 2)
      Open currFile For Input As #1
      Open tempFile For Output As #2
      While Not EOF(1)
        Line Input #1, temp
        temp = Replace(temp, Cells(4, 2), Cells(5, 2))
        Print #2, temp
      Wend
      Close #1
      Close #2
      
      Open tempFile For Input As #1
      Open currFile For Output As #2
      While Not EOF(1)
        Line Input #1, temp
        Print #2, temp
      Wend
      Close #1
      Close #2
    End If
  Next currFile
  Set fso = Nothing
  Set folder = Nothing
  Set subfolder = Nothing
  Set currFile = Nothing
End Sub