none
Wie kann man die Winword-Exe abhängig vom Gerätetyp auslesen? RRS feed

  • Frage

  • Hi Newsgroup,

    wir importieren Daten aus unserem Warenwirtschaftssystem in Excel 2010 und rufen per Makro aus Excel Word zur Generierung von Etiketten auf. Wir setzen jedoch zwei Gerätetypen ein, PCs und TCs. Letztere haben Zugriff auf Word über einen Citrix Server. Der Word-Aufruf  funktioniert bei den TCs mit folgendem Befehl:

    Call Shell("C:\Program Files (x86)\Microsoft Office\Office14\WINWORD.EXE

    Wie kann ich den Befehl gestalten, dass das Makro auch auf PCs eingesetzt werden kann, wo Word unter C:\Programme zu finden ist?

    Vielen Dank für Eure Antworten!

    Anne

    Montag, 9. Januar 2012 13:56

Antworten

  • Am 09.01.2012 schrieb SD-1:

    jedoch zwei Gerätetypen ein, PCs und TCs. Letztere haben Zugriff auf Word über einen Citrix Server. Der Word-Aufruf  funktioniert bei den TCs mit folgendem Befehl:

    Call Shell("C:\Program Files (x86)\Microsoft Office\Office14\WINWORD.EXE
    Wie kann ich den Befehl gestalten, dass das Makro auch auf PCs eingesetzt werden kann, wo Word unter C:\Programme zu finden ist?

    Public Function Word_starten()
    
    Dim WshShell As Object
    Dim FileSystemObject As Object
    Dim strProgramfiles As String
    Dim strPfad As String
    
    Set WshShell = CreateObject("WScript.Shell")
    
    strProgramfiles = WshShell.ExpandEnvironmentStrings("%PROGRAMFILES%")
    
    Set fso = New FileSystemObject
    
    If (fso.FileExists("C:\Program Files (x86)\Microsoft Office\Office14\WINWORD.EXE") = True) Then
            strPfad = "C:\Program Files (x86)\Microsoft Office\Office14\WINWORD.EXE"
    ElseIf (fso.FileExists(strProgramfiles & "\Microsoft Office\Office14\Winword.exe") = True) Then
            strPfad = strProgramfiles & "\Microsoft Office\Office14\Winword.exe"
    End If
    
    Shell strPfad
    
    End Function

    Servus
    Winfried


    Connect2WSUS: http://www.grurili.de/tools/Connect2WSUS.exe
    GPO's: http://www.gruppenrichtlinien.de
    Community Forums NNTP Bridge: http://communitybridge.codeplex.com/

    Montag, 9. Januar 2012 20:21

Alle Antworten

  • Am 09.01.2012 schrieb SD-1:

    jedoch zwei Gerätetypen ein, PCs und TCs. Letztere haben Zugriff auf Word über einen Citrix Server. Der Word-Aufruf  funktioniert bei den TCs mit folgendem Befehl:

    Call Shell("C:\Program Files (x86)\Microsoft Office\Office14\WINWORD.EXE
    Wie kann ich den Befehl gestalten, dass das Makro auch auf PCs eingesetzt werden kann, wo Word unter C:\Programme zu finden ist?

    Public Function Word_starten()
    
    Dim WshShell As Object
    Dim FileSystemObject As Object
    Dim strProgramfiles As String
    Dim strPfad As String
    
    Set WshShell = CreateObject("WScript.Shell")
    
    strProgramfiles = WshShell.ExpandEnvironmentStrings("%PROGRAMFILES%")
    
    Set fso = New FileSystemObject
    
    If (fso.FileExists("C:\Program Files (x86)\Microsoft Office\Office14\WINWORD.EXE") = True) Then
            strPfad = "C:\Program Files (x86)\Microsoft Office\Office14\WINWORD.EXE"
    ElseIf (fso.FileExists(strProgramfiles & "\Microsoft Office\Office14\Winword.exe") = True) Then
            strPfad = strProgramfiles & "\Microsoft Office\Office14\Winword.exe"
    End If
    
    Shell strPfad
    
    End Function

    Servus
    Winfried


    Connect2WSUS: http://www.grurili.de/tools/Connect2WSUS.exe
    GPO's: http://www.gruppenrichtlinien.de
    Community Forums NNTP Bridge: http://communitybridge.codeplex.com/

    Montag, 9. Januar 2012 20:21
  • Hallo Winfried,

    herzlichen Dank für Deine Antwort. Ich baue den Code in mein Makro ein und lasse Dich wissen, ob es funktioniert hat.

    Gruß

    Anne

     

    Dienstag, 10. Januar 2012 08:53
  • Am 10.01.2012 schrieb SD-1:

    herzlichen Dank für Deine Antwort. Ich baue den Code in mein Makro ein und lasse Dich wissen, ob es funktioniert hat.

    Hast Du den Code denn schon testen können?

    Servus
    Winfried


    Connect2WSUS: http://www.grurili.de/tools/Connect2WSUS.exe
    GPO's: http://www.gruppenrichtlinien.de
    Community Forums NNTP Bridge: http://communitybridge.codeplex.com/
    Reg2xml:  http://www.reg2xml.com - Registry Export File Converter

    Donnerstag, 12. Januar 2012 23:03