Med version 7 af TeamShare tager Lector næste skridt og bygger en platform for AI-agenter, der i højere grad kan følge medarbejderen gennem hele arbejdsprocessen.
Jeg har vist fundet hvad jeg søgte, følgende kode åbner c:\dok.doc og skriver bla. hellow world i sidehovedet.
Private Sub Kommandoknap2_Click() Dim wdApp As Word.Application Set wdApp = New Word.Application With wdApp .Documents.Open FileName:="c:\dok.doc" If .ActiveWindow.View.SplitSpecial <> wdPaneNone Then .ActiveWindow.Panes(2).Close End If If .ActiveWindow.ActivePane.View.Type = wdNormalView Or .ActiveWindow.ActivePane.View.Type = wdOutlineView Then .ActiveWindow.ActivePane.View.Type = wdPrintView End If .ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader With .Selection 'Indsætter i slutning af dokumentet .EndKey Unit:=wdStory .TypeParagraph .TypeText ("Hello world") .TypeParagraph .TypeParagraph End With .Visible = True End With End Sub
Nu mangler jeg bare koden til at indsætte indhold af tabeller og lidt andet.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.