Overføre Tekst til word

Værsågod

Imports Word = Microsoft.Office.Interop.Word ' HUSK AT TILFØJE REFERANCEN Microsoft Word xx.x Object Library

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Åbner tekstfil
        Dim objWord As Word.Application
        objWord = CreateObject("Word.Application")
        objWord.Visible = False
        Dim objDoc As Word.Document
        objDoc = objWord.Documents.Open("C:\Documents and Settings\HTX2007\Dokumenter\JH stål\JHS_LS.dot") ' Filen der indeholder skabelonen
        Const wdFindContinue = 1
        Const wdReplaceAll = 2
        Dim objSelection = objWord.Selection


        ' Finder og erstater (Dette stykke kode kan kopieres og indsættes lige så mange gange man har brug for)
        Dim TekstFind As String = "{dato}" ' Teksten den finder
        Dim TekstErstat As String = "01-09-2008" ' Teksten den erstatter

        With objSelection.Find
            .Text = TekstFind
            .Forward = True
            .MatchWholeWord = True
            .Wrap = wdFindContinue
            .Format = False

            .Replacement.Text = TekstErstat
            .Execute(, , , , , , , , , , wdReplaceAll)
        End With

        'Gemmer den ændrede fil og lukker den
        objWord.ActiveDocument.SaveAs("C:\Documents and Settings\HTX2007\Dokumenter\JH stål\JHS_LS_ændret.doc") ' Destination til den gemte fil
        objWord.Quit()
    End Sub
End Class

Det er lidt mere besværligt hvis det skal være op til Office 2003. Det er jo en "rigtig" bineær fil...

Jeg lavede på et tidspunkt for noget tid siden et system til Office 2007 der kunne lave fakturaer direkte ud fra en database. Fordelen med at bruge Office 2007 er, de åbne standarder det benytter. En docx-fil er jo reelt en zip-fil (hvis du omdøber filen og sætter .zip bag på kan du åbne den som en zip-fil) indeholdende en række XML-filer. En af disse XML-filer indeholder så alt markup til hvad indhold der skal være i word-dokumentet (lidt ligesom en HTML- eller XAML-fil).

Det jeg ville råde dig til at gøre er, at se på muligheden i at benytte VSTO (Visual Studio Tools for Office) til VS:
http://msdn.microsoft.com/en-us/office/aa905533.aspx
Med VSTO burde du netop kune gøre alt det du gerne vil opnå.

Jeg har lavet en kode, der faktisk fungere som en søg/erstat funktion. Den kræver en wordskabelon hvor den søger efter et element og ændrer det til noget data fx hentet fra en database.

fx
(word skabelon)
Hej [brugernavn]

[tekst]

[dato]

Programmet vil her søge efter bl.a. [brugernavn] som det skifter ud med fx Bob


Hvis du er interesseret så skriv, så lægger jeg koden ud her.

Jeg meget intersseret i koden. Har søgt rigtig meget omkring på nettet.

Mange tak, det var lige det jeg manglede.