opvragen van een word doc. in vb

[Pilchaar]

hallo, ik zou graag een word document willen opvragen en openen in vb.net.
we hebben wel voorbeelden gezien i.v.m hoe men een document moet afprinten van word uit vb.net maar ik zou het graag willen in een textbox willen zien en daarin aanpassen.

Is dit mogelijk??

dit is de code voor het af teprinten en deze werk wel maar hij moet eerst de stap overgaan dat ik er getallen kan bijzet in did geval de percentage


vate Sub btnAttest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAttest.Click
Dim wordApp As New Word.Application
Dim doc As Word.Document

doc = wordApp.Documents.Add("F:\visual studio oefeningen\vb voorbeelden\VBNet2_Vbn\Attest.dot")
doc.Bookmarks.Item("naam").Range.Text = txtNaam.Text
'wordApp.Visible = True
doc.PrintOut()

CType(doc, Word._Document).Close(False)
CType(wordApp, Word._Application).Quit()


kan iemand me daarbij helpen?
:

 

[vanzwam]

Weet niet of dit kan in vb.net, maar probeer eens doc.Activate() ipv doc.PrintOut()

 

[Pilchaar]

do.active

doc.activate()


hey dit is het ook niet hoor ik krijg het niet te zien

iemand anders een idee???

 

[mark199]

Onderstaande code vult de tekst toch in op de plaats van de bookmark?

Imports Microsoft.Office.Interop

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim word As New Word.Application
        Dim wordApp As New Word.Application
        Dim doc As Word.Document

        doc = wordApp.Documents.Add("F:\visual studio oefeningen\vb voorbeelden\VBNet2_Vbn\Attest.dot")
        doc.Bookmarks.Item("naam").Range.Text = txtNaam.Text

        wordApp.Visible = True

        doc.PrintOut()

        CType(doc, Word._Document).Close(False)
        CType(wordApp, Word._Application).Quit()
    End Sub
End Class

 

[vanzwam]

Deze code gebruik ik in Access/VBA om een word document op te roepen, zodanig dat ik nog veranderingen kan aanbrengen en uitprinten. In VB.net, weet het niet, maar veel verschil gaar daar toch niet opzitten denk ik

Private Sub Knop192_Click()
On Error GoTo Err_Knop192_Click

Dim wrdobj As Word.Application
Dim strBestand As String

strBestand = "c:\Schroyens tom\Algemene voorwaarden TS.doc" 'formuliernaam

Set wrdobj = CreateObject("Word.Application") 'Activeer het programma Word

wrdobj.Visible = True 'Toon de word-applicatie

wrdobj.Documents.Open (strBestand) 'Open het bestand

wrdobj.Activate 'Activeer Word met het geopende bestand


Exit_Knop192_Click:
Exit Sub

Err_Knop192_Click:
MsgBox Err.Description
Resume Exit_Knop192_Click

End Sub

 

[Pilchaar]

snelle hulp

dit ga ik eens proberen dit zal wel kunnen werken

bedankt in ieder geval

 

[mark199]

Als het je bestand alleen wilt openen en daarna zelf op het printen drukt, dan heb je de code toch gewoon staan of mis ik nu wat??

        Dim word As New Word.Application
        Dim wordApp As New Word.Application
        Dim doc As Word.Document

        doc = wordApp.Documents.Add("F:\visual studio oefeningen\vb voorbeelden\VBNet2_Vbn\Attest.dot")
        doc.Bookmarks.Item("naam").Range.Text = txtNaam.Text

        wordApp.Visible = True

Aan het einde sluit jij alleen de applicatie meteen af, dus daarom blijft deze niet open staan. Je zou van de tekst die je wilt wijzigen dus ook een bookmark kunnen maken en deze in de tekstbox kunnen invoeren?????

 

[Pilchaar]

opvragen van doc.

dit heb ik al ondervonden en dit probleem is reeds opgelost
maar als je in een word document gegevens wilt invoeren via vb.net moet je dit doen via
Invoegen/Bladwijzer. dit heb ik ook gevonden .

Maar als ik er meerdere wil invoegen dan blijft zet hij de gegevens op een verkeerde plaats zodus kun je eigenlijk meerdere bladwijzers invoegen in een word document en dan via vb.net ze invullen ??

kan iemand mij daar een antwoord op geven ?

dit is de code voor 1 textvak
doc.Bookmarks.Item("Herstellingswerken").Range.Text = txtUitleg.Text
herstellingswerken is de naam van de bladwijzer

maar voor het 2de textvak is het de datum
doc.Bookmarks.Item("datum").Range.Text = txtdatum.Text

en daar bij zet hij het naast de herstellingswerken ? hoe moet ik dit dan in orde brengen ?

 

[mark199]

Waarschijnlijk je booksmarks toch niet op de juiste plek gezet. Post anders je .dot bestandje even.

 

[Pilchaar]

mmmhhh met 2 is het me gelukt maar met 5 daar gaat het blijkbaar niet


Dim wordApp As New Word.Application
Dim doc As Word.Document

doc = wordApp.Documents.Add("G:\De vergaderingen van la capitainerie.doc")
doc.Bookmarks.Item("datum").Range.Text = txtdatum.Text
doc.Bookmarks.Item("Personenaanwezig").Range.Text = txtaantalpersonen.Text
'doc.Bookmarks.Item("doel").Range.Text = txtdoel.Text
'doc.Bookmarks.Item("besluit").Range.Text = txtBesluit.Text
'doc.Bookmarks.Item("dranken").Range.Text = txtdranken.Text
wordApp.Visible = True

doc.Activate()

de code is nochtans juist denk ik toch de namen tussen haakjes ook maar mijn text komt niet op de juistte plaats

bij die bladwijzers heb je 2 verschillende buttems = naam en op locatie welke moet ik aanklikken als ik ze op de juiste plaats moet zetten ?

 

[mark199]

bij die bladwijzers heb je 2 verschillende buttems = naam en op locatie welke moet ik aanklikken als ik ze op de juiste plaats moet zetten ?

Dat is enkel voor het sorteren, op naam of op locatie. Heeft verder geen invloed op je code.

 

[Pilchaar]

gelukt

het is gelukt bedank voor de info en de hulp hoor

 

[Pilchaar]

Vraag

De oplossing was blijkbaar niet ver weg en is gelukt bedank daarvoor

 

[AlwinSC]

Bedankt voor al het vorige,
Dit heeft me al veel verder geholpen in het oproepen van WORD documenten!

Maar zit nog met een probleem,
Ik heb een Sjabloon aangemaakt met enkele bookmarks.
Voor 1 document werkt dit perfect,
Maar als ik dit document oproep, en de bookmarks wil opvullen vanuit een tabel,
dan krijg ik voor ieder nieuw item een nieuw word document!
Ik zou graag 1 document bekomen met ieder nieuw item (lijn in tabel) op een nieuwe pagina!

Iemand enig idee hoe je dit doet?

Moet iets zijn in de aard van mailmerge of zoiets...

Alvast bedankt
A.