Converting VB.NET code to VBScript -

-

I have this snippet of VB.NET code that I want to convert to VBScript. It basically starts Microsoft Word, displays the Open Dialog and the mail merged into the selected document. Any help would be highly appreciated. 

  dim = o.missing object = System.Reflection.Missing.Value dim oEndOfDoc object = "\\ endofdoc" object as in the form of dim oFalse = false 'Start Word and create a new document Word._Application dim oDoc Word._Document oWord = new Word.Application () oWord.Visible = true as "show box Word.Dialog = oWord.Dialogs (Word.WdWordDialog.wdDialogFileOpen) dlg as dim dlgType system As the dim, oWord dim. Type = GetType (Word.Dialog) 'dialog set property box name dlgType.InvokeMember ( "name" is not Reflection.BindingFlags.SetProperty or Reflection.BindingFlags.Public or Reflection.BindingFlags.Instance, some, dlg, New Object () {"C: \ Documents and Settings \ My Documents \ MailMerge \"}, System.Globalization.CultureInfo.InvariantCulture) Dim TimeOut Object = 0 Dim a as Int16 = dlg.Show (timeOut) 'if No documents have been opened. If (a = -1) then oDoc = oWord.ActiveDocument oDoc.Select () oDoc.MailMerge.OpenDataSource ( "C: \\ usr \\ mergequery.txt", oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing , oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing) oDoc.MailMerge.Destination = Word.WdMailMergeDestination.wdSendToNewDocument oDoc.MailMerge.Execute (oFalse) 'Close the original document. ODoc.Saved = true oDoc Close (oFalse, omissing, oMissing) end if

Here you can go. 

  option clear wdDialogFileOpen, wdSendToNewDocument wdDialogFileOpen = 80 wdSendToNewDocument = 0 Smooth OndOffDock oEndOfDoc = "\\ endofdoc" Smooth OWD, oDoc set OWORD = CreateObject ("Word.Application") OWord.Visible = True Dim dlg set dlg = oWord.Dialogs (wdDialogFileOpen) dlg.Name = "C: \ documents and Settings \ My documents \ MailMerge \" Dim AA = dlg.Show (0) 'If a document is opened. If (a = -1) oDoc resets = oWord.ActiveDocument oDoc.Select oDoc.MailMerge.OpenDataSource "C: \ usr \ mergequery.txt" oDoc.MailMerge.Destination = wdSendToNewDocument oDoc.MailMerge.Execute false "Close the original document . ODoc.Saved = true oDoc Close false end if

Comments

Post a Comment

Popular posts from this blog

c++ - Linux and clipboard -

-
After selecting the copies of the buffer in Linux, after the text, we can click and paste the button between the mouse. I think there is a special buffer for this, I want to use it. Programming Language: C ++ Your Library: Qt Thanks. There is just one more correct answer than Paul Dixon, which answers your needs: / P > QClipboard * clipboard = QApplication :: clipboard (); CastString Selected Text = Clipboard-> Text (QClipboard :: Selection);
Read more

What is expire header and how to achive them in ASP.NET and PHP? -

-
I have examined the performance statistics of my website today. I have received a warning (or error may occur) that is given below Add Terminal Headers Here are 15 static components without a 15-futures end date * (no end) Http://www.example.com/video/css/global.css * (no time limit) http://www.example.com/video/js/global.js * (no expiration ) Http: //www.example.com/video/images/main-bg.png what it means and how to achieve it both in PHP and ASP.Net. I am on a shared hosting server, so please tell me some ways to use the code, because I can not make any modifications at the end of the server. If I expire the header, then there is no chance that if I make changes to the CSS, then the user will not be able to remove them immediately because CSS and other files have a fixed time limit (1 month, week ) Are cached for. Is Is there any harm to using PHP? $ time = time () + 3 * 24 * 60 * 60; // 3 day headings ('End:'. GMDAT ('D, D MYH: i: s \ g \ m \ t',
Read more

sql server - How can I determine which of my SQL 2005 statistics are unused? -

-
After a few years, one of my biggest databases has deposited 73 figures out of its largest tables. With Indexes, I can run many types of reports and queries, how often / heavily specific indexes are used. What is an equivalent for data? We are running SQL 2005. To make statistics automatically managed and honest, I would like to "update statistics", "create statistics" and There is no information about any management except "drop statistics" orders. In theory, UPDATE should handle the addition and removal of statistical data. In addition, I've never heard about the amount of storage or storage taking in large amounts, so I'm not sure whether there is any reason for the alarm or not. If you are seeing a potential problem, then I would suggest running an update before, if it does not clean it, it is leaving and then it appears to be safe operation (because it is the only query optimizer Is for). I will not leave "left" in the
Read more