Word 2013 VBA

Antwort erstellen

Smilies
:D :) :( :o :shock: :? 8-) :lol: :x :P :razz: :oops: :cry: :evil: :twisted: :roll: :wink: :!: :?: :idea: :arrow: :| :mrgreen: :badgrin: :doubt:
BBCode ist eingeschaltet
[img] ist eingeschaltet
[flash] ist ausgeschaltet
[url] ist eingeschaltet
Smilies sind eingeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Word 2013 VBA

Re: Word 2013 VBA

Beitrag von itphantom » 10. Jun 2014, 19:13

itphantom am 09. Jun 2014 um 21:30 hat geschrieben:Vielen Dank habe es versucht, klappt leider auch nicht.
lg

Lösung
Code: Alles auswählen
    AppActivate objexplorer
Unter End With hinzufügen.

Re: Word 2013 VBA

Beitrag von Miss Marple » 09. Jun 2014, 09:27

Moin,

manche Makros werden bein Document_Open nicht korrekt ausgeführt, weil Word noch mit dem Öffnen des Dokumets 'beschäftigt' ist.
In diesem Fall hilft es, das Makro ein wenig zeitverzögert zu starten. Ob das auch bei dir hilft -mussdegucken.

Statt dein Makro wir gewohnt zu starten. starte es über
Code: Alles auswählen
    Application.OnTime Now + TimeValue("00:00:05"), "NameOfMakro"
Sollte es mit dieser Zeitverzögerung (5 Sekunden, was sicher zu lang ist) klappen, setzt du den TimeValue dann schrittweise runter.

Gruß
MM

Word 2013 VBA

Beitrag von itphantom » 08. Jun 2014, 23:08

Hallo,
habe eine userform erstellt, die sich beim Starten des Word docm automatisch startet. Ein Problem läßt jedoch noch nicht lösen.
Beim Starten des Makros wird eine Internetseite geöffnet. Diese wird jedoch im Hintergrund ausgeführt und somit nicht angezeigt.
Wenn das Makro jedoch direkt aus vba ausgeführt wird funktioniert es ohne Probleme. Hier der Code, für einen Input wäre ich sehr
dankbar.
Code: Alles auswählen
Sub ie_test()
    Set objExplorer = CreateObject("InternetExplorer.Application")
    With objExplorer
        .Navigate ("http://www.google.at") 'anpassen
        .StatusBar = False
        .MenuBar = False
        .Toolbar = False
        .FullScreen = True
        .Visible = True
        .Resizable = True
        '.Width = 800
        '.Height = 600
        .Left = 0
        .Top = 0
    End With
    Call Pause(6)
    objExplorer.Quit 'schliessen
    Set objExplorer = Nothing
End Sub

Public Sub Pause(Pausenlänge As Integer)
    Dim Start As Single
   
    Start = Timer
    Do While Timer < Start + Pausenlänge
        DoEvents
    Loop
End Sub

Nach oben