---

Hej, jeg prøver igen at bede om hjælp til mit lille problem!

Koden nederst (2 variationer)

Jeg bruger 3 simple makroer via en 3 knapper på menubjælken til at få mit
dokument kontrolleret for stave og grammatik fejl på de tre sprog jeg
jævnlig bruger.
Dette for at undgå at gå ind i menyen og vælge sprog på lange lister osv.

Det virker helt efter hensigten, men jeg bliver hver gang nødt til at klikke
ok to gange på dialogboksene der popper op og siger kontrollen af det
markerede er færdig vil du kontrollere resten af dokumentet..

Hvis der er nogen der har en løsning vil jeg gerne høre det!

Herned koden jeg bruger tre gange den samme hvor sprogvariablen er skiftet
ud: wdDanish, wdGerman , wd EnglishUS.
Jeg har den faktisk i to variationer, der dog begge virker ens..

Hilsen,

Baldwin


-------------------------------------------------------
Sub DK()
'
' DK Macro Stavekontrol Dansk

Selection.WholeStory
Selection.LanguageID = wdDanish
Selection.NoProofing = False
Application.CheckLanguage = False
On Error Resume Next
ActiveDocument.CheckGrammar
ActiveDocument.CheckSpelling
End Sub
---------------------------------------------------
Sub EN()
'
' EN Macro ' Stavekontrol Engelsk'
Selection.WholeStory
Selection.LanguageID = wdEnglishUS
Selection.NoProofing = False
Application.CheckLanguage = False
On Error Resume Next
With ActiveDocument
.CheckSpelling
.CheckGrammar
End With
End Sub
------------------------------------------------------

---

"Baldwin" <baldwin@kolibrinet.dk> skrev i en meddelelse
news:apf7g3$2bps$1@jarjarbinks.mobilixnet.dk...
> Hej, jeg prøver igen at bede om hjælp til mit lille problem!
>
> Koden nederst (2 variationer)

Nu er dette jo VBA og ikke VB, og du glemmer desuden at skrive at
det er Word du arbejder i....

Mon ikke du bare mangler at indkapsle dine check i .DisplayAlerts
?

Application.DisplayAlerts = False
ActiveDocument.CheckGrammar
ActiveDocument.CheckSpelling
Application.DisplayAlerts = True


--
/\ preben nielsen
\/\ prel@post.tele.dk



>
>
> -------------------------------------------------------
> Sub DK()
> '
> ' DK Macro Stavekontrol Dansk
>
> Selection.WholeStory
> Selection.LanguageID = wdDanish
> Selection.NoProofing = False
> Application.CheckLanguage = False
> On Error Resume Next
> ActiveDocument.CheckGrammar
> ActiveDocument.CheckSpelling
> End Sub
> ---------------------------------------------------
> Sub EN()
> '
> ' EN Macro ' Stavekontrol Engelsk'
> Selection.WholeStory
> Selection.LanguageID = wdEnglishUS
> Selection.NoProofing = False
> Application.CheckLanguage = False
> On Error Resume Next
> With ActiveDocument
> .CheckSpelling
> .CheckGrammar
> End With
> End Sub
> ------------------------------------------------------
>
>
>
>
>
>

---

Tak til Preben Nielsen for løsningen på dette lille problem.

>>Mon ikke du bare mangler at indkapsle dine check i .DisplayAlerts?<<

Application.DisplayAlerts = False
ActiveDocument.CheckGrammar
ActiveDocument.CheckSpelling
Application.DisplayAlerts = True

Tak og
Hilsen,

Baldwin