Waarde uit cel in Excel automatisch invullen in Word tekstvak?

[snb]

Neem daarvoor eens rustig de tijd om het zelf uit te zoeken.
Zelfs VBA zit systematisch in elkaar, dus met analysen/nadenken moet je er gemakkelijk uitkomen.
Als de je code regel voor regel begrijpt kun je hem ook eenvoudig zelf aanpassen.

 

[MATA97]

Oke blijf ik doen! Mag ik u nog steeds bereiken indien ik dit niet kan vinden?

 

[snb]

Een forum kent geen sluitingstijd.

 

[MATA97]

Code in excel: Ik heb de cellen aangepast naar (4,2)? Het test document opent, maar dit is een blanco pagina...

Sub cmbRapport_Click()
If ActiveSheet.Range("B3").Value = "x" Then
With GetObject("C:\Users\Arno\Desktop\MULTI EXCEL ICT\TESTKIJKEN.docx")
.Variables("TESTDATUM") = ActiveSheet.Cells(4, 2)
.Fields.Update
.Windows(1).Visible = True
Close -1
End With
End If
End Sub

Code Word: Bij de "aaaa" begrijp ik niet helemaal wat die regel wilt zeggen? Elk testdocument dat excel opent heeft wel geen code in zijn Word staan. Moet deze in de module dan of in 'This document'?

Sub cmbrapport()

ActiveDocument.Content = String(20, vbCr)
ActiveDocument.Fields.Add ActiveDocument.Paragraphs(1).Range, 64, "TESTDATUM"
ActiveDocument.Variables("TESTDATUM") = "aaaaa"
With GetObject("C:\Users\Arno\Desktop\MULTI EXCEL ICT\TESTEXCELFILE.xlsm")
ActiveDocument.Variables("TESTDATUM") = Sheets(1).Cells("B4").Value
.Close 0
End With

ActiveDocument.Fields.Update

End Sub

 

[snb]

Ik zou zeggen: begin eerst maar eens bij het begin in VBA.
Daar zijn boeken/cursussen voor.

 

[MATA97]

Hallo,

Heel hard bdankt voor de hulp, ik heb de code kunnen aanpassen en werkt nu zoals ik het wil. Alleen nog een vraagje de "aaaaa" waar is die juist voor? Is misschien een handig trucje voor mij om nog eens te gebruiken

 

[snb]

1. gebruik code tags rondom VBA-code !!

2. de enige code die je nodig hebt in het Excel-bestand is in jouw geval:

Sub cmbRapport_Click()
  If ActiveSheet.Range("B3").Value = "x" Then
    With GetObject("C:\Users\Arno\Desktop\MULTI EXCEL ICT\TESTKIJKEN.docx")
      .Variables("TESTDATUM") = ActiveSheet.Cells(4, 2)
      .Fields.Update
      .Windows(1).Visible = True
      .Close -1
    End With
  End If
End Sub

 

[JanBG]

Je hoeft in de code van snb alleen de 3 in een 4 te veranderen:

Sub cmbRapport_Click()
  If ActiveSheet.Range("B3").Value = "x" Then
    With GetObject("I:\Prive Documenten\PRIVE\test.docx")
      .variables("testdatum") = ActiveSheet.Cells([COLOR="#FF0000"]4[/COLOR], 2)
      .Fields.Update
      .Windows(1).Visible = True
      .Close -1
    End With
  End If
End Sub

Dat krijg je als je twee schermen open hebt staan en dan niet op het laatste bericht reageert