كيف يمكنني برمجيا فتح مستند MS Word بدون استدعاء الماكرو Document_Open

StackOverflow https://stackoverflow.com/questions/369900

  •  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
هل كانت مفيدة؟

نصائح أخرى

إذا انها ثائق وورد 2007 كنت تعمل مع، حاول تغيير التعليمات البرمجية للعمل مع XML مباشرة، بدلا من استخدام API أتمتة المكاتب.

وانها أسرع، وكنت لا داعي للقلق حول وحدات الماكرو (والكثير من القضايا أتمتة أخرى).

مرخصة بموجب: CC-BY-SA مع الإسناد
لا تنتمي إلى StackOverflow
scroll top