VB - MemoSoup

VBA: how to read text file

This is just example, how to read text file in Visual Basic for Applications (for example, in Excel macro).

It’s just a stub: there is no error processing here, the source file is really text file, no problems with permissions etc.

Sub read_from_text_file() txtFile = Application.GetOpenFilename("Text Files (*.txt), *.txt") If txtFile = False Then [...]

set objIE = CreateObject("InternetExplorer.Application") objIE.Navigate("about:blank") textFromClipboard = objIE.document.parentwindow.clipboardData.GetData("text") objIE.Quit WScript.Echo textFromClipboard

How to put the text into clipboard

textIntoClipboard = "Some text" & VbCrLf & "Some more text" Set objIE = WScript.CreateObject("InternetExplorer.Application") objIE.Navigate "about:blank" Do Until objIE.ReadyState = 4 WScript.Sleep 100 Loop objIE.document.ParentWindow.ClipboardData.SetData [...]

Office: check if PowerPoint is running

Dim objAPP, sMsg On Error Resume Next Set objAPP = GetObject(, "PowerPoint.Application") If TypeName(objAPP) = "Empty" Then sMsg = "not started" Else sMsg = "started" End If MsgBox "PowerPoint is " & sMsg, vbInformation, "PowerPoint" if sMsg = "started" then objAPP.Visible = true

WMI: get the information about the system

Option Explicit On Error Resume Next Dim strComputer, objWMIService Dim colItems, objItem strComputer = "." Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem") For Each objItem in colItems WScript.Echo "Machine Name: " & objItem.CSName & VbCr & _ "===================================" & vbCr & _ "Description: " & [...]

WMI+VBS: how to get the domain name

Option Explicit On Error Resume Next Dim strComputer, objNetwork, objWMIService Dim colItems, objItem Set objNetwork = WScript.CreateObject("WScript.Network") strComputer = objNetwork.ComputerName WScript.Echo "Computer = " & strComputer Set objWMIService=GetObject("winmgmts:{impersonationLevel=impersonate}!\\"&strComputer&"\root\cimv2") Set colItems = objWMIService.ExecQuery ("Select * from Win32_ComputerSystem") For Each objItem in colItems Wscript.Echo "Domain = " & objItem.domain Next

There is also WMI FAQ on Microsoft [...]

MS Word: replace spaces to non-breaking

To insert it manually, use Ctrl+Shift+Space

Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting Selection.Find.Style = ActiveDocument.Styles("Normal") Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = " " .Replacement.Text = "^s" .Forward = True .Wrap = wdFindContinue .Format = True End With Selection.Find.Execute Replace:=wdReplaceAll

MemoSoup

VBA: how to read text file

Using the clipboard in WSH

Office: check if PowerPoint is running

WMI: get the information about the system

WMI+VBS: how to get the domain name

MS Word: replace spaces to non-breaking

Meta

Meta

Tags