Clase System (Word VBA)

Contiene información acerca del sistema del equipo.

Set

Para usar una variable de clase System, primero debe ser instanciado, por ejemplo

Dim sys as System
Set sys = System

Las variables de tipo System se pueden establecer utilizando el procedimiento Application.System

Métodos

Otros Métodos

Connect - Establece una conexión con una unidad de red.

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

Propiedades

ComputerType

Dim strComputerType As String
strComputerType = System.ComputerType

CountryRegion Devuelve la designación de país o región del sistema.

Dim wcyCountryRegion As WdCountry
wcyCountryRegion = System.CountryRegion

Cursor Devuelve o establece el estado (la forma) del puntero.

System.Cursor = wdCursorIBeam

FreeDiskSpace Devuelve el espacio disponible en disco para la unidad actual, en bytes.

Dim lngFreeDiskSpace As Long
lngFreeDiskSpace = System.FreeDiskSpace

HorizontalResolution Devuelve la resolución de pantalla horizontal, en píxeles.

Dim lngHorizontalResolution As Long
lngHorizontalResolution = System.HorizontalResolution

LanguageDesignation Devuelve el idioma designado del software del sistema.

Dim strLanguageDesignation As String
strLanguageDesignation = System.LanguageDesignation

MacintoshName

Dim strMacintoshName As String
strMacintoshName = System.MacintoshName

MathCoprocessorInstalled True si está instalado un coprocesador matemático en el sistema.

Dim booMathCoprocessorInstalled As Boolean
booMathCoprocessorInstalled = System.MathCoprocessorInstalled

OperatingSystem Devuelve el nombre del sistema operativo actual (por ejemplo, "Windows" o "Windows Server").

Dim strOperatingSystem As String
strOperatingSystem = System.OperatingSystem

Parent Devuelve un objeto Object que representa el objeto primario del objeto System especificado.

Dim objParent As Object
Set objParent = System.Parent

PrivateProfileString Devuelve o establece un valor string en un archivo de configuración o el registro de 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 Devuelve o establece un valor de una entrada en el registro de Windows en la siguiente subclave: HKEY_CURRENT_USER\Software\Microsoft\Office\version\Word.

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 Devuelve el número de versión del sistema operativo.

Dim strVersion As String
strVersion = System.Version

VerticalResolution Devuelve la resolución vertical de pantalla en píxeles.

Dim lngVerticalResolution As Long
lngVerticalResolution = System.VerticalResolution