Wscript.Echo "Default Table Separator:", objWord.DefaultTableSeparator Wscript.Echo "Default Save Format:", objWord.DefaultSaveFormat Wscript.Echo "Default Legal Blackline:", objWord.DefaultLegalBlackline
Wscript.Echo "Customization Context:", objWord.CustomizationContext Wscript.Echo "Custom Dictionary:", objDictionary Wscript.Echo "Check Language:", objWord.CheckLanguageįor Each objDictionary in objWord.CustomDictionaries Wscript.Echo "Caps Lock:", objWord.CapsLockįor Each objLabel in objWord.CaptionLabels Wscript.Echo "Browse Extra File Type:", objWord.BrowseExtraFileTypes Wscript.Echo "Background Saving Status:", objWord.BackgroundSavingStatus Wscript.Echo "Background Printing Status:", objWord.BackgroundPrintingStatus Wscript.Echo "Automation Security:", objWord.AutomationSecurity Wscript.Echo "Assistant:", objWord.Assistantįor Each objCaption in objWord.AutoCaptions Wscript.Echo "Application:", objWord.Application Wscript.Echo "Active Printer:", objWord.ActivePrinter ObjSelection.TypeText objItem.DisplayName & " - " & objItem.Stateĭemonstration script that lists Microsoft Word configuration settings. ObjDoc.SaveAs("C:\Scripts\Word\testdoc.doc")ĭemonstration script that retrieves service information from a computer and then displays that data in a Microsoft Word document. ObjSelection.TypeText "" & objItem.Description ObjSelection.TypeText "" & objItem.DefaultTTL ObjSelection.TypeText "" & objItem.DefaultTOS
ObjSelection.TypeText "" & objItem.DefaultIPGateway ObjSelection.TypeText "Default IP Gateway: " ObjSelection.TypeText "" & objItem.DeadGWDetectEnabled ObjSelection.TypeText "Dead GW Detection Enabled: " ObjSelection.TypeText "" & objItem.DatabasePath ObjSelection.TypeText "" & objItem.Caption ObjSelection.TypeText "" & objItem.ArpUseEtherSNAP ObjSelection.TypeText "ARP Use EtherSNAP: " ObjSelection.TypeText "" & objItem.ArpAlwaysSourceRoute ObjSelection.TypeText "ARP Always Source Route: " ("Select * from Win32_NetworkAdapterConfiguration") Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set objWord = CreateObject("Word.Application") Set objWord = CreateObject("Word.Application")ĭemonstration script that retrieves network adapter data from a computer, displays that data in a Microsoft Word document, and then saves the document as C:\Scripts\Word\Testdoc.doc. ObjSelection.EndKey END_OF_STORY, MOVE_SELECTIONĭemonstration script that creates and displays a new Microsoft Word document. Set objDoc = ("c:\scripts\word\testdoc.doc") ObjTable.Cell(x, 2).Range.text = "Display Name"ĭemonstration script that retrieves service information from a computer and then displays that information in tabular format in Microsoft Word.ĭemonstration script that appends the current date to the existing Microsoft Word document C:\Scripts\Word\Testdoc.doc. ObjTable.Cell(x, 1).Range.Text = "Service Name" ObjTable.Cell(x, 3).Range.text = objItem.Stateĭemonstration script that retrieves service data from a computer, displays that data in a table in Microsoft Word, then formats the data by using a predefined Microsoft Word style ObjTable.Cell(x, 2).Range.text = objItem.DisplayName ObjTable.Cell(x, 1).Range.Text = objItem.Name Set colItems = objWMIService.ExecQuery("Select * from Win32_Service") GetObject("winmgmts:\\" & strComputer & "\root\cimv2") ObjSelection.TypeText "Network Adapter Report"ĭemonstration script that retrieves service data from a computer and then displays that data in a formatted table in Microsoft Word.
#VBSCRIPT WRITE TEXT TO TABLE WORD DOC HOW TO#
You can use any of the VBScript programs below in ActiveXperts Network Monitor.Ĭlick here for an explanation about how to include scripts in ActiveXperts Network Monitor.ĭemonstration script that displays formatted data in a Microsoft Word document.
Microsoft Word Scripts Add Formatted Text to a Word DocumentĪpply a Style to a Table in a Word Documentĭisplay Service Information in a Word Document
0 kommentar(er)
