feltkoder - dansk/engelsk

Det burde være tilstrækkeligt at vælge engelsk som sprog for det dokument han vil bruge skabelonen til. Det kan du for øvrigt sætte skabelonen til at vælge helt automatisk. Bare sæt "set language = sprognavn (eller også indexnummeret på sproget). Dette har dog den ulempe at han ikke vil kunne bruge danske ordbøger i den del af dokumentet.

En anden mulighed er at ændre din skabelon til færst at teste på sproget og derefter bruge de ord der testes på afhængigt af sproget. Dermed vil du stadig holde den på det sprog han har og dermed kunne bruge de indbyggede muligheder sprogvalget giver (ordbog, syntax, autorettelse m.m.)

En anden mulighed kunne være at sætte din pc op til dansk/hhv engelsk i regional settings, dette har jeg konstateret virker i forbindelse med separatorer i macroer i word 7.

se http://www.microsoft.com/Danmark/technet/news/990917_word.asp hvor der findes

Både forklaring og en slags løsning

I hvert fald hvis man har en dansk skabelon der skal laves om til engelsk

-> sjensen

language har vist ingen indflydelse på formateringskoder
f.eks "fletformat" hedder altid dette i en dansk word 97

Måske et dumt forslag, men hvorfor ikke bare lave en ny skabelon mage til bare med danske feltkoder? Det skulle da ikke være så svært...:-)

Hvis man låser et felt <ctrl F11> bliver det ikke opdateret og der opstår dermed ikke fejl selv om et felt med dansk parameter (f.eks STOTBOGSTAV)åbnes i en engelsk version af Word.

Prøv at installer den nyeste ServicePack til Office, mener den går ind og fixer problemet

i word97 dk blev /*mergeformat kaldt /*fletformat
så derfor er us og dk ikke kompatible i 97.
i word2000 dk hedder det /*mergeformat i begge versioner, så nu er de indbyrdes kompatible, dog ikke bagud med 97dk.

Brug flg. kode til at reparere dok med:

Sub RepairFields()
  Dim MyField As Field
  For Each MyField In ActiveDocument.Fields
    If Right(MyField.Code.Text, 12) = \"/*FLETFORMAT\" Then
      MyField.Code.Text = Left(MyField.Code.Text, Len(MyField.Code.Text) - 12) & _
                          \"/*MERGEFORMAT\"
      MyField.Update
    End If
  Next
  Application.ScreenRefresh
 
End Sub