Problems with SaveAs

[mark13.pl]

Hi,

In word macro such thing worked perfectly:
With ActiveDocument
.SaveEncoding = msoEncodingUTF8
.SaveAs FileName:="c:\test.doc",
FileFormat:=wdFormatUnicodeText
End With

When I tried to use it in pure VB.net I put:

oWord = CreateObject("Word.Application")
With oWord.ActiveDocument
.SaveEncoding = msoEncodingUTF8
.SaveAs FileName:="c:\test.doc",
FileFormat:=wdFormatUnicodeText
End With

but all the time got an error in 'saveEncoding' line. I tried with
msoEncodingUTF8, with string "msoEncodingUTF8" and with
oWord.msoEncodingUTF8 but all the time got some errors (like {"Type
mismatch (Exception from HRESULT: 0x80020005 (DISP_E_TYPEMISMATCH))"}
How can I make it works??

Thank you, mark

[Pritcham]

Hi Mark

I would say that the reason you're having problems is because in Word
you're setting the fileformat property to an Enum defined by word (and
therefore not recognised by VB). What you'd need to do is to establish
what the Enum equates to and use that in your VB code instead of the
Enum name.

Hope that helps
Martin
ma*******@gmail.com wrote:

Hi,

In word macro such thing worked perfectly:
With ActiveDocument
.SaveEncoding = msoEncodingUTF8
.SaveAs FileName:="c:\test.doc",
FileFormat:=wdFormatUnicodeText
End With

When I tried to use it in pure VB.net I put:

oWord = CreateObject("Word.Application")
With oWord.ActiveDocument
.SaveEncoding = msoEncodingUTF8
.SaveAs FileName:="c:\test.doc",
FileFormat:=wdFormatUnicodeText
End With

but all the time got an error in 'saveEncoding' line. I tried with
msoEncodingUTF8, with string "msoEncodingUTF8" and with
oWord.msoEncodingUTF8 but all the time got some errors (like {"Type
mismatch (Exception from HRESULT: 0x80020005 (DISP_E_TYPEMISMATCH))"}
How can I make it works??

Thank you, mark

[mark13.pl]

Hello,

I would say that the reason you're having problems is because in Word
you're setting the fileformat property to an Enum defined by word (and
therefore not recognised by VB).

Thank you for your answer :). Yes, that was the problem. Finally I
solved it.
If someone is interested in getting these values please feel free to
contact me priv.

Regards, mark