Submit LabView Cluster to Word macro

Hello,
I want to run a word macro (Test100) from LabView and therefor its neccesary to submit the following argument (NewTable) to word:
Type BookType
    KeyIn As String
    ValueIn As String
End Type
Type PSEXTable
    TKey As String
    TValue(0 To 100, 0 to 100) As String
    TColumnWidth (0 to 100) As Single
End Type
Private NewTable(0 To 50) As PSEXTable
Sub Test100(NewTable)
'Execute Macro with NewTable-Cluster
End Sub
I have tried to combine the values in LabView to a cluster-array,
changed the single items or the complete cluster to variant, but Word
was not able to read the values
Has anybody an idea how it will work?
Thanks an best regards, Helmut

Thanks for your answer,
but unfortunately I had to solve the problem in word.
I have written a very big business-application in LabView (dont ask me
why..) which controlls the complete workflow of a (also very big)
company.
I have included a tool which allows to write Word-Documents with
special keywords, and LabView (together with Word) is able to replace
or refreshe this keys with the values (or complete tables with
pictures) of some different databases.
Currently I have solved it with more-dimensional arrays, but it`s not perfect because of the memory usage.
Has anybody else an idea what to do?
Best regards, Helmut

Similar Messages

Making and running excel or word macros

i would like to make a excel or word macro and run it in labview, but
i don´t want to run without view the code directly in labview because
i will need to modify the code in order to do differents things
depending of the choose that i can make when the program it´s running
so the answer is: how can i see the macro code in labview in and excel
or word application and how to run it?
don´t answer the solution it´s easymacro.com, couse i am a student and
i need to see the diagram in order to learn
thanks!

I think ActiveX is what you need, but you'll have to elaborate a bit to modify and run macros. Look at the examples shipped with LabVIEW about controlling Excel, and see how those work. After that, you'll see that almost anything can be done using ActiveX.
Good luck

Working with Word Templates and signed Word macros storing documents in SAP

HI,
we are storing word documents in the SAP BDS. The documents contain macros. The security settings for word macros cannot be reduced in our environment.
So the documents / macros were signed. They work well. but as soon as they have been stored in the SAP BDS, we get the error message "You have modified a signed project.You do not have the correct key to sign this project. The signature will be discarded"
After that the word macros do not run.
Does anybody know this problem and the solution?
Regards
Harald

And this is related to workflow in what way?
Regards,
Martin

MS-Word Macros with paramers via OLE

Hi,
This is probably more of an MS-Word question than a Forte question,
but somebody out there might have done this before...
I have some MS Word macros (Originally WordBasic, but recently they
underwent automatic conversion to become Visual Basic) which take
parameters.
I used to call these macros from Forte using DDE.
These days, it's a lot more fashionable to use OLE automation than
DDE so I thought I'd give that a go.
But I can't.
Word.Applicaiton has a Run() method to run macros, but not macros
with parameters. Is there a neat way of getting macro parameters
across to Word?
- Ed.
Eduard E Havelaar | For the foolishness of God is wiser
Information Services Section | than man's wisdom, and the weakness
University of Canterbury | of God stronger than man's strength
Christchurch, New Zealand | - I Cor 1:25

have a look at this here article:
http://www.javaworld.com/javaworld/jw-12-2000/jw-1229-traps.html

Word macro from Forms

How can I start a macro in Word from Forms with the DDE-package? For Excel I use this command ('update' is the macro-name):
DDE.Execute(ConvID, [run "'test.xls!update"]', 10000);
Does anybody know the right approach for a Word macro?
Thanks.
null

You should use OLE2 instead of DDE.
Use this procedure if you're using Word version >= 97:
PROCEDURE RUN_MACRO(cMacroName VARCHAR2) IS
objWordApp OLE2.OBJ_TYPE := OLE2.CREATE_OBJ('WORD.APPLICATION');
objArgList OLE2.LIST_TYPE := OLE2.CREATE_ARGLIST;
BEGIN
OLE2.ADD_ARG(objArgList,cMacroName);
OLE2.INVOKE(objWordApp,'Run',objArgList);
OLE2.DESTROY_ARGLIST(objArgList);
OLE2.INVOKE(objWordApp,'QUIT');
OLE2.RELEASE_OBJ(objWordApp);
END;
you can contact me for further explanation.
Carlos

Array of strings in container won't pass to array of strings in LabVIEW cluster

I'm new to TestStand but am a CLD. I've taken a 3-day custom course that covered most of TestStand Core 1 and some of Core 2. I'm using TestStand 2013 and LabVIEW 2013.
I have a VI that needs an input of a cluster containing, in this order:
1D array of strings named Column_Labels
2D array of doubles named Results_Data
1D array of paths named Graphics_File_Paths
1D array of booleans named Pass_Fail
In TestStand I created a custom data type called Maxim_Results from the VI module tab in the sequence. When I reference a local (MINSYS_Reuslts) that is made from this Type I get the following error:
No corresponding subproperty in argument 'Locals.MINSYS_Results' of type 'Maxim_Results' for cluster element 'Maxim_Results.Column_Labels'
If, however, I reference each container element to each cluster element separatley there is no error:
Can anyone help me understand why this is happening?
Kelly Bersch
Certified LabVIEW Developer
Kudos are always welcome
Solved!
Go to Solution.

Hey Kelly,
I just set up the situation you described, and it worked properly for me. However, I did notice that in your example where you referenced each element individually, your Column_Labels element is actually called "Column_Lables". If this was also misspelled in the LabVIEW Cluster Passing setting for the custom type, it would cause the behavior you're seeing. Could this possibly be the case?
Daniel E.
TestStand Product Support Engineer
National Instruments

HT1338 ently started a new course and have to submit my work in word. What is the easiest PDF to word. or get word for mac?

Hi, I am using Pages O9 with Endnote X4, I have recently started a new course and have to submit my work in word.
What is the easiest way? PDF to word or get word for mac?

A document created in Pages must be translated during export into MS Word .doc format. As Pages is not an MS Word clone, it may allow you to create document content that upon export, is partially or wholly incompatible with Microsoft Word.
Rather than wait for this potential, unpleasant surprise, you should consider using MS Word from Office for Mac 2011. The faculty may be using MS Office on Windows, or the Mac version. Paper submissions usually are time consuming and important for the course grade. Why gamble?

Launch Microsoft Word macro with an applet

Hi,
I've got the following problem :
First, I'd like to generate a .txt file (from an applet) on the client PC with informations (name, address...)
Second, I'd like to lauch word macro from the applet and to merge informations from the .txt file with the .doc.
Is it possible to do that ?
Is it the best solution ? (the goal of the application is to generate letter to send to client)
Thank You
Sophie

You can do it via Applet Servlet Communication.

Call Word Macro by using OLE2

Hi,
I use oracle forms 6i to call a word macro by using OLE2 .
The macro called 'MyMacro' cannot be run and view although
I can run it calling from MS Word seperatly.
Code Below and No Errors running;
DECLARE
-- Declare the OLE objects
MyApplication OLE2.OBJ_TYPE;
MyDocuments OLE2.OBJ_TYPE;
MyDocument OLE2.OBJ_TYPE;
-- Declare handle to the OLE argument list
args OLE2.LIST_TYPE;
BEGIN
-- Create the Word.Application object and make Word visible
-- by setting the 'Visible' property to true
MyApplication:=OLE2.CREATE_OBJ('Word.Application');
OLE2.SET_PROPERTY(MyApplication, 'Visible', 1);
-- get a handle on Documents collection
MyDocuments:=OLE2.GET_OBJ_PROPERTY(MyApplication, 'Documents');
-- Open a document doc.doc in C:\
args:=OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args, 'C:\RAPOR\example.DOC');
Mydocument :=OLE2.INVOKE_OBJ(MyDocuments,'Open',args);
OLE2.DESTROY_ARGLIST(args);
-- Execute the macro called 'MyMacro'
args:=OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args, 'MyMacro');
OLE2.INVOKE(MyApplication,'Run',args);
OLE2.DESTROY_ARGLIST(args);
OLE2.RELEASE_OBJ(MyDocument);
OLE2.RELEASE_OBJ(MyDocuments);
OLE2.RELEASE_OBJ(MyApplication);
END;
------- code ends here-----
Thanks.

Hello. Try :
myapplication := ole2.create_obj ('Word.Application');
ole2.set_property (myapplication, 'Visible', 1);
mydocuments := ole2.get_obj_property (myapplication, 'Documents');
args := ole2.create_arglist;
ole2.add_arg (args, :aux.nome_arquivo);
mydocument := ole2.invoke_obj (mydocuments, 'Open', args);
ole2.destroy_arglist (args);
args := ole2.create_arglist;
ole2.add_arg (args, 'maximize'); -- your macro
ole2.invoke (myapplication, 'Run', args);
ole2.destroy_arglist (args);
args := ole2.create_arglist;
ole2.add_arg (args, 'organize'); -- your macro
ole2.invoke (myapplication, 'Run', args);
ole2.destroy_arglist (args);
args := ole2.create_arglist;
ole2.add_arg (args, 'print'); -- your macro
ole2.invoke (myapplication, 'Run', args);
ole2.destroy_arglist (args);
args := ole2.create_arglist;
ole2.add_arg (args, 'Fechar');
ole2.invoke (myapplication, 'Run', args);
ole2.destroy_arglist (args);
args := ole2.create_arglist;
ole2.Release_obj (mydocument);
ole2.Release_obj (mydocuments);
ole2.Release_obj (myapplication); -- if dont need close application then coment this line

How to update a single field in Word macro

Hello,
I am trying to create an AutoOpen() macro that will update the file name and path when user opens in a Word document, but I can't seem to find anything explaining how to update a single field, specifically the {FILENAME \p} field. There
are other fields in the document, so I do not want to update all the fields. Most of the links I found only explain how to update ALL fields. Can somebody please tell me how I can update only the filename and path field using an autoopen macro?
Thank you

Stefan's response is correct.
Here is a macro that should update only filename fields.
Sub FileNameFieldUpdateAllStory()
' Written by Charles Kyle Kenyon 15 November 2001 - modified for filename 10 Sept 2014
' repaired by Jezebel
' All Story Field Updater - Filename fields
Dim oField As Field
Dim oStory As Range
' On Error Resume Next
For Each oStory In ActiveDocument.StoryRanges
' This goes into headers and footers as well as the regular document
Do
For Each oField In oStory.Fields
If oField.Type = wdFieldFileName Then
oField.Update
End If
Next oField
Set oStory = oStory.NextStoryRange
Loop Until oStory Is Nothing
Next oStory
End Sub
See Installing Macros for help in using this.
Charles Kenyon Madison, WI

Creating PDF via Word Macro using Adobe Acrobat 9 Pro

I've been trying to create a macro for Word documents that will write the document out as a PDF and named as C:\temp\temp.pd. My macro to date is below, but everything I've tried so far results in a .prn file, though it is named temp.pdf. Trying to record the Macro using toolbar buttons or dropdowns yields a macro with no code. Any suggestions?
Sub WritePdfFile()
' WritePdfFile Macro
    Windows(1).Activate
    ActivePrinter = "Acrobat PDFWriter"
    Application.PrintOut FileName:="", OutputFileName:="C:\temp\temp.pdf", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        Collate:=True, Background:=True, PrintToFile:=False

I have tried using ActivePrinter = "Adobe PDF" . However, the results are the same. The file created is a prn file. I've seen some references to a MS Word 'PDF Maker' plug-in that perhaps should be used, but this does not seem necessary to me. This is because, with the same document opened in Word, I can select the 'Convert to Adobe PDF' toolbar button and this creates a temp.pdf file as I need it. The challenge seems to be to get the same behavior through the use of a Macro.

Word macros are disabled after converting to a PDF document.

We work with Word templates that contain macros.
After you convert a Word document into a PDF document, the macros of the attached template are disabled.
The conversion takes place via the Adobe Acrobat icons.
Used Products:
- Windows7
- With Office 2007 SP2
- Adobe Acrobat 9.3.3 Pro
The described problem only occurs in Word. Outlook, Excel and Power Point are not affected.
Thank you for your time and help

Hi Buster,
The error message you were receiving occurs when you try to convert a dynamic PDF file created with Adobe LiveCycle Designer. This file is usually already a fillable form. Unfortunately there is no workaround available for converting documents like this within the ExportPDF service.
I'm sorry for the inconvenience.
Please let me know if you have any questions or if I can be of further assistance.
-David

Ms word Macro to extract Great Plains Dynamics CRM 2015 Data

Hello,
I have a macro in MS Word that I am trying to use from a remote server (URL)
How do I reconfigure my datasource to utilize a url such as:
http://555.555.00.000/ABCCRM/main.aspx#960021546
Sub LoadOpportunityList()
' LoadOpportunityList Macro
    Set opportunityList = ActiveDocument.SelectContentControlsByTitle("OpportunityNumber").Item(1)
    Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    cnn.Open "Provider=SQLOLEDB;" & _
"Data Source=ABCCRM\DB1;" & _
"Initial Catalog=ABC_MSCRM;" & _
"User Id=sa;" & _
"Password=abc123"
    rst.Open "SELECT DISTINCT ws_opportunitynumber FROM Opportunity WHERE ws_opportunitynumber IS NOT NULL AND StateCode = 0 AND StepName = '2 - Estimating' Order By ws_opportunitynumber;",
cnn, adOpenStatic
    rst.MoveFirst
    With ActiveDocument.SelectContentControlsByTitle("OpportunityNumber").Item(1).DropdownListEntries
.Clear
Do
.Add rst![ws_opportunitynumber]
rst.MoveNext
Loop Until rst.EOF
    End With
    rst.Close
    cnn.Close
    Set rst = Nothing
    Set cnn = Nothing
End Sub
Sub LoadOpportunityDetails()
' LoadOpportunityDetails Macro
    Set opportunityList = ActiveDocument.SelectContentControlsByTitle("OpportunityNumber").Item(1)
    Call GetOpportunityDetails(opportunityList.Range.Text)
End Sub
Private Sub GetOpportunityDetails(OpportunityName As String)
    Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    cnn.Open "Provider=SQLOLEDB;" & _
"Data Source=Server1\DB1;" & _
"Initial Catalog=ABC_MSCRM;" & _
"User Id=sa;" & _
"Password=abc123"
     rst.Open "SELECT TOP 1 * FROM WS_PROPOSALDATA Where ws_opportunitynumber ='" & OpportunityName & "';", _
cnn, adOpenStatic
'    rst.Open "SELECT TOP 1 Address1_Street1, Address1_Street2 FROM OpportunityBase Where Name ='" & OpportunityName & "';", _
cnn, adOpenStatic
    rst.MoveFirst
    Set proposaldate = ActiveDocument.SelectContentControlsByTitle("ProposalDate").Item(1)
    Set projecttype = ActiveDocument.SelectContentControlsByTitle("ProjectType").Item(1)
    Set projectname = ActiveDocument.SelectContentControlsByTitle("ProjectName").Item(1)
    Set opportunitycontact = ActiveDocument.SelectContentControlsByTitle("OpportunityContact").Item(1)
    Set customerquoteto = ActiveDocument.SelectContentControlsByTitle("CustomerQuoteTo").Item(1)
    Set quotetoaddress1 = ActiveDocument.SelectContentControlsByTitle("QuoteToAddress1").Item(1)
    Set quotetoaddress2 = ActiveDocument.SelectContentControlsByTitle("QuoteToAddress2").Item(1)
    Set quotetocity = ActiveDocument.SelectContentControlsByTitle("QuoteToCity").Item(1)
    Set quotetostate = ActiveDocument.SelectContentControlsByTitle("QuoteToState").Item(1)
    Set quotetozip = ActiveDocument.SelectContentControlsByTitle("QuoteToZIP").Item(1)
    Set billtocustomer = ActiveDocument.SelectContentControlsByTitle("BillToCustomer").Item(1)
'   Set billtoaddress1 = ActiveDocument.SelectContentControlsByTitle("BillToAddress1").Item(1)
'   Set billtoaddress2 = ActiveDocument.SelectContentControlsByTitle("BillToAddress2").Item(1)
'   Set billtocity = ActiveDocument.SelectContentControlsByTitle("BillToCity").Item(1)
'   Set billtostate = ActiveDocument.SelectContentControlsByTitle("BillToState").Item(1)
'   Set billtozip = ActiveDocument.SelectContentControlsByTitle("BillToZIP").Item(1)
    Set locationcustomer = ActiveDocument.SelectContentControlsByTitle("LocationCustomer").Item(1)
    Set locationaddress1 = ActiveDocument.SelectContentControlsByTitle("LocationAddress1").Item(1)
    Set locationaddress2 = ActiveDocument.SelectContentControlsByTitle("LocationAddress2").Item(1)
    Set locationcity = ActiveDocument.SelectContentControlsByTitle("LocationCity").Item(1)
    Set locationstate = ActiveDocument.SelectContentControlsByTitle("LocationState").Item(1)
   Set locationzip = ActiveDocument.SelectContentControlsByTitle("LocationZIP").Item(1)
    Set contactname = ActiveDocument.SelectContentControlsByTitle("ContactName").Item(1)
    Set contactemail = ActiveDocument.SelectContentControlsByTitle("ContactEmail").Item(1)
    Set contactphone = ActiveDocument.SelectContentControlsByTitle("ContactPhone").Item(1)
    Set servicemgrname = ActiveDocument.SelectContentControlsByTitle("ServiceMgrName").Item(1)
    Set servicemgremail = ActiveDocument.SelectContentControlsByTitle("ServiceMgrEmail").Item(1)
    Set servicemgrphone = ActiveDocument.SelectContentControlsByTitle("ServiceMgrPhone").Item(1)
    Set customerservicename = ActiveDocument.SelectContentControlsByTitle("CustomerServiceName").Item(1)
    Set customerserviceemail = ActiveDocument.SelectContentControlsByTitle("CustomerServiceEmail").Item(1)
    Set customerservicephone = ActiveDocument.SelectContentControlsByTitle("CustomerServicePhone").Item(1)
    Set technicianname = ActiveDocument.SelectContentControlsByTitle("TechnicianName").Item(1)
    Set technicianemail = ActiveDocument.SelectContentControlsByTitle("TechnicianEmail").Item(1)
    Set technicianphone = ActiveDocument.SelectContentControlsByTitle("TechnicianPhone").Item(1)
    Set Location = ActiveDocument.SelectContentControlsByTitle("Location").Item(1)
    Set ProposalNumber = ActiveDocument.SelectContentControlsByTitle("ProposalNumber").Item(1)
    proposaldate.Range.Text = rst![ws_proposaldate]
    projecttype.Range.Text = rst![ws_bidtype]
    projectname.Range.Text = rst![Name]
    opportunitycontact.Range.Text = rst![ws_endcustomercontactidname]
    customerquoteto.Range.Text = rst![QuotedToName]
    quotetoaddress1.Range.Text = rst![QuotedToaddress1_line1]
    quotetoaddress2.Range.Text = rst![QuotedToaddress1_line2]
    quotetocity.Range.Text = rst![QuotedToaddress1_city]
    quotetostate.Range.Text = rst![QuotedToaddress1_stateorprovince]
    quotetozip.Range.Text = rst![QuotedToaddress1_postalcode]
    billtocustomer.Range.Text = rst![BillToName]
'   billtoaddress1.Range.Text = rst![BillToaddress1_line1]
'   billtoaddress2.Range.Text = rst![BillToaddress1_line2]
'   billtocity.Range.Text = rst![BillToaddress1_city]
'   billtostate.Range.Text = rst![BillToaddress1_stateorprovince]
'   billtozip.Range.Text = rst![BillToaddress1_postalcode]
    locationcustomer.Range.Text = rst![Location]
    locationaddress1.Range.Text = rst![ws_Address1]
    locationaddress2.Range.Text = rst![ws_Address2]
    locationcity.Range.Text = rst![ws_Addresscity]
    locationstate.Range.Text = rst![ws_Addressstate]
    locationzip.Range.Text = rst![ws_AddressZip]
    contactname.Range.Text = rst![MaintenanceSalesRepfullname]
    contactemail.Range.Text = rst![MaintenanceSalesRepemailaddress1]
    contactphone.Range.Text = rst![MaintenanceSalesReptelephone1]
    servicemgrname.Range.Text = rst![AreaServiceManagerfullname]
    servicemgremail.Range.Text = rst![AreaServiceManageremailaddress1]
    servicemgrphone.Range.Text = rst![AreaServiceManagertelephone1]
    customerservicename.Range.Text = rst![CustomerServiceRepfullname]
    customerserviceemail.Range.Text = rst![CustomerServiceRepemailaddress1]
    customerservicephone.Range.Text = rst![CustomerServiceReptelephone1]
    technicianname.Range.Text = rst![Technicianfullname]
    technicianemail.Range.Text = rst![Technicianemailaddress1]
    technicianphone.Range.Text = rst![Techniciantelephone1]
    Location.Range.Text = rst![Location]
    ProposalNumber.Range.Text = rst![ProposalNumber]
'    Set street1 = ActiveDocument.SelectContentControlsByTitle("Address1").Item(1)
'    Set street2 = ActiveDocument.SelectContentControlsByTitle("Address2").Item(1)
'    street1.Range.Text = rst![Address1_Street1]
'    street2.Range.Text = rst![Address1_Street2]
    rst.Close
    cnn.Close
    Set rst = Nothing
    Set cnn = Nothing
End Sub
John

Hi,
    Use the config file in your project as explained below.
https://msdn.microsoft.com/en-us/library/16e74h9c.aspx?f=255&MSPPError=-2147217396
Hope this helps.
Minal Dahiya
blog : http://minaldahiya.blogspot.com.au/
If this post answers your question, please click "Mark As Answer" on the post and "Vote as Helpful"

Re: MS-Word Macros with paramers via OLE

I did this using an intermediette file. I wrote into a file from Forte, and
used the Macro to read the file and replace the Variables in my Word Document
using these values in the file.
Hope this helps.
Venkat Kodumudi
Price Waterhouse LLP
Internet: [email protected]
Internet2: [email protected]

Hi Adriane,
Please search this forum using keywords VBA and Tutorial. You don't have to work through the entire tutorial, but should at least have a look at the section explaining the Object Browser. The Object Browser is the easiest way for you to examine the object model for applications that support OLE automation. The knowledge gained by examining an app's object model is not documentation, exactly, but often provides the important information (syntax, argument values) that a developer wants to know.
If VBA Help (an Office feature) is installed, pressing <F1> while an element is selected within the Object Browser, will take you to formal documentation for the object model of most Office apps.
I do recommend taking the time to work through the full tutorial, as I have written it, in hopes that developers will see the similarity between VBA code and equivalent OLE2 code, and how much easier it is to hammer out VBA code (thanks to code completion.) As I mention in the tutorial, I do all prototyping and debugging in VBA. Once the VBA code runs satisfactorily, I port it to OLE2. It sounds like extra work, but once you've seen how quickly you can code and debug VBA code, it doesn't make sense to torture yourself trying to do all this on the OLE2 side.
Hope this helps,
Eric Adamson
Lansing, Michigan

Word macro ConvertToPDF absent in Adobe 9? (redirected from windows forum)

Dear all,
In VBA I make use of the macro
Application.Run MacroName:="ConvertToPDF"
This worked fine in previous versions of Acrobat. Since an upgrade to Adobe 9 The code fails on this line.
I have temporarily solved this by implementing the printout function in Word to the PDF printer. This has a drawback however: the printer remembers the location where it last printed. This is impractical in our environment.
Which macro has come in the place of ConvertToPDF? Someone in the Windows forum said it is undocumented and unsupported but it is mighty practical. There are buttons in Word that can be clicked in order to convert to pdf - however they don't do the extra tasks that we want to have done before the conversion.
Cheers,
Birgit

function(){return A.apply(null,[this].concat($A(arguments)))}
In VBA I make use of the macro
Application.Run MacroName:="ConvertToPDF"
This worked fine in previous versions of Acrobat. Since an upgrade to Adobe 9 The code fails on this line.
It is your risk when you use a unsupported, undocumented macro.

Submit LabView Cluster to Word macro

Similar Messages

Maybe you are looking for