word minimaliseren vanuit excel

[bloemenman]

Ik heb onlangs deze code gekregen via dit forum

Dim Wnword As Object
Set Wnword = CreateObject("Word.Document")
Wnword.Application.Quit

Ik ben nu op zoek naar een code om word niet af tesluiten maar te minimaliseren via vba vanuit excel

Wie kan mij helpen.

 

[paulva]

Ik zou het zo doen:

Wnword.Visible = False

 

[ReneDirks]

Onzichtbaar maken is natuurlijk niet helemaal hetzelfde als de vraag

Word.Application.WindowState = wdWindowStateMinimize
Word.Application.WindowState = wdWindowStateMaximize
Word.Application.WindowState = wdWindowStateNormal
'omdat je late binding doet, zul je de constante wel niet kunnen gebruiken
'wdWindowStateMinimize=2
'wdWindowStateMaximize=1
'wdWindowStateNormal=0

 

[bloemenman]

Ik zou het zo doen:

Wnword.Visible = False

 

[bloemenman]

Ik heb de code nu zo toegepast, het werkt wel, alleen komt er een foutmelding.

Private Sub CommandButton3_Click()

Application.WindowState = xlMinimized

Word.Application.WindowState = wdWindowStateMinimize

End Sub

 

[ReneDirks]

Zoals gezegd:
Omdat je late binding doet, zul je de constante wel niet kunnen gebruiken, wdWindowStateMinimize=2
dus

Word.Application.WindowState = 2

 

[snb]

With Getobject(,"word.application")
  .windowstate=2
end with

 

[bloemenman]

Ik heb nog iets te weinig ervaring merk ik
wie wil voor mij de code aanpassen?

Private Sub CommandButton3_Click()

Application.WindowState = xlMinimized

Word.Application.WindowState = wdWindowStateMinimize

End Sub

 

[OctaFish]

Private Sub CommandButton3_Click()
    With Getobject(,"Word.Application")
      .WindowState=2
    End with
End Sub

Heb je geen cijfer 2 op je toetsenbord

 

[ReneDirks]

Dacht toch dat ik het 2x duidelijk neergezet had...

 

[bloemenman]

Private Sub CommandButton3_Click()
    With Getobject(,"Word.Application")
      .wWndowState=2
    End with
End Sub

Heb je geen cijfer 2 op je toetsenbord

Euh....

waar moet dit nog ergens geplaatst worden?

Word.Application.WindowState = wdWindowStateMinimize
Word.Application.WindowState = wdWindowStateMaximize
Word.Application.WindowState = wdWindowStateNormal
'omdat je late binding doet, zul je de constante wel niet kunnen gebruiken
'wdWindowStateMinimize=2
'wdWindowStateMaximize=1
'wdWindowStateNormal=0

 

[OctaFish]

Je geeft zelf de code die achter de knop hangt. Ik heb alleen die code vervangen. Ik raad jou aan hetzelfde te doen... Nogmaals: je kunt met Late Binding alleen de waarden gebruiken, niet de namen. Volgens mij zat er nog een typfout in de code die ik van snb had gekopieerd, dus die heb ik er net uitgehaald.

 

[ReneDirks]

Dat hoeft er niet meer in. Ik had dat er ook als commentaar bijgezet, zodat je de verschillende windowstates kon zien. wdWindowStateMinimize = minimaliseren, wdWindowStateMaximize = maximaliseren, ik laat het aan jouw fantasie over wat wdWindowStateNormal doet....
Omdat je late binding gebruikt (als je niet weet wat dat is, even googlen, daar is genoeg over geschreven) zijn de Wordconstanten wdWindowStateMinimize, wdWindowStateMaximize en wdWindowStateNormal onbekend. In tegenstelling tot bijvoorbeeld xlMinimized (heeft een waarde van ergens in de 4000), die WEL bekend is omdat je in Excel zit.
In plaats van Word.Application.WindowState = wdWindowStateMinimize type jij dus in: Word.Application.WindowState = 2 en dan wordt Word geminimaliseerd. Als je 'm later weer 'normaal' wilt hebben voer je de code Word.Application.WindowState=0 uit (shoot, geef ik alsnog aan wat wdWindowStateNormal doet...)

 

[snb]

Bekijk ook gewoon eens een basisboek VBA; dan begrijp je de suggesties in dit forum ineens veel sneller.

@Octa :
Ik gebruik nu eenmaal een VBA-toetsenbord met alleen maar VBA-codes, dus niet zoiets simpels als cijfers, letters, etc

 

[OctaFish]

@snb: de opmerking was ook niet voor jou bedoeld, maar voor TS die er maar niet in slaagt een commando te typen met een cijfer

 

[Warme bakkertje]

@ snb
Waar verkopen ze zo'n toetsenbord

 

[bloemenman]

Ik ben ineens een heel stuk wijzer geworden!
Bedankt hoor!
Enne.... de code werkt nu hoor:thumb:

Heel veel dank weer.
Ben echt blij met dit forum

Groeten,
de bloemenman