كيف يمكنني برمجيا فتح مستند MS Word بدون استدعاء الماكرو Document_Open
-
21-08-2019 - |
سؤال
وأنا أحاول أن استخدام أتمتة المكاتب لفتح مستند كلمة. المشكلة هي أنني أود أن فتحه دون الاستناد الماكرو Document_Open. هل هناك طريقة للقيام بذلك؟
والخط ذات الصلة أدناه wordApp.Documents.Open ()
Imports Microsoft.Office.Interop
Public Class WordFunctions
Public Shared Function ConvertToDoc(ByVal file As String) As Boolean
Dim wordDoc As Word.Document
Dim wordApp As Word.Application
Try
wordApp = CreateObject("Word.Application", "")
Catch ex As Exception
Return False
End Try
Try
wordApp.Caption = "Automated Word Instance"
wordApp.DisplayAlerts = Word.WdAlertLevel.wdAlertsNone
wordDoc = wordApp.Documents.Open(FileName:=file, Visible:=False, ConfirmConversions:=False)
wordDoc.SaveAs(FileName:=file + ".doc", FileFormat:=Word.WdSaveFormat.wdFormatDocument)
wordDoc.Activate()
wordDoc.Close()
Return True
Catch ex As Exception
Return False
Finally
wordApp.Quit(SaveChanges:=False)
End Try
End Function
End Class
المحلول
والجواب المقبول هنا قد تكون ذات فائدة:
التلاعب ملف في التعليمات البرمجية (VB.NET) دون تنفيذ وحدات الماكرو الملف
نصائح أخرى
إذا انها ثائق وورد 2007 كنت تعمل مع، حاول تغيير التعليمات البرمجية للعمل مع XML مباشرة، بدلا من استخدام API أتمتة المكاتب.
وانها أسرع، وكنت لا داعي للقلق حول وحدات الماكرو (والكثير من القضايا أتمتة أخرى).
لا تنتمي إلى StackOverflow