centriclkp.blogg.se

If Err.Number 0 Then 'Word isn't running so start it

Set oApp = GetObject(, "Word.Application") 'See if word is already running 'Requires a reference to the Word object libraryĭim sDocName As String On Error Resume Next

It may not be sold/resold or reposted on other sites (links ' copyright notice is left unchanged (including Author, Website and ' Copyright : The following may be altered and reused as you wish so long as the ' Purpose : Update/Fill-in a Word document's form fields VbCritical, "An Error has Occurred!" End If Resume Error_Handler_Exit "Error Description: " & Err.Description, _ "Error Number: " & Err.Number & vbCrLf & _ MsgBox "The following error has occurred." & vbCrLf & vbCrLf & _ 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.