ZKHADI
Member
- Local time
- Today, 18:40
- Joined
- Apr 5, 2021
- Messages
- 118
Function fillwordform()
Dim appword As word.Application
Dim doc As word.Document
Dim Path As String
On Error Resume Next
Error.Clear Path = "D:\College Database\Documents\CharacterCertificate.docx"
Set appWord = GetObject("word.application")
If Err.Number <> 0 Then
Set appWord = New word.Application
appWord.Visible = True
End If
Set doc = appWord.Documents.Open(Path, True)
With doc
.FormFields("StudentName").Result = Me.Student_name
'.FormFields("ClassNo").Result = Me
.FormFields("RegistrationNo").Result = Me.Board_University_Registration_No
.FormFields("Faculty").Result = Me.CurrentFacultySemester
.FormFields("Status").Result = Me.StudentStatus
End With
appWord.Visible = True
appWord.Activate
Set doc = Nothing
Set appWord = Nothing
End Function
Dim appword As word.Application
Dim doc As word.Document
Dim appword As object
Dim doc As object
now this error cameCode:Dim appword As object Dim doc As object
how?you add Reference to Microsoft Word XX.XX Object Library in VBA.
you add Reference to Microsoft Word XX.XX Object Library in VBA.
Function fillwordform()
Dim appword As word.Application
Dim doc As word.Document
Dim Path As String
'On Error Resume Next
Error.Clear
Path = "D:\College Database\Documents\CharacterCertificate.docx"
Set appWord = GetObject("word.application")
If Err.Number <> 0 Then
Set appWord = New word.Application
'appWord.Visible = True
End If
Set doc = appWord.Documents.Open(Path, True)
With doc
.FormFields("StudentName").Result = Me.Student_name
'.FormFields("ClassNo").Result = Me
.FormFields("RegistrationNo").Result = Me.Board_University_Registration_No
.FormFields("Faculty").Result = Me.CurrentFacultySemester
.FormFields("Status").Result = Me.StudentStatus
End With
appWord.Visible = True
appWord.Activate
Set doc = Nothing
Set appWord = Nothing
End Function
it does not open, because you have Error there.
try this code:
Code:Function fillwordform() Dim appword As word.Application Dim doc As word.Document Dim Path As String 'On Error Resume Next Error.Clear Path = "D:\College Database\Documents\CharacterCertificate.docx" Set appWord = GetObject("word.application") If Err.Number <> 0 Then Set appWord = New word.Application 'appWord.Visible = True End If Set doc = appWord.Documents.Open(Path, True) With doc .FormFields("StudentName").Result = Me.Student_name '.FormFields("ClassNo").Result = Me .FormFields("RegistrationNo").Result = Me.Board_University_Registration_No .FormFields("Faculty").Result = Me.CurrentFacultySemester .FormFields("Status").Result = Me.StudentStatus End With appWord.Visible = True appWord.Activate Set doc = Nothing Set appWord = Nothing End Function
Good morning.google and use Bookmark in Word.
...
...
...
'Set appword = GetObject("word.application")
'If Err.Number <> 0 Then
Set appword = CreateObject("Word.Application")
appword.Visible = True
'End If
...
...
...
'Set doc = Nothing
'Set appword = Nothing
no wonder they run out of tissue, you must have mistaken them for pizzas?(Friday night drinks)