Classe System (Word VBA)

Contient des informations sur le système de votre ordinateur.

Set

Pour utiliser une variable de classe System, elle doit d'abord être instanciée, par exemple

Dim sys as System
Set sys = System

Les variables du type System peuvent être définies à l'aide de la procédure Application.System

Méthodes

Autre Méthodes

Connect - Établit une connexion à un lecteur réseau.

Dim strPath As String: strPath =  
System.Connect Path:=strPath

Propriétés

ComputerType

Dim strComputerType As String
strComputerType = System.ComputerType

CountryRegion Renvoie la désignation de pays/région du système.

Dim wcyCountryRegion As WdCountry
wcyCountryRegion = System.CountryRegion

Cursor Renvoie ou définit l’état (forme) du pointeur.

System.Cursor = wdCursorIBeam

FreeDiskSpace Renvoie l'espace disque disponible pour le lecteur actuel, en octets.

Dim lngFreeDiskSpace As Long
lngFreeDiskSpace = System.FreeDiskSpace

HorizontalResolution Cette propriété renvoie la résolution horizontale de l'écran, en pixels.

Dim lngHorizontalResolution As Long
lngHorizontalResolution = System.HorizontalResolution

LanguageDesignation Renvoie la langue définie dans le logiciel système.

Dim strLanguageDesignation As String
strLanguageDesignation = System.LanguageDesignation

MacintoshName

Dim strMacintoshName As String
strMacintoshName = System.MacintoshName

MathCoprocessorInstalled True si un coprocesseur mathématique est installé sur le système.

Dim booMathCoprocessorInstalled As Boolean
booMathCoprocessorInstalled = System.MathCoprocessorInstalled

OperatingSystem Renvoie le nom du système d’exploitation actuel (par exemple, «Windows» ou «Windows Server»).

Dim strOperatingSystem As String
strOperatingSystem = System.OperatingSystem

Parent Renvoie un Object qui représente l'objet parent de l'objet System spécifié.

Dim objParent As Object
Set objParent = System.Parent

PrivateProfileString Cette propriété renvoie ou définit une chaîne dans un fichier de paramètres ou le Registre Microsoft Windows.

Dim strFileName As String: strFileName = 
Dim strSection As String: strSection = 
Dim strKey As String: strKey =  
System.PrivateProfileString(FileName:=strFileName, Section:=strSection, Key:=strKey) =

ProfileString Cette propriété renvoie ou définit une valeur pour une entrée dans le Registre Windows sous la sous HKEY_CURRENT_USER\Software\Microsoft\Office\version\Word-clé suivante:.

Dim strSection As String: strSection = 
Dim strKey As String: strKey =  
System.ProfileString(Section:=strSection, Key:=strKey) =

QuickDrawInstalled

Dim booQuickDrawInstalled As Boolean
booQuickDrawInstalled = System.QuickDrawInstalled

Version Renvoie le numéro de version du système d'exploitation.

Dim strVersion As String
strVersion = System.Version

VerticalResolution Renvoie la résolution verticale de l’écran exprimée en pixels.

Dim lngVerticalResolution As Long
lngVerticalResolution = System.VerticalResolution