home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / bp_2_94 / winword / oleauto / olesys.frm < prev    next >
Text File  |  1994-04-03  |  2KB  |  75 lines
  1. VERSION 2.00
  2. Begin Form OLEMAKRO 
  3.    Caption         =   "OLE Automation Visual Basic 3.0 - Winword 6.0"
  4.    ClientHeight    =   3390
  5.    ClientLeft      =   1020
  6.    ClientTop       =   1500
  7.    ClientWidth     =   5595
  8.    Height          =   3795
  9.    Left            =   960
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   3390
  14.    ScaleWidth      =   5595
  15.    Top             =   1155
  16.    Width           =   5715
  17.    Begin CommandButton MakroAusfⁿhren 
  18.       Caption         =   "Systeminfo aus Winword holen"
  19.       Height          =   495
  20.       Left            =   240
  21.       TabIndex        =   2
  22.       Top             =   2760
  23.       Width           =   4815
  24.    End
  25.    Begin Label Systeminfo 
  26.       BorderStyle     =   1  'nicht Σnderbar, einfach
  27.       Caption         =   "Systeminfo"
  28.       Height          =   2415
  29.       Left            =   4080
  30.       TabIndex        =   1
  31.       Top             =   240
  32.       Width           =   1335
  33.    End
  34.    Begin Label Legende 
  35.       Alignment       =   1  'Rechts
  36.       BorderStyle     =   1  'nicht Σnderbar, einfach
  37.       Caption         =   "Legende"
  38.       Height          =   2415
  39.       Left            =   240
  40.       TabIndex        =   0
  41.       Top             =   240
  42.       Width           =   3615
  43.    End
  44. End
  45. 'Basic Proefessionell Ausgabe 2/94
  46. 'Projekt: OLESYS.MAK
  47. 'Form:    OLESYS.FRM
  48. 'Startet das Winword 6.0 Makro 'AbrufenSysteminfo', siehe OLESYS.WRI - Datei
  49. 'und fⁿllt zwei VB Bezeichnungsfelder mit den ermittelten Daten
  50. 'Autor: Walter Jung - Mainz - 1/94
  51.  
  52.  
  53.  
  54. Option Explicit
  55. Dim Doc As Object
  56. Dim lf As String, info As String
  57.  
  58. Sub Form_Load ()
  59. Set Doc = CreateObject("Word.Basic")
  60. lf = Chr(10)
  61. info = "Umgebung" + lf + "Prozessor" + lf + "MS-DOS" + lf + "Windows" + lf
  62. info = info + "Freie Resourcen" + lf + "Freie FestplattenkapazitΣt in Byte" + lf + "Modus" + lf
  63. info = info + "Coprozessor" + lf + "LΣnderkennung" + lf + "Sprache" + lf
  64. info = info + "Vertikale Bildschirmaufl÷sung in Pixel" + lf + "Horizontale Bildschimaufl÷sung in Pixel"
  65. End Sub
  66.  
  67. Sub MakroAusfⁿhren_Click ()
  68.     Legende = info
  69.     Doc.Extrasmakro "AbrufenSysteminfo", 1
  70.     Systeminfo = Doc.markierung()
  71.     Doc.dateischlie▀en 2
  72.     
  73. End Sub
  74.  
  75.