The average business loses $13.5M per year to ineffective training (per 1,000 employees). Keep ahead of the competition and combine in-person quality with online cost and flexibility by training with Linux Academy.
Public Sub Test() Dim FilePath As String = "C:\Change to Your Path\Test Doc.docx" ' Create a new instance of word and open some document in it Dim WordInstance As New Microsoft.Office.Interop.Word.Application Dim Document As Microsoft.Office.Interop.Word.Document = WordInstance.Documents.Open(FilePath) ' Now try to create a readonly stream (to send a copy of our ' changes back to the server) Dim fStream As FileStream = Nothing Try fStream = New FileStream(Me._FilePath, FileMode.Open, FileAccess.Read, FileShare.Read) Catch ex As Exception MessageBox.Show("Error: " & ex.Message) Finally If fStream IsNot Nothing Then fStream.Close() fStream = Nothing End If End Try WordInstance.Quit() End Sub
|Need to Obtain or Remove Password Protection From an Excel 2000 Workbook||6||54|
|Word and Excel 2013 - Disabled Items List||3||58|
|I've got an interview this morning and I want to sound intelligent...||4||52|
|Outlook 2013 License Question||8||27|