Det var lige præcis "Hovedet på sømmet". Makroen er den officielle MS
løsning på fejlen i Word2002, brugt sammen med XP og Win2000 og har
afstedkommet voldsom furore fordi:
1: Jeg burde ha´ tænkt på sprogforbistringen.
2: Win2000 siden henviste problemet til en Wordside, det samme gjorde XP
siden
3: Samtlige MS-Word sider ignorerede spørgsmålet hvorefter jeg havde held
til at finde en KB artikel med den engelske løsning som virkede meget fint
undtagen hos den der oprindeligt havde efterlyst en løsning.
Så igen engang kan jeg fastslå at der er én gruppe der løser problemerne.
Tak for hjælpen, Den pågældende KB artikel som indeholder alle
Vis-muligheder i boksen har nummeret: 301459.
--
mvh
pre
"Leo Heuser" <leo.heuser@adslhome.dk> wrote in message
news:bhi2b7$ue62$1@ID-168125.news.uni-berlin.de...
> Hej Pre
>
> SendKeys skal altid bruges som absolut sidste
> udvej, og hvis den bruges i en makro, der bruges
> i flere forskellige sprogudgaver af Word, be'r man
> om øretæver
>
> Den pågældende SendKey holder <Alt> nede og
> trykker på bogstavet "L", dernæst på venstrepil og
> til sidst på bogstavet "D".
> De internationale forviklinger dukker op fordi menuerne
> (naturligt nok) har forskellige navne på de forskellige
> sprog.
> I den engelske udgave hedder menupunktet "Tools",
> i den danske hedder det "Funktioner". I den engelske
> udgave er "l"et i "Tools" sandsynligvis understreget
> (jeg arbejder selv med den danske udgave), hvorfor
> SendKeys starter med %L. I den danske udgave
> skal dette i stedet være %K, da "K"et er understreget
> her. Ved "D"et er det så heldigt, at det er understreget
> i både "Details" og "Detaljer".
>
> Nedenstående sub klarer problemet for dansk og
> engelsk(e) udgaver, men du må selv bygge Select-
> strukturen videre, hvis du ønsker at rutinen skal kunne
> fungere på andre sprog. Som den er bygget i øjeblikket
> vil den engelske streng blive sendt for *alle* andre sprog
> end dansk.
>
>
> Sub InsertPicture()
> ' Inserts a picture from a graphics file.
> ' Sets the View to (D)etail with SendKeys.
> ' D - (D)etails view
> Dim SendKeysString As String
>
> Select Case Application.Language
> Case msoLanguageIDDanish
> SendKeysString = "%K{LEFT}D"
> Case Else
> SendKeysString = "%L{LEFT}D" ' English
> End Select
>
> SendKeys (SendKeysString)
>
> Application.Dialogs(wdDialogInsertPicture).Show
> End Sub
>
> Jeg går ud fra, at brugerne er klar over, at de ikke skal
> kalde makroen specifikt. I Word gælder det specielle,
> at hvis man giver en makro samme navn som en af de
> indbyggede rutiner, så vil Word køre den navngivne
> udgave.
> Menupunktet Indsæt > Billede > Fra fil
> bruger netop sub'en InsertPicture, så derfor er
> det nok at bruge menupunktet i stedet for at fx vælge
> makroer, eller give sub'en en knap eller lignende.
>
>
> --
> Med venlig hilsen
> Leo Heuser
> MVP Excel
>
> Followup to newsgroup only please.
>