Hi All,
Here is my code —I am converting a Notes Document into a word Doc and for some reason, the Notes Document doesn’t show into Word …Please help
Here is my code ina form Action Button called “Generate Word Doc”
Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim db As NotesDatabase
Dim uidoc As NotesUIDOcument
Dim doc As NotesDocument
Dim contdoc As NotesDocument
Dim contview As NotesView
Dim view As NotesView
Dim view1 As NotesView
Dim view2 As NotesView
Dim view3 As NotesView
Dim view4 As NotesView
Dim officeapp As Variant
Dim dateTime As New NotesDateTime( "" )
Dim strdate As String
Dim dc As NotesDocumentCollection
Dim dc1 As NotesDocumentCollection
Dim dc2 As NotesDocumentCollection
Dim dc3 As NotesDocumentCollection
Dim worddocs As Variant
Dim worddoc As Variant
Dim worddoc2 As Variant
Dim range As Variant
Dim object As Variant
Dim tableobj As Variant
Dim Application As Variant
Dim i, j ,k As Integer
Dim yearonly As Variant
Dim monthonly As Variant
Dim dayonly As Variant
Dim reqnum As String
Dim newday As String
Dim newmonth As String
Dim newyear As String
Dim padding As String
Dim filename1 As String
Dim recipient As Variant
Dim dt1 As New NotesDateTime(Now)
Dim dt2 As New NotesDateTime(Now)
Dim filename2, filename3 As String
Dim doc2 As NotesDocument
Dim doc3 As NotesDocument
Dim item2 As String
Dim s,y,z As String
Dim username As NotesName
Dim fname As NotesName
Dim dname As Notesname
Dim item1 As Variant
Dim result As Variant
Dim myrecipient As String
Dim xname As Notesname
On Error Goto ProcessError
Set db = session.CurrentDatabase
Set username = New NotesName(session.UserName)
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
If doc.ContactName(0) = "" Then
Messagebox("Please enter Contact name")
Exit Sub
Else
Set officeapp = createobject("Word.Application")
officeapp.visible = True
Set worddoc = officeapp.documents.add()
Call uidoc.SelectAll
Call uidoc.Copy
officeapp.Selection.PasteAndFormat (0)
Call uidoc.deselectAll
padding = doc.SupplierID(0)
result = Evaluate("@Platform")
filename1 =Environ$("UserProfile")
Call officeapp.ActiveDocument.Saveas(filename1 + "\My Documents\price quotes\" + padding + ".doc")
officeapp.ActiveDocument.Protect 1, , "Price Quotes"
officeapp.PrintOut OutputFileName =filename1, Background = True
Call dt1.Adjustsecond(30)
Do Until dt2.TimeOnly >= dt1.TimeOnly
Set dt2 = New NotesDateTime(Now)
Loop
officeapp.ActiveDocument.Close
officeapp.Quit
End If
ProcessError:
'WordObj.Quit
Exit Sub
When I see Word Doc , it generated the filename with blank , nothing in it
Please help what is it that I am doing wrong here.
Thanks,
ac ac