Sonstiges > Offtopic

Ausführen von Macros in Office-Programmen grundsätzlich unterdrücken

<< < (2/3) > >>

TMC:

--- Zitat ---Ärgerlicherweise fehlen bei Visio2000 die Sicherheitseinstellungen für Makros.

Die Programme werden nur zur PDF Generierung automatisiert geöffnet + geschlossen. Sie müssen sollen ohne irgendwelche pop-up Boxen und verwandtes durchlaufen.

--- Ende Zitat ---

Afaik gibt es auch Visio - Viewer. Wäre das u.U. eine Alternative?
Ich kenne jetzt nicht die Hintergründe, wieviele Anwender das einsetzen sollen, etc.

Ansonsten könnte ich mir vorstellen, den Visio-Viewer zusätzlich zu installieren, danach aber die Registry - Einträge umzubiegen, so dass sich bei Doppelklick auf die vsd-Datei Visio (und nicht der Viewer) öffnet. Um die PDF zu erzeugen, eben dann die vsd-Datei mit dem Viewer starten.

Matthias

TMC:
Was mir noch einfällt:

Evtl. gibt es auch Befehlszeilenparameter. Hab nur keinen Link jetzt parat, was da so alles übergeben werden kann.
Und Visio weicht leider oftmals noch von den MS-Office-Programmen ab, weil es ja ursprünglich nicht von M$ ist (sondern im Jahr 200? aufgekauft wurde).

Wäre imo am elegantesten, sollte es da einen Switch geben.

Regards,
Matthias

koehlerbv:
Aber es geht doch hier nicht um "reagieren" (oder ansehen) von mit MS-Programmen erstellten Programmen, sondern darum, dass diese "agieren" ... Und da wird es wohl schwierig.

Und Axel brauchen wir bestimmt nicht zu fragen, ob er nicht andere Produkte einsetzen kann - wenn ER das fragt, dann lassen ihn die "äusseren Umstände" (Kunden) bestimmt keine andere Wahl.
Und dann noch sowas automatisieren .... Interessante Aufgabe ...

Ciao,
Bernhard

TMC:

--- Zitat von: koehlerbv am 03.02.04 - 20:50:56 ---Aber es geht doch hier nicht um "reagieren" (oder ansehen) von mit MS-Programmen erstellten Programmen, sondern darum, dass diese "agieren" ... Und da wird es wohl schwierig.
--- Ende Zitat ---

Schon klar, aber wenn beim agieren Messageboxes dazwischenfunken kann es schluss mit lustig sein. Daher eben mit dem Visio Viewer agieren, oder per Schalter beim Start die Messagebox (in dem Fall Makrowarnung) deaktivieren.
(als Idee, k.A. ob damit dann möglich)

Habe hier noch ein anderes Problem:
Wie aus der Registry auslesen, in welchem Pfad sich der Acroreader befindet? Das bei Wildwuchs-Rechnern (Win2k, WinXP, Reader 4.0, 5.0, 6.0, Adobe Acrobat Vollversion etc.). Denn ansonsten lassen sich hier keine Befehlszeilenparameter (in meinem Fall /h /P) mitgeben :-(

Matthias

koehlerbv:
Hallo, Matthias,

ich habe mal eben in meiner Grabbelkiste gewühlt und folgendes gefunden:


--- Code: ---Author: Ulrich Krause

                         Determining the Name of the Executable Associated with a Specific File

                    Code:

                         Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA"
                         (ByVal lpFile As String, ByVal lpDirectory As String, ByVal sResult As String)
                         As Long

                         Const MAX_PATH As Long = 260
                         Const ERROR_FILE_NO_ASSOCIATION As Long = 31
                         Const ERROR_FILE_NOT_FOUND As Long = 2
                         Const ERROR_PATH_NOT_FOUND As Long = 3
                         Const ERROR_FILE_SUCCESS As Long = 32 'my constant
                         Const ERROR_BAD_FORMAT As Long = 11

                         Sub Click(Source as Button)

                         Dim success As Long
                         Dim pos As Long
                         Dim sResult As String
                         Dim msg As String

                         sResult = Space$(MAX_PATH)

                         'lpFile: name of the file of interest
                         'lpDirectory: location of lpFile
                         'sResult: path and name of executable associated with lpFile
                         success = FindExecutable("winhlp32.hlp", "c:\winnt\system32\", sResult)

                         Select Case success
                         Case ERROR_FILE_NO_ASSOCIATION: msg = "no association"
                         Case ERROR_FILE_NOT_FOUND: msg = "file not found"
                         Case ERROR_PATH_NOT_FOUND: msg = "path not found"
                         Case ERROR_BAD_FORMAT: msg = "bad format"

                         Case Is >= ERROR_FILE_SUCCESS:

                         pos = InStr(sResult, Chr$(0))

                         If pos Then
                         msg = Left$(sResult, pos - 1)
                         End If

                         End Select

                         MsgBox msg

                         End Sub
--- Ende Code ---

Erstens: Probier' mal, ob Dir das was nützt.
Zweitens: Schau' mal, von wem das ist ;-)  Ich glaub, damals war eknori noch bei irgendwas kaltem: Schöller, Eismann ?  ;-)

HTH,
Bernhard (mit herzlichem Gruss auch an Ulrich !)

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete