Type Mismatch (13)
Dear Alan
sPDFName = Replace(sWordName, pos, 4, ".pdf")
In the above code variable 'pos' should be a string. The syntax for Replace
is
Replace(expression, find, replace[, start[, count[, compare]]]) where
'expression' and 'find' are string functions. Replace 'pos' with the
substring being searched for.
Eg: Replace("abcd","b","c") = "accd"
If this post helps click Yes
---------------
Jacob Skaria
"Alan" wrote:
The code below is giving me a runtime error 13 (type mismatch), but
I cannot figure out why. It is failing on this line:
sPDFName = Replace(sWordName, pos, 4, ".pdf")
but it appears to use the right syntax. This was tested with an input
of WordDocPath = "test.doc"
Alan
Sub ProcessWord (WordDocPath As String)
Dim sPDFName As String, sPDFPath As String
Dim pos As Integer, sWordName As String
sWordName = WordDocPath
pos = InStr(1, sWordName, ".doc")
If (pos = 0) Then
DisplayErrorMessage (sWordName & " is not a Word document")
Exit Sub
Else
sPDFName = Replace(sWordName, pos, 4, ".pdf")
End If
|