Word

[DutchOirs]

Ok het Word Bestand.

Wordt vanuit Excel doorgegeven:

      With GetObject(WrdBestand) 
        .variables("MaakDatum") = ActiveWorkbook.Worksheets("Control").Range("C18") ' MaakDatum 
      -
      -
     .Fields.Update
 '   .[B]FormFields("CheckBoxSP").CheckBox.Value = True[/B]
 '  [B] .Bookmarks("CheckBoxSP").Value = True              [/B]' https://www.helpmij.nl/forum/showthread.php/455509-Word-aansturen-via-Excel

Zou Formfields moeten zijn, maar helaas werkt niet

 

[HSV]

Zet onderstaande code in het Word-bestand.

Sub hsv(chb As Long)
 With ActiveDocument.InlineShapes(chb).OLEFormat.Object
   .Value = Not .Value
 End With
End Sub

En onderstaande codes in een module van Excel.

Sub checkSP()
   With GetObject(, "Word.Application")
     .activedocument.hsv 1
     .Application.Visible = True
     .ActiveWindow.WindowState = 1
    End With
End Sub


Sub checkJP()
With GetObject(, "Word.Application")
    .activedocument.hsv 2
    .Application.Visible = True
    .ActiveWindow.WindowState = 1
   End With
End Sub

Vreemd is dat af en toe Word wel naar voren komt maar de meeste keren niet.

 

[snb]

Ik heb jouw Wordbestand opgeslagen als "G:\OF\__basis.docx"

Nu gebruik ik in Excel:

Sub M_snb()
   With GetObject("G:\OF\__basis.docx")
      .Windows(1).Visible = True
      With .Shapes(11)
         .Visible = Not .Visible
      End With
    End With
End Sub

 

[DutchOirs]

Goedemorgen HSV & snb,

Zie dat jullie je aandacht er ook weer over hebben laten gaan.

Vanuit Excel, opent een Word Bestand (Basis Updating #), zet er automatisch nieuwe gegevens in en slaat deze vervolgens op als Updating #(weeknr) en sluit Word.

Alles werkt perfect, Word komt naar voren en wordt actief. Handmatig nog 2 dingen aanpassen en vervolgens vanuit Excel, Word sluiten.

Wilde nu dus, als er een SP of JP winnaar is een autovorm naar voren laten komen in het Word document.

Hoe, daar heeft snb de oplossing voor gegeven, alleen het aansturen lukte niet en zou via bv. een CheckBox moeten met een change event.
Tot op heden lukt het (ook) niet om deze CheckBox aan te sturen vanuit Excel.

Volgende stap: aansturen van een CheckBox in Word, zie Word_CheckBox #1

 

[HSV]

Lees mijn bericht nog eens.

 

[DutchOirs]

ff voor de goede orde, gebruik EXcel / Word 2003

Heb hem vanuit Word. zie vb-tje

Maar wat als je bv. 2 checkboxen hebt? ja heb hem ook.

Nu nog vanuit Excel.

pff komen er wel dankzij jullie

 

[HSV]

Bij mij werkt het aansturen van de checkboxen in Word vanuit Excel zoals omschreven.

 

[DutchOirs]

Ok, heb in Excel het volgende neergezet

  Dim chb As Long
  chb = 1:
  With ActiveDocument.InlineShapes(chb).OLEFormat.Object
    .Value = True
  End With

  chb = 2
  With ActiveDocument.InlineShapes(chb).OLEFormat.Object
    .Value = False
  End With

En het werkt, maar niet altijd soms foutmelding: Fout 462 tijdens uitvoering. De externe servercomputer bestaat niet of is niet beschikbaar.
Begreep uit je eerdere melding dat dit

Sub checkSP()
   With GetObject(, "Word.Application")
     .activedocument.hsv 1
     .Application.Visible = True
     .ActiveWindow.WindowState = 1
    End With
End Sub


Sub checkJP()
With GetObject(, "Word.Application")
    .activedocument.hsv 2
    .Application.Visible = True
    .ActiveWindow.WindowState = 1
   End With
End Sub

In Excel moet, maar
a: is één document en is al reeds active
b: document is al zichtbaar
c: ActiveWindow.WindowState = 1 Deze snap ik niet helemaal.

 

[HSV]

Dat krijg je als je je eigen gang gaat.
Succes.

 

[DutchOirs]

L.S.

Tot de volgende oplossing gekomen.

Heb in dat een Word document een knopje gemaakt, waaronder de celkleur vernaderd en/of een TextBox aanstuurt.

Zie vb-tje.

Gr. Dutch