Seitenhistorie
...
Code in WinIBW2 (Makro/VBScript)
Codeblock |
---|
Sub AaaPflicht()
'********************************************************************
On error resume next
Dim strKuerzel
Call HoleKuerzel(strKuerzel)
'Place your function code here
Application.ActiveWindow.Command "e t", False
Application.ActiveWindow.Title.InsertText "0500 Aaa" & vbCR &_
"0600 r" & vbCR &_
"0701 " & vbCR &_
"1100 9999" & vbCR &_
"2000 " & vbCR &_
"4000 " & vbCR &_
"4030 " & vbCR &_
"4201 " & vbCR &_
"4701 " & strKuerzel
Application.ActiveWindow.Title.StartOfBuffer
Application.ActiveWindow.Title.Find "0600", True, False, True
Application.ActiveWindow.Title.WordRight 1, False
Application.ActiveWindow.Title.CharRight 1, False
End Sub
|
Code in WinIBW3 (Javascript)
...
Überblick
Inhalte