עבודה עם הword

[rickyeliya]

עבודה עם הword

איך אני יכולה לבדוק אם יש לי קובץ word קיים דרך ה vb ואיך אפשר להדפיס קובץ סגור?

 

[nscom2k]

חיפוש קובץ ב-VB

מצורף קוד לדוגמה לחיפוש קובץ בכל הכונניםץ יש לשנות את הסיומת ל-ZIP

 

[nscom2k]

הדפסת מסמך

יש לסמן את Microsoft Word ב-Refference :

Sub OpenWordDocument(filename As String) Dim a As Document Set a = Word.Documents.Open(filename, False, True, False, , , , , , , , False) a.PrintOut a.Close False Set a = Nothing End Sub​

הערה : ב-a.printout יש אפשרות לקבוע את תוצרת ההדפסה בארגומנטים של הפונק printout