For martynjpearson:Getting a CString into a COleVariant

Hi again;

I've been working hard on my problems...if I do this to get both date and text and page number one beside the other in the footer:

                  Sections sections(oDocument.GetSections()); // document is your instance of _Document
                  Section section1(sections.Item(1));
                  HeadersFooters footers(section1.GetFooters());
                  HeaderFooter footer1(footers.Item(1));                  
                  footer1.SetLinkToPrevious(FALSE);
                  Range range(footer1.GetRange());      
                  Fields fields(range.GetFields());
                  COleVariant varType((long)wdFieldDate);//puts date at left of footer
                  COleVariant varType1((long)wdFieldPage);//puts page number at left of footer
                  COleVariant varEmpty(DISP_E_PARAMNOTFOUND, VT_ERROR);
                  COleVariant varCollapseEnd((long)wdCollapseEnd);

                  CString strPage("               Page  ");
                  COleVariant varText;
                  varText=COleVariant(strPage);

                  CString strInspecTitle("        INSPEC-Inspections de bâtiment ");
                  COleVariant varTextInspec;
                  varTextInspec=COleVariant(strInspecTitle);

                  fields.Add(range, &varType, &varEmpty, &varEmpty);
                  range.Collapse(varCollapseEnd);
                  fields.Add(range,&varText, &varEmpty, &varEmpty);
                  range.Collapse(varCollapseEnd);
                  fields.Add(range, &varType1, &varEmpty, &varEmpty);                  
                  range.Collapse(varCollapseEnd);
                  fields.Add(range, &varTextInspec, &varEmpty, &varEmpty);                  

....I get a run error in the line :

fields.Add(range,&varText, &varEmpty, &varEmpty);

...where I'm taking a CString putting it into a COleVariant, and then adding it to the display, but it crashes here...seems to have no problems doing the conversion, but gives me a "Failed" at run time when it gets to this line. Any ideas ? Am I not converting my text to display properly ? Thanks!

pigeonbrAsked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

martynjpearsonCommented:
The variant has to be one of the constants indicating the field type - unfortunately, you can't just add a text field like this.

If you want to have a field, then some text, and then some more fields, I believe you'll have to get the start range, get the fields collection, add your field(s), collapse the range, add some text, collapse the range, get the fields collection, add your field(s)... etc.

Hope this helps
Martyn
pigeonbrAuthor Commented:
martyn,
An actual code sample would really be nice here:) since I'm a beginner in automation. I've been racking my brains on this one for 2 weeks every evening...getting closer, but I need this ready for monday...thanks:)
martynjpearsonCommented:
OK, here goes...

        Documents docs(application.GetDocuments());
        _Document doc(docs.Add(&varEmpty, &varEmpty));

        Sections sections(doc.GetSections());
        Section section1(sections.Item(1));
        HeadersFooters footers(section1.GetFooters());
        HeaderFooter footer1(footers.Item(1));              
        footer1.SetLinkToPrevious(FALSE);
        Range range(footer1.GetRange());

        COleVariant varTypeDate((long)wdFieldDate);
        COleVariant varTypePage((long)wdFieldPage);
        COleVariant varCollapse((long)wdCollapseEnd);
        COleVariant varStory((long)wdStory);

        CString strPage("               Page  ");
        CString strInspecTitle("        INSPEC-Inspections de bâtiment ");

        // First off, add the date
        Fields fields(range.GetFields());
        fields.Add(range, &varTypeDate, &varEmpty, &varEmpty);

        range.Collapse(&varCollapse);
        range.SetText(strPage);

        range.Collapse(&varCollapse);
        fields=range.GetFields();
        fields.Add(range, &varTypePage, &varEmpty, &varEmpty);
       
        range.Collapse(&varCollapse);
        range.Move(&varStory, COleVariant((long)1));
        range.SetText(strInspecTitle);

I had to add the call to Range::Move(), as the range did not seem to collapse past the field that I'd just inserted. Strange!

All the best
Martyn

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
pigeonbrAuthor Commented:
martyn;
Thanks for the code sample...I really appreciate it. from this I gather I can use the same setup for a header. The only thing still illuding me is the setup for getting different headers for different parts of a documnet... we are working that subject together on another question...I will do some more work and get back to you in my other question...thanks very very much...I am getting to understand what is going on. It's not obvious when you've never done it, even from reading etc....thanks again martyn,..really appreciate it.
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
System Programming

From novice to tech pro — start learning today.