Bolay's Wiki

User Tools

Site Tools

Trace:
operating_systems:microsoft:vsreplace

Differences

This shows you the differences between two versions of the page.

Link to this comparison view

Both sides previous revisionPrevious revision
Last revisionBoth sides next revision
operating_systems:microsoft:vsreplace [2013/05/14 15:16] – sbolayoperating_systems:microsoft:vsreplace [2013/05/14 15:22] – sbolay
Line 7: Line 7:
 'Last update: may 14, 2013 'Last update: may 14, 2013
  
 +'Inspired from http://word.tips.net/T003783_Changing_Information_in_Multiple_Documents.html
 Public Sub VSReplace() Public Sub VSReplace()
     Dim Directory As String     Dim Directory As String
Line 16: Line 17:
  
     FType = "*.doc"     FType = "*.doc"
- 
  
     Dim vFile As Variant     Dim vFile As Variant
Line 33: Line 33:
 End Sub End Sub
  
 +'From http://www.ammara.com/access_image_faq/recursive_folder_search.html
 Public Function RecursiveDir(colFiles As Collection, _ Public Function RecursiveDir(colFiles As Collection, _
                              strFolder As String, _                              strFolder As String, _
Line 70: Line 71:
 End Function End Function
  
 +'From http://www.ammara.com/access_image_faq/recursive_folder_search.html
 Public Function TrailingSlash(strFolder As String) As String Public Function TrailingSlash(strFolder As String) As String
     If Len(strFolder) > 0 Then     If Len(strFolder) > 0 Then
Line 80: Line 82:
 End Function End Function
  
 +'Modified from http://www.word.mvps.org/FAQs/MacrosVBA/FindReplaceAllWithVBA.htm
 Public Function FindAndReplace() Public Function FindAndReplace()
  
operating_systems/microsoft/vsreplace.txt · Last modified: 2013/05/14 15:29 by sbolay