VB6 i forbindesel med Microsoft Word 97 eller XP

Tags:    visual-basic

Hej Alle sammen.

"Det er utroligt, hvad folk svare på mine spøgemål- Derfor prøver jeg igen."

Hvordan kan jeg læse i Word og skive i Word.

(Det med textbosken, der går ikke. Måske har svaret ikke arbejede ret lægge med VB. Jeg derimod har flere arbejede med VB6.)

Problomet er bare adgang til Microsoft Word. Jeg ved det er muligt.

Jeg skal bruge koderne til Visual Basic 6, og ingen andre sindssyge forslag.

Jeg håber meget en venlige bruger af www.uddikleren.dk kan hjælpe.

Jeg vil give 200 up for et brugbare forslag.




3 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 5 karma
Sorter efter stemmer Sorter efter dato
<pre>
Selection.TypeText Text:="Hallo world"
Selection.TypeParagraph
</pre>

tip: du kan altid prøve at lave en makro, og så se koden på den makro du har optaget!


mvh.
Thomas Christensen



Heysa :)

Jeg mener at jeg har set kode forslag til dette på www.planetsourcecode.com .
Håber du kan bruge noget af det
Check it out :)

Med venlig hilsen
Ken Christensen
Christensenken@hotmail.com
www.Kenman.tk



Jeg bringer dig et kort eksempel her, så du forstår idéen bag kommunikation med MS Word. Lad os lave det som et VB prokjekt med en enkelt form.

For at snakke med MS Word, må du indsætte en reference til Microsoft Word objekt-biblioteket. Dette gøres ved at gå ind i Project-menuen in VB og vælge kommandoen References. Find derefter Microsoft Word 9.0 Object Library (eller noget i den dur).

Gå nu ind og skriv følgende kode i toppen af Form1-formen's kode:
<pre>Public wd As New Word.Application</pre>
Vi vil gerne have Word til at oprette et ny dokument, når programmet starter, så i Form_Load-hændelsen skriver du:
<pre>With wd
' Brug een af disse to...
.Visible = False 'skjuler Word
'.Visible = True 'viser Word

' Opret et nyt dokument
.Documents.Add
End With</pre>

Nu har du et nyt dokument i Word. For at styre dokumentet bruger du oftest et objekt, der kaldes Selection. Her er der en rutine, der indsætter tekst i et Word dokument der, hvor markøren er i øjeblikket:
<pre>Public Sub InsertText(ByRef argText As String)

With wd.Selection
.TypeText argText
End With

End Sub</pre>
For at afslutte og gemme det aktuelle dokument:
<pre>Public Sub EndAndSaveDocument(ByRef argDocName As String)

With wd
.ActiveDocument.SaveAs "mitDokument.doc", wdFormatDocument
.Close
End With

End Sub</pre>
For at afslutte Word:
<pre>wd.Quit
Set wd = Nothing</pre>
Der er utroligt mange operationer i Word, og det kræver rigtig meget at kontrollere programmet fuldstændigt. Derfor kan du optage makroer i Word og bruge den kode, de laver i dit eget program.

Jeg håber, dette er noget af det, du leder efter.

Software is here and now but rock and roll is forever.[Redigeret d. 13/11-02 20:00:07 af Herluf Hermansen]



t