Jump to content

Search the Community

Showing results for tags 'msword'.

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • uniGUI Public
    • Announcements
    • General
    • Feature Requests
    • Installation
    • Deployment
    • Other Platforms
  • Licensing
    • Licensing
    • Ordering uniGUI
  • Bug Reports
    • Active Reports
    • Closed Reports
    • Old Bug Reports
  • uniGUI Development
    • General Development
    • uniGUI Releases & Roadmaps
    • Utilities
  • Mobile Platform
    • uniGUI Mobile
    • Mobile Browsers
  • Users Area
    • Sample Projects
    • Components and Code Samples
    • Third Party Components
  • Non-English
    • Non-English
  • Miscellaneous
    • Hosting
    • Server Security
    • Jobs

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


AIM


MSN


Website URL


ICQ


Yahoo


Jabber


Skype


Location


Interests

Found 1 result

  1. Hi there, Could anyone help me with exporting data to MSWord? I have a procedure that works on desktop but doesn't work when on ISAPI. It works on unigui exe too. CoInitialize(NULL); try { Variant vMSWord; Variant vWDocuments, vWDocument; vMSWord = Variant::CreateObject("Word.Application"); String vNomeArq = ""; try { vMSWord.OlePropertySet("Visible", true); vNomeArq = UniServerInstance()->StartPath + "modelo.doc"; vWDocuments = vMSWord.OlePropertyGet("Documents"); OleVariant vFileName = vNomeArq; Variant vLink = Unassigned; Variant vReadOnly = false; Variant vFormat = Unassigned; vWDocument = vWDocuments.OleFunction("Open", vFileName, vLink, vReadOnly, vFormat); OleVariant vTxtOld = "<NOME>"; OleVariant vTxtNew = "FULANO DA SILVA"; vMSWord.OlePropertyGet("Selection").OleFunction("HomeKey", 6); vMSWord.OlePropertyGet("Selection").OlePropertyGet("Find").OleFunction("Execute", vTxtOld, false, true, false, false, false, true, false, false, vTxtNew, 2, false, false, false, false); vWDocument.OleProcedure("Save"); vWDocuments.OleFunction("Close"); vMSWord.OleFunction("Quit"); } catch (Exception &erro) { ShowMessage("Erro: " + vNomeArq + " - " + erro.Message); } } __finally { CoUninitialize; }
×
×
  • Create New...