הנושאים החמים
Option Explicit
Sub יצירת_קובץ_וורד()
Dim WDApp As Object
' יוצר מופע של וורד
Set WDApp = CreateObject("WORD.application")
Dim Doc As Object
' יוצר מופע של מסמך
Set Doc = WDApp.Documents.Add
WDApp.Visible = True 'גורם לוורד להראות
' כאן אפשר להשתמש באובייקט DOC
' ולהוסיף טקסט למסמך וכן לשמור אותו וכדומה
Doc.Paragraphs(1).Range.InsertAfter "שלום עולם"
Doc.Close -1
' ...
WDApp.Quit 'בסוף השימוש חייבים לסגור
Set WDApp = Nothing
End Sub
מעכשיו, תהיו הראשונים לקבל את כל העדכונים, החדשות, ההפתעות בלעדיות, והתכנים הכי חמים שלנו בפרוג!
לוח לימודים
מסלולי לימוד שאפשר להצטרף
אליהם ממש עכשיו:
Reactions: שמואלזון1 //