Type Mismatch (13)
Dear Alan
sPDFName = Replace(sWordName, pos, 4, ".pdf")
In the above code 'pos' should be a string variable. The syntax for Replace
is (expression, find, replace[, start[, count[, compare]]]) where expression
and find are string variables. In your code pos is a integer which returns a
type mismatch error.
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
|