MsgBox 'The specified file '' & sDocName & '' could not be found.', _ Set oDoc = Nothing Set oApp = Nothing Exit Sub
ODoc.FormFields( 'CheckboxName').CheckBox.Value = True 'Checkbox ODoc.FormFields( 'TextboxName').Result = 'NewValue' 'Textbox SDocName = 'YourWordDocToOpenFullPathAndExtension' Set oDoc = oApp.Documents. 'Requires a reference to the Word object library Dim oApp As Object 'Word.Application Dim oDoc As Object 'Word.Document Dim sDocName As String On Error Resume Next Set oApp = GetObject(, 'Word.Application') 'See if word is already running If Err.Number 0 Then 'Word isn't running so start it Set oApp = CreateObject( 'Word.Application') It may not be sold/resold or reposted on other sites (links ' back to this site are allowed). ' Website : ' Purpose : Update/Fill-in a Word document's form fields ' Copyright : The following may be altered and reused as you wish so long as the ' copyright notice is left unchanged (including Author, Website and ' Copyright).
'- ' Procedure : UpdateDoc ' Author : CARDA Consultants Inc.
