Replace MS Word quotes from string

[danwednesday]

Hi,

I'm using the following function to replace quote marks from a string into a format allowing storage into an Access database:

public function CleanQuotes( ByVal strDirty, boolRemove )
	strData = Replace( Replace( strDirty, Chr(147), Chr(34) ), Chr(148), Chr(34) )
	strData = Replace( Replace( strData, Chr(146), Chr(39) ), Chr(96), Chr(39) )
	if not CBool( boolRemove ) then
		strData = Replace( strData, Chr(39), String( 2, Chr(39) ) )
		strData = Replace( strData, Chr(34), Chr(39) & Chr(34) )
	elseif CBool( boolRemove ) then
		strData = Replace( strData, Chr(39), Chr(32) )
		strData = Replace( strData, Chr(34), Chr(32) )
		do while InStr( 1, strData, String( 2, Chr(32) ) ) > 0
			strData = Replace( strData, String( 2, Chr(32) ), Chr(32) )
		loop
	end if
	CleanQuotes = Trim( strData )
end function

However, when quote marks are copied and pasted into the string, the quotes don't get replaced - hence throw an error with the database insert script.

Does anyone know how to prevent this?

Thanks very much...

[Thing]

There are two types of quotes. Regular which look like this (") and fancy as I call them that look like this (”). My guess is you are pasting the second type of quote in to your field. Add that in to your function like this:

public function CleanQuotes( ByVal strDirty, boolRemove )
	strData = Replace( Replace( strDirty, Chr(147), Chr(34) ), Chr(148), Chr(34) )
	strData = Replace( Replace( strData, Chr(146), Chr(39) ), Chr(96), Chr(39) )
strDate = Replace(strData, "”", "")
if not CBool( boolRemove ) then
		strData = Replace( strData, Chr(39), String( 2, Chr(39) ) )
		strData = Replace( strData, Chr(34), Chr(39) & Chr(34) )
	elseif CBool( boolRemove ) then
		strData = Replace( strData, Chr(39), Chr(32) )
		strData = Replace( strData, Chr(34), Chr(32) )
		do while InStr( 1, strData, String( 2, Chr(32) ) ) > 0
			strData = Replace( strData, String( 2, Chr(32) ), Chr(32) )
		loop
	end if
	CleanQuotes = Trim( strData )
end function

See if that fixes your problem.