Code Samples - Neevia docCreator

Example 2: Convert a MS Word document into PDF - ASP Copy 

Configure MS Word like recommended below:
  • type dcomcnfg in the command prompt and press Enter;
  • find and select Microsoft Word Document in the Applications list, then press the Properties button;
  • Note: If you have Windows 2003\2008 then type dcomcnfg in the command prompt, expand the Component Services group, expand the Computers group, expand the My Computer group, expand the DCOM Config group, find and select the Microsoft Word Document->right mouse click->Properties.
  • click the Identity tab. Check the "This user" checkbox, press Browse and specify the Administrator account;
  • enter and re-enter the Administrator password;
  • click the Security tab. Check the "Use custom access permissions" checkbox, press Edit and add the ASPNET, IUSR_ and IWAM_ user accounts;
  • Note: If you have Windows 2003\2008 also add the "NETWORK SERVICE" user account;
  • check the "Use custom launch permissions" checkbox, press Edit and add the ASPNET, IUSR_ and IWAM_ user accounts;
  • Note: If you have Windows 2003\2008 also add the "NETWORK SERVICE" user account;
  • reboot the computer;
  •  1
     2
     3
     4
     5
     6
     7
     8
     9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
       <%
          Dim docToConvert : docToConvert="c:\users\public\test.doc"
    
          Dim DC : Set DC = Server.CreateObject("Neevia.docCreator")
    
          Dim tempFile : tempFile= DC.getParameter("TempDir") & DC.GUID & ".ps"
    
          DC.setParameter "DocumentOutputFormat", "PDF"
          DC.setParameter "DocumentOutputName", "testDOC_ASP"
          DC.setParameter "DocumentOutputFolder", "c:\users\public\"
    
          Dim MSWord : Set MSWord = Server.CreateObject("Word.Application")
          MSWord.DisplayAlerts = False
          On Error Resume Next
    
          Dim NewDoc
          Set NewDoc = MSWord.Documents.Open(docToConvert, False, True)
          If Err<>0 Then
            Set MSWord = Nothing
          End If
        
          Dim MSWordDialog : Set MSWordDialog = MSWord.Dialogs(97)
          MSWordDialog.Printer = "Neevia docCreator"
          MSWordDialog.DoNotSetAsSysDefault = 1
          MSWordDialog.Execute
    
          NewDoc.PrintOut False,,,tempFile,,,,,,,true
    
          NewDoc.Close False
          MSWord.Quit False
          Set MSWord = Nothing
    
          DC.setInputDocument tempFile 
    
          Dim RVal : RVal = DC.create ' Create output document
          DC.FileDelete tempFile
    
          Set DC = Nothing
    
          If (RVal <> 0) Then 
            Response.Write "Error while creating document!!!"
          Else
            Response.Write "Done!!!"
          End If
       %>