Word vba kode skriver i forkert dokument

Husk at Aktiver "Nyt.doc"

???

Du skal skrive i din kode følgende før Word kan bruge det nye dokument:
Aktiver "navnet på dit nye dokument"
Herefter er dit nye dokument det aktive dokument. Man kan springe mellem dokumenterne ve at benytte komandoen "Aktiver"

Et lille eks.

'*******************************************************************************

VindueArrangerAlle

'***************
'TABEL SETUP
Aktiver "outfile"
TabelIndsætTabel .KonverterFra = "", .AntalKolonner = "10", .AntalRækker = "4", .OprindKolBredde = "Auto", .Format = "0", .Anvend = "167"
TabelKolonnebredde .Kolonnebredde = "1,6 cm", .AfstMellemKol = "0,25 cm", .NæsteKolonne,

OSV.

Var det at forstå ???

Når dokumentet er nyt har det jo ikke noget navn andet end "document#"

Lidt mere hjælp:

Sub Opret_Nyt_Dokument :
'*****************************************************************************
' Opret nyt dokument for output

FilerNyt .Skabelon = "\\Server_1_nt\s2nt_c\MSOffice\SHARE\Normal.dot", .NySkabelon = 0
FilerSideopsætning .Fane = "1", .PapirStørrelse = "9", .ØvreMargen = "2 cm", .NedreMargen = "2 cm", .VenstreMargen = "1 cm", .HøjreMargen = "1 cm", .InderMargen = "0 cm", .SideBredde = "29,7 cm", .SideHøjde = "21 cm", .Papirretning = 1, .FørsteSide = 0, .ØvrigeSider = 0, .LodretJustering = 0, .AnvendIndstilPå = 4, .ModståendeSider = 0, .AfstandSidehoved = "1,25 cm", .AfstandSidefod = "1,25 cm", .SektionStart = 2, .LigeUligeSider = 0, .SpecielFørsteSide = 0, .Slutnoter = 0, .LinjeNum = 0, .BegyndNum = "", .FraTekst = "", .Interval = "0", .NumTil = - 1

FilerGemSom .Navn = "outfile.doc", .Format = 2, .LåsRedigering = 0, .Adgangskode = "", .FøjTilListeOverSenestÅbn = 1, .AdgangskodeSkriv = "", .SkrivebeskyttelseAnbefalet = 0, .IntegrerSkrifttyper = 0, .OprindeligtBilledformat = 0, .FormularerData = 0, .SaveAsAOCELetter = 0

'*******************************************************************************

Så gem det med et navn eller med det navn det nu har, husk at gemme filnavnet som en variabel.

Vi taler forbi hinanden. Jeg anvender en kommando

Selection.typetext "et eller andet"

den skriver bare i det forkerte dokument

jeg vil ikke angive navn først, men først senere

Hmmmm: Hvordan ser din kode ud, Hvordan opretter du det nye dokument og hvordan har du styr på dokumentes navn ??????

Undskyld ventetiden, jeg fik andet at se til.

Dokumentet startes med en makro der ikke tildeler navn det skal brugeren selv gøre - til sidst - når makro koden er kørt færdig

denne kode starter dokumentet

Sub newletter()
'
    Documents.Add Template:="\\ZEBRA\TEMPLATES\eea - templates\newlettertemplate.dot", _
    NewTemplate:=False, DocumentType:=0
End Sub

Jeg ved ikke hvordan du sikrer dig at være i det nye dokument med ovenstående kode. Men hvis du giver dit nye dokument et temp navn så er det nemt. Jeg har ikke andre forslag.

Nedenstående kode opretter et nyt dokument og hopper tilbage til det dokument hvor det nye dokument blev oprettet fra.

Sub Test_af_opret_nyt_doc()
    Documents.Add DocumentType:=wdNewBlankDocument
    Windows("Dokument 1").Activate ' Tilbage til dok1
End Sub

tak for forslaget, men det forudsætter at det er det første dokument fra word i denne session. hvergang word åbner et nyt lægger den et til. ( eg. dok2, dok3, osv.) jeg ved jo ikke hvad nummer word er nået til når templaten bliver aktiveret. At navngive inden makroen kører, er en løsning, men lidt besværlig, og ikke det brugeren ønsker

Prøv lige dette, herefter er NyDoc = navnet på det dokument du lige har oprettet.

Sub Test_af_opret_nyt_doc()
    Documents.Add DocumentType:=wdNewBlankDocument
    NyDoc = ActiveDocument
End Sub

Hej igen, jeg tror jeg har løst problemet sådan her:

activedocument.select
Selection.typetext "et eller andet"

Jeg er ikke sikker på at det er det, men det virker

tak for din insats alligevel