General VBA

Username of Computer User

'UserDim macroUser As StringmacroUser = Environ$("username")macroUser = LCase(macroUser)

ID of Local Computer

'ComputerDim macroComputer As StringmacroComputer = Environ$("computername")macroComputer = LCase(macroComputer)

Current Date and Time, yyyymmddhhmmss

'DatetimeDim timeOnly As StringDim dateOnly As StringDim dateTime As StringtimeOnly = Format(Time, "hhmmss")dateOnly = Format(Date, "yyyymmdd")dateTime = dateOnly & timeOnly

Enumerate Constants

'Used to access data arrayEnum formInputEnums iUser iComputer iDatetime iTitle iType iObservation iCaption1 iCaption2 iPDFEnd Enum

FullName, Name, Path

Sub directory()Dim myString As StringmyString = ActiveDocument.PathMsgBox (myString)End Sub
Sub filename()Dim myString As StringmyString = ActiveDocument.NameMsgBox (myString)End Sub

Sub fullfilename()Dim myString As StringmyString = ActiveDocument.FullNameMsgBox (myString)End Sub

Enable/Disable Buttons

This example requires the button's name property to be set to "myButtonName".

'EnablemyButtonName.Enabled = True
'DisablemyButtonName.Enabled = False
'View statusSub test()MsgBox myButtonName.EnabledEnd Sub

Page updated

Google Sites

Report abuse