/
Forside
/
Teknologi
/
Udvikling
/
VB/Basic
/
Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn
*
Kodeord
*
Husk mig
Brugerservice
Kom godt i gang
Bliv medlem
Seneste indlæg
Find en bruger
Stil et spørgsmål
Skriv et tip
Fortæl en ven
Pointsystemet
Kontakt Kandu.dk
Emnevisning
Kategorier
Alfabetisk
Karriere
Interesser
Teknologi
Reklame
Top 10 brugere
VB/Basic
#
Navn
Point
1
berpox
2425
2
pete
1435
3
CADmageren
1251
4
gibson
1230
5
Phylock
887
6
gandalf
836
7
AntonV
790
8
strarup
750
9
Benjamin...
700
10
tom.kise
610
undertrykke indbyggede dialog-bokse i word
Fra :
Baldwin
Dato :
19-10-02 01:11
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 = wdDutch
Selection.NoProofing = False
Application.CheckLanguage = False
On Error Resume Next
With ActiveDocument
.CheckSpelling
.CheckGrammar
End With
End Sub
------------------------------------------------------
Baldwin (
19-10-2002
)
Kommentar
Fra :
Baldwin
Dato :
19-10-02 01:32
For en god ordens skyld en lille rettelse på en fejl der sneg sig ind.. Det
har ikke dog noget med problemet at gøre..
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
------------------------------------------------------
Søg
Alle emner
Teknologi
Udvikling
VB/Basic
Indstillinger
Spørgsmål
Tips
Usenet
Reklame
Statistik
Spørgsmål :
177552
Tips :
31968
Nyheder :
719565
Indlæg :
6408847
Brugere :
218887
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.