Vraag & Antwoord

Programmeren

[Visual Basic] combinatie met Word

9 antwoorden
  • Hallo, Ik heb bezig met het schrijven van een applicatie. Het is een registratie systeem voor een museum (groepsbezoek, kinderfeestjes registeren etc.). Nu is het de bedoeling dat zodra er een reservering gemaakt is, alle betrokken personen een brief krijgen zodat ze op de hoogte zijn van die reservering. Ik wil dus een standaard brief gaan maken voor bepaalde reserveringen, op de plaats van adres etc. komen dan variablen. Maar nu de vraag, hoe doe ik dit? Hoe maak ik in Word een variable en hoe spreek ik vanuit Visual Basic Word aan? Al vast bedankt, Morph
  • Ik weet het niet precies uit mijn hoofd, heb wel ergens code. Je moet een VB-app maken en daarin een Word-instantie creeren. Zo kun je tags, bv <<naam>> zoeken en vervangen door dhr. J. Klaasen
  • Bedankt voor je antwoord, Zou je die code voor mij kunnen opzoeken? Dat zou echt helpen. Of weet je misschien een website waar ik de nodige informatie vandaan kan halen? Morph
  • [url]www.planetsourcecode.com[/url] of [url]www.google.com[/url]
  • Hey bedankt man! Ik ga ff kijken. Als iemand anders nog een idee heeft of voorbeeld code, graag posten. Cya
  • Zal deze week wat code zoeken, maar weet niet precies wanneer. Laat even je resultaten weten...
  • Heb wat rond gekeken op die ene site en ook google.nl, maar no luck. Vaak kom ik alleen maar uitleg tegen om een soort mailmarge te maken (mailing-list etc.). Niet echt wat ik zoek. Maar is het misschien handiger als ik een soort forumlier maak in access en deze dan in Visual basic gebruik? Ik sla de data namelijk op in een access database. Bedankt voor je reacties.
  • Het mooiste is om een koppeling te maken met zowel Access als Word. Hierdoor kun je laten een andere database een je applicatie koppelen. Wil je iets veranderen dan kun je die wijzigingen centraal houden in je applicatie. Geef je emailadres maar, dan stuur ik je e.e.a. toe
  • Het werkt!! Het is gelukt mensen. Ik heb de volgende code gebruikt: [quote:24d004a93a] Private Sub mnuTest_Click() Dim objWordApp As Word.Application Dim myRange Set objWordApp = CreateObject("Word.Application") objWordApp.Documents.Open App.Path & "\test.doc" Set myRange = ActiveDocument.Content With myRange.Find .ClearFormatting .Text = "<<adres>>" .Replacement.ClearFormatting .Replacement.Text = "hello there!" .Execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue End With objWordApp.ActiveDocument.SaveAs (App.Path & "\test1.doc") objWordApp.ActiveDocument.Close wdDoNotSaveChanges End Sub [/quote:24d004a93a] Natuurlijk moet ik het nog gaan uitbreiden, maar uiteindelijk haal ik adres gegevens uit de database die ik wegschrijf naar die standaard brief. Helemaal toppie! Bij deze bedankt ik Forza en pkouwer voor hun hulp. Zonder hun was het niet gelukt. Thank you and stay well :D Morph

Beantwoord deze vraag

Weet jij het antwoord op deze vraag? Registreer of meld je aan met je account

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.