VBA Excel: Åbne og redigere i wordfil

Du får et lille eksempel.....senere

VBA-koden: -kan evt. tilknyttes en knap

Dim wDok As Object
Sub håndteringAfDok()
    Set wdoc = CreateObject("Word.application")
   
    With wdoc
        .documents.Open ("d:\Eksperten\Word.doc")
        .wordbasic.Insert "Denne tekst sættes ind i dokumentet"
        .activedocument.SaveAs "d:\Eksperten\Word2.doc"
        .activedocument.Close
    End With
   
    Set wdoc = Nothing
End Sub

Hvordan gør jeg hvis jeg vil indsætte tekst, der ikke skal indsættes allerførst i dokumentet, men f.eks. 3 linier nede og 5 indryk inde?

Indspil en makro i Word, der illustrerer, det du vil og indsæt det i XLS-VBA-koden:

I xls-VBA: aktiver referencen til Microsoft Word  1x.0 (Tools/References)

Dim wDok As Object
Sub håndteringAfDok()
Dim linieNr, antalIndryk

    Set wDok = CreateObject("Word.application")
   
    With wDok
        .documents.Open ("d:\Eksperten\Word.doc")
       
        linieNr = InputBox("Linienr: ")
        antalIndryk = InputBox("Antal indrykninger: ")
       
        positionerIWord Val(linieNr), Val(antalIndryk), wDok
        .wordbasic.Insert CStr(Cells(1, 1))        'indsæt værdi fra Excel
       
        .activedocument.SaveAs "d:\Eksperten\Word2.doc"
        .activedocument.Close
    End With
   
    wDok.Application.Quit
    Set wDok = Nothing
End Sub
Sub positionerIWord(lNr, aIndryk, wd As Object)
Dim i
    With wd
        .Selection.HomeKey Unit:=wdStory
        .Selection.MoveDown Unit:=wdLine, Count:=lNr
       
        For i = 1 To aIndryk
            .Selection.Paragraphs.Indent
        Next i
    End With
End Sub

OK...

Jeg har aktiveret Microsoft Word 11.0 Object Library i References.

Jeg har indskrevet håndteringAfDok() i VBA Excel og positionerIWord(...) i VBA Word under det dokument, jeg skal åbne.

Jeg får nu fejlmeddelelsen:
"compile error: sub or function not defined"
mht. positionerIWord(...)-linien i håndteringAfDok().

Jeg forsøgte med mig at indsætte et punktum først i linien sådan at den kom til at hedde
.positionerIWord Val(linieNr), Val(antalIndryk), wDok
men nu får jeg fejlmeddelelsen:
"run-time error '438': object doesn't support this property or method"

Hvad skal jeg gøre anderledes?

Hele koden skal være i Excel - således at man i givet fald kan anvende andre word-dokumenter! Dette er p.t. ikke muligt- men via en userform i Excel kunne dette lade sig gøre, hvis dette var ønskeligt.

ok... det virker rigtig godt, bortset fra en ting: filen skal blive ved med at være åben. Word skal altså ikke lukke ned.

Godt ....

Hvis det er Word-dok. under det nye navn, der skal være åbent - så ser VBA-kode således ud - altså 3 linier deaktiveret - een tilføjet:


Dim wDok As Object
Sub håndteringAfDok()
Dim linieNr, antalIndryk

    Set wDok = CreateObject("Word.application")
   
    With wDok
        .documents.Open ("d:\Eksperten\Word.doc")
       
        linieNr = InputBox("Linienr: ")
        antalIndryk = InputBox("Antal indrykninger: ")
       
        positionerIWord Val(linieNr), Val(antalIndryk), wDok
        .wordbasic.Insert CStr(Cells(1, 1))        'indsæt værdi fra Excel
       
        .activedocument.SaveAs "d:\Eksperten\Word2.doc"
'        .activedocument.Close
    End With
   
    wDok.Visible = True
   
'    wDok.Application.Quit
'    Set wDok = Nothing
End Sub
Sub positionerIWord(lNr, aIndryk, wd As Object)
Dim i
    With wd
        .Selection.HomeKey Unit:=wdStory
        .Selection.MoveDown Unit:=wdLine, Count:=lNr
       
        For i = 1 To aIndryk
            .Selection.Paragraphs.Indent
        Next i
    End With
End Sub

mange tak for hjælpen...

Selv tak.....