gcjvanbeek
Gebruiker
- Lid geworden
- 27 nov 2006
- Berichten
- 164
Vanuit Excel open ik een Worddoc en vul die met gegevens. Dat werkt goed, maar Word blijft als klein icoontje onder in de balk staan. Hoe kan ik die met vb naar voren halen?
"Dé grootste en gratis computerhelpdesk van Nederland"
Word zichtbaar maken vba
- Onderwerp starter gcjvanbeek
- Startdatum
- Status
AccessGuru
Terugkerende gebruiker
- Lid geworden
- 3 nov 2021
- Berichten
- 1.067
Lijkt mij wel zo handig om dan je code ook te laten zien. Er vanuit gaande dat je een object hebt gemaakt voor je Word sessie, dan zou je die met objWord.Visible = True zichtbaar moeten kunnen krijgen.
gcjvanbeek
Gebruiker
- Lid geworden
- 27 nov 2006
- Berichten
- 164
Werkt nog niet
Hierbij stuur ik de gerbruikte code.
Hierbij stuur ik de gerbruikte code.
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim strKoppel As String, strNaam As String, strAdres As String, StrPC As String, strWoonplaats As String, Ondergetekende As String, Kol As Integer, Rij As Integer
If (Target.Column = 6) And (Target.Row < 300) Then
Kol = Target.Column
Rij = Target.Row
strNaam = Worksheets("Sheet1").Cells(Rij, Kol - 5)
strAdres = Worksheets("Sheet1").Cells(Rij, Kol - 4)
StrPC = Worksheets("Sheet1").Cells(Rij, Kol - 3)
strWoonplaats = Worksheets("Sheet1").Cells(Rij, Kol - 2)
strOndergetekende = "C. de Moor"
strGeboortedatum = Worksheets("Sheet1").Cells(Rij, Kol - 1)
''' dit is de plaats waar ik het dot bestand bewaard heb.
strDoc = "C:\Users\Vislust\Vislustsjabloon.dotx"
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
objWord.Documents.Open strDoc
Set objDoc = objWord.ActiveDocument
'MsgBox ActiveDocument.Name
objDoc.Fields(1).Result.Text = ""
objDoc.Fields(2).Result.Text = ""
objDoc.Fields(3).Result.Text = ""
objDoc.Fields(4).Result.Text = ""
objDoc.Fields(5).Result.Text = ""
objDoc.Fields(1).Result.Text = strNaam
objDoc.Fields(2).Result.Text = strAdres
objDoc.Fields(3).Result.Text = StrPC
objDoc.Fields(4).Result.Text = strWoonplaats
objDoc.Fields(6).Result.Text = strOndergetekende
objDoc.Fields(5).Result.Text = strGeboortedatum
objWord.Visible = True
objWord.ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitFullPage
'' objDoct.Fields.Update
'' .SaveAs "E:\nieuwe brief 001.doc"
'' objDoc.Closegcjvanbeek
Gebruiker
- Lid geworden
- 27 nov 2006
- Berichten
- 164
Bedankt, Word staat nu in het scherm, maar nog wel achter Excell.
edmoor
Inventaris
- Lid geworden
- 8 sep 2000
- Berichten
- 39.748
- Besturingssysteem
- Windows XP, 7, 10, 11-23H2
- Office versie
- Office 365
Met dit krijg ik het Word document op de voorgrond:
Code:
strDoc = "C:\Users\Vislust\Vislustsjabloon.dotx"
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
objWord.Activate
objWord.Documents.Open strDoc- Status
