replace letters by font without losing format

macropod · #16 02-21-2014, 01:32 PM

If you're always processing only a single folder, you can replace:

Code:

strFolder = GetFolder
If strFolder = "" Then Exit Sub
strFile = Dir(strFolder & "\*.doc", vbNormal)

with:

Code:

strFolder = "My file path \*.doc", vbNormal)

where 'My file path ' is your file path, and delete:

Code:

Function GetFolder() As String
Dim oFolder As Object
GetFolder = ""
Set oFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Choose a folder", 0)
If (Not oFolder Is Nothing) Then GetFolder = oFolder.Items.Item.Path
Set oFolder = Nothing

You should not make any changes other than the ones I posted - and you should make all of those; otherwise you can't expect the macro to work properly.

Note: Do not put the document holding the macro into the same folder as the files to be processed.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to replace digits with letters	Bananabean	Word VBA	6	09-14-2013 09:28 PM
How to replace all font occurencies by another (e.g. Arial-->Courier)	pstein	Word	1	04-30-2013 05:58 AM
Find and Replace maintain format	winningson	Word	3	01-19-2013 05:38 AM
Format Font	herbhh	Word	10	05-23-2011 08:29 AM
How do I import text columns with specified spacing between words w/o losing format?	Fucius	Word	0	08-09-2010 06:23 PM