Assembly: EDKB12WS (in EDKB12WS.exe)

Syntax

Visual Basic

Private Shared Sub FeldMakros()

C#

private static System.Void FeldMakros()

C++

private: 
static System::Void FeldMakros() 

JScript

private static function FeldMakros();

 

Source code

Visual Basic

Copy CodeCopy Code

 Private Sub FeldMakros()
    Dim i As Integer
    For i = 0 To Dokumentdaten.Rows.Count - 1
        If Dokumentdaten.Rows(i).Item("feldname") <> "" Then
            If Dokumentdaten.Rows(i).Item("einstiegsmakro") = True Then
                objWord.Run(docWord.FormFields.Item(Dokumentdaten.Rows(i).Item("feldname")).EntryMacro)
            End If
            If Dokumentdaten.Rows(i).Item("ausstiegsmakro") = True Then
                objWord.Run(docWord.FormFields.Item(Dokumentdaten.Rows(i).Item("feldname")).ExitMacro)
            End If
        End If
    Next
 End Sub 

Platforms

Windows 8, Windows Server 2012, Windows 7, Windows Vista SP1 or later, Windows XP SP3, Windows XP SP2 x64 Edition, Windows Server 2008 (Server Core not supported), Windows Server 2008 R2 (Server Core supported with SP1 or later), Windows Server 2003 SP2

The .NET Framework does not support all versions of every platform. For a list of the supported versions, see System Requirements.

 

Version Information

.NET Framework

Supported in: 4.5, 4, 3.5, 3.0, 2.0, 1.1, 1.0
 

.NET Compact Framework

Supported in: 3.5, 2.0, 1.0
 

XNA Framework

Supported in: 3.0, 2.0, 1.0
 

 

See Also