Acquerir un Style de Word

Version imprimable

Voir 40 message(s) de cette discussion en une page

13/10/2010, 21h47
JeanNoel53

Acquerir un Style de Word
Bonjour:D

Je cherche a récupérer les noms de style du paragraphe courant en C++.
J'ai initialisé le paragraphe courant et les variables qui y sont attachées par les instructions:
Code:

1 2 3 4 m_pCurrentRange->get_Case(& BlocCase); m_pFormat = m_pCurrentParagraph->get_Format(); tagVARIANT Style = m_pCurrentParagraph->get_Style();
mais les résultats sont constants, quelque soit le style du paragraphe.
Quelqu'un pourrait il m'aider?:ccool:
15/10/2010, 09h14
3DArchi

Salut,
Etant donné que ça a assez peu à voir avec le C++ en tant que tel, il nous faudrait un peu plus d'info : utilises-tu un framework MFC ? Qt ? wxWidgets ? ou directement l'API win32
15/10/2010, 11h16
JeanNoel53

J'utilise une api Win32

Bonjour,
Et merci pour votre réponse
L'Interface est définie par les fichiers word_2K.h office_2k.h et suivants.
Merci de suivre, c'est :ccool:
15/10/2010, 18h26
3DArchi

Je me trompe ou c'est du C++ Builder ?
16/10/2010, 09h37
JeanNoel53

Tu ne te trompe pas

Cette partie est sous C++ builder 6
16/10/2010, 14h48
blondelle
Salut JeanNoel53
Je n'utilise pas word_2K mais Ole, la fonction VB pour recuperer le Style d'une selection est quelque chose comme ceci
Code:

1 2 a = Selection.Paragraphs(1).Style
18/10/2010, 12h34
JeanNoel53

Selection mal reconnu par le compilateur

Bonjour, et merci pour votre élément de réponse:D
La piste est prometteuse. Cependant l'instruction Selection est jugé par le compilateur utilisation impropre du typedef 'selection'
Pouvez vous m'aider, ce serait :ccool:

L'exemple donne etait en visual basic word, pour OleWord cela s"ecrit comme ceci

Code:

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
46
47
48
49
50
51
 
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include <utilcls.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
Variant vMSWord, vWDocuments, vWDocument;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
try
        {
//    vMSWord = Variant::GetActiveObject("Word.Application");
    vMSWord = Variant::CreateObject("Word.Application");
        }
catch(...)
        {
    vMSWord = Variant::CreateObject("Word.Application");
        }
vMSWord.OlePropertySet("Visible", true);
//vFileName = "c:\\Debut de lettre.doc";
//vWDocuments = vMSWord.OlePropertyGet("Documents");
//vWDocument = vWDocuments.OleFunction("Open", vFileName);
vWDocuments = vMSWord.OlePropertyGet("Documents");
vWDocument = vWDocuments.OleFunction("Add");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
// vMSWord represente le document traite
// OleFunction("Item", 1) represente le paragraphe 1
String a = vMSWord.OlePropertyGet("Selection").OlePropertyGet("Paragraphs").OleFunction("Item", 1).OlePropertyGet("Style");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
    vWDocuments.OleFunction("Close", NULL, NULL);
    vMSWord.OleFunction("Quit");
    // on libere les Variants
    vMSWord = Unassigned;
}
//---------------------------------------------------------------------------

Il doit certainement etre adapte a " word_2K "

Essai d'adaptation

Bonjour,:D

D'abord je souhaite vous remercier pour l'effort que vous avez entrepris. C'est avec beaucoup d'intérêt que j'ai pris en compte vos suggestions.
J'ai actuellement une difficulté à intégrer votre approche et celle que j'ai dans mon programme. Toute la difficulté est de travailler avec les deux interfaces sur le même document. La difficulté se manifeste de façon claire dans les quelques lignes de code de l'open:
Code:

1 2 3 4 5 6 vMSWord = Variant::CreateObject("Word.Application"); vWDocuments = vMSWord.OlePropertyGet( vFileName); m_pWordDocument = new WORDVER::TWordDocument( NULL); m_pWordDocument->InitServerData(); pWordDocumentPtr = m_pWordApplication->Documents->Open( vFileName);
Le compilateur aime bien ce code, Il n'accepte pas de wstring en entrée de OlePropertyGet mais à l'exécution, il plante sur le get de la fonction.
Je ne sais pas comment unifier les deux approches?:roll:

19/10/2010, 18h24
blondelle

Je ne connais pas et n'utilise pas ces composants, voici un lien qui j'espere t'aidera

Citation:

http://www.baghli.com/bcb_ole.php

Toujours à la recherche de la bonne solution

Bonjour,:D

J'ai toujours votre lien dans mon navigateur
Il m'a convaincu que WordApplication et OLE étaient équivalent
dans Word_2k.h j'ai trouvé des éléments qui m'attirent

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
public:
  virtual HRESULT STDMETHODCALLTYPE get_Application(Word_2k::WordApplication** prop/*[out,retval]*/) = 0; // [1000]
  virtual HRESULT STDMETHODCALLTYPE get_Creator(long* prop/*[out,retval]*/) = 0; // [1001]
  virtual HRESULT STDMETHODCALLTYPE get_Parent(LPDISPATCH* prop/*[out,retval]*/) = 0; // [1002]
  virtual HRESULT STDMETHODCALLTYPE get_Index(long* prop/*[out,retval]*/) = 0; // [1]
  virtual HRESULT STDMETHODCALLTYPE get_Name(BSTR* prop/*[out,retval]*/) = 0; // [2]
  virtual HRESULT STDMETHODCALLTYPE set_Name(BSTR prop/*[in]*/) = 0; // [2]
  virtual HRESULT STDMETHODCALLTYPE get_StyleName(BSTR* prop/*[out,retval]*/) = 0; // [3]
  virtual HRESULT STDMETHODCALLTYPE get_Value(BSTR* prop/*[out,retval]*/) = 0; // [0]
  virtual HRESULT STDMETHODCALLTYPE set_Value(BSTR prop/*[in]*/) = 0; // [0]
  virtual HRESULT STDMETHODCALLTYPE Delete(void) = 0; // [101]
  virtual HRESULT STDMETHODCALLTYPE Insert(Word_2k::Range* Where/*[in]*/, 
                                           VARIANT* RichText/*[in,opt]*/, 
                                           Word_2k::Range** prop/*[out,retval]*/) = 0; // [102]

en en particulier la méthode getStyleName() qui correspond précisément à mon besoin.
Moi je dirai que si un style commence par "Titre", il doit être mis dans les Univers
J'ai donc mis dans mon code les lignes suivantes

Code:

1
2
3
 
     Word_2k::WordApplication WordAppli =   m_pWordApplication->get_Application();
     wsStyle = WordAppli->getStyleName();

mais le compilateur n'est pas content
je vous livre ses diagnostiques ci-dessous:

Code:

1
2
3
4
5
6
 
 
[C++ Avertissement] WordReader.cpp(999): W8006 Initialisation de Word_2k::WdInformation avec int
  [C++ Erreur] WordReader.cpp(1002): E2352 Impossible de créer une instance de la classe abstraite '_Application'
  [C++ Erreur] WordReader.cpp(1002): E2353 La classe '_Application' est abstraite parce que '__stdcall _Application::get_Application(_Application * *) = 0'
  [C++ Erreur] WordReader.cpp(1002): E2034 Impossible de convertir '_ApplicationPtr' en '_Application'

Que pouvons nous faire pour le mettre d'accord
ce sera :ccool:

21/10/2010, 20h32
blondelle

Je suis desole je ne peux t'aider sur word_2K, sur OleWord la ce n'est pas un probleme

Je ne sais si c'est ce que tu cherche mais j'ai reussi a ecrire ceci

Code:

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
 
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Word_2K_SRVR"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
WordApplication1->Connect();
WordApplication1->GetDefaultInterface()->Visible = true;
WordDocument1->ConnectTo(WordApplication1->Documents->Open((OleVariant)Edit1->Text));
WordDocument1->Paragraphs->Item(2)->Range->set_Style(Variant(wdStyleHeading3));   // wdStyleNormal wdStyleHeading3
WordDocument1->Paragraphs->Item(2)->Range->get_Style();
Label1->Caption = WordParagraphFormat1->get_Alignment();
Label2->Caption = Variant(WordDocument1->Paragraphs->Item(2)->Range->get_Style());
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Variant NoPrompt = wdDoNotSaveChanges;
WordDocument1->Close(NoPrompt, EmptyParam, EmptyParam);
WordDocument1->Disconnect();
WordApplication1->Quit();
Application->Terminate();
}
//---------------------------------------------------------------------------

25/10/2010, 17h07
JeanNoel53

Vos recherches

Bonjour :D

Je vous remercie beaucoup de vos recherches qui me font bien avancer.
Cependant je serai aidé par la disponibilité du fichier

Code:

#include "Unit1.h"

qui définit les objets utilisé dans votre démonstration. Notamment j'ai essayé de coder

Code:

tagVARIANT* m_pWordParagraphFormat = m_pWordDocument->Paragraphs->Item(2)->Range->get_Style();

mais je ne suis pas du tout sûr de moi car la suite se passe mal
ce sera :ccool:

Voici le contenu du .h

Code:

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
 
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "Word_2K_SRVR.h"
#include <OleServer.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
        TButton *Button1;
        TWordApplication *WordApplication1;
        TWordDocument *WordDocument1;
        TEdit *Edit1;
        TButton *Button2;
        TWordParagraphFormat *WordParagraphFormat1;
        TLabel *Label1;
        TLabel *Label2;
        void __fastcall Button1Click(TObject *Sender);
        void __fastcall Button2Click(TObject *Sender);
private: // User declarations
public:  // User declarations
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

Le code suivant affiche a l'aide d'un TLabel le Style du deuxieme paragraphe " Item(2) "

Code:

1
2
Label2->Caption = Variant(WordDocument1->Paragraphs->Item(2)->Range->get_Style());

Je ne compile pas encore

Bonjour.
Je vous remercie encore pour vos indications, mais je reporte vos suggestions dans mon code et il ne compile pas.
je vous joins le code pour un comparatif

Code:

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
 
try
  {
    std::wstring wsText;
    std::wstring wsStyle;
    m_pWordDocument = new WORDVER::TWordDocument( NULL);
    m_pWordDocument->InitServerData();
    pWordDocumentPtr = m_pWordApplication->Documents->Open( vFileName);
    m_pWordDocument->ConnectTo(pWordDocumentPtr);
    m_pWordDocument->Activate();
    m_pCurrentDocument = m_pWordApplication->get_ActiveDocument();
    m_pAllParagraphs = m_pCurrentDocument->get_Paragraphs();
    m_pWordDocument->Paragraphs->Item(2)->Range->set_Style(Variant(wdStyleHeading3));
    TWordParagraphFormat * m_pWordParagraphFormat = m_pWordDocument->Paragraphs->Item(2)->Range->get_Style();
    wsText = m_pWordParagraphFormat.get_Alignment();
    wsStyle = m_pWordDocument->Paragraphs->Item(2)->Range->get_Style();
    m_lNumberOfParagraphs = m_pAllParagraphs->get_Count();
    (Words*)m_pAllWords = m_pCurrentDocument->get_Words();
    m_pAllWords->get_Count( &m_lNumberOfWords);
  }
  catch(...)
  {
    ErrorCode = objStrConv.CreateReturnCode(TYPE_ERROR, MSG_CANT_OPEN_DOCUMENT,MODULE_ID_WORD_READER,
                      MODULE_ID_WORD_READER, OPEN_DOCUMENT,
                      CANT_OPEN_DOCUMENT);
  }

et j'ajoute le fichier produit par la compilation:

Code:

1
2
3
4
5
6
7
8
 
[C++ Erreur] WordReader.cpp(247): E2034 Impossible de convertir 'tagVARIANT' en 'TWordParagraphFormat *'
[C++ Erreur] WordReader.cpp(248): E2294 Structure nécessaire sur le côté gauche de . ou .*
[C++ Erreur] WordReader.cpp(249): E2285 Impossible de trouver une correspondance pour 'wstring::operator =(tagVARIANT)'
[C++ Avertissement] WordReader.cpp(253): W8004 'm_pWordParagraphFormat' est affecté à une valeur qui n'est jamais utilisée
[C++ Avertissement] WordReader.cpp(1006): W8006 Initialisation de Word_2k::WdInformation avec int
[C++ Avertissement] WordReader.cpp(1012): W8004 'pTest' est affecté à une valeur qui n'est jamais utilisée
[C++ Avertissement] WordReader.cpp(1012): W8004 'Info' est affecté à une valeur qui n'est jamais utilisée

En outre je suis très réticent à utiliser le type tagVARIANT qui n'a eu jusqu'à présent que des résultats peu concluants.
Je voudrais bien comprendre pourquoi ce qui compile chez vous ne compile pas chez moi?:ccool:

25/10/2010, 21h28
blondelle

J'utilise le systeme d'exploitation Window xp pack2, BCB6, Word 2002 et 2003
26/10/2010, 13h41
JeanNoel53

Mon système

J'utilise Window XP pro Pack 3, BCB 6, word 2003
Je ne vois pas que ce soit une différence.
je vais reprendre votre projet de démo pur le faire fonctionner sur mon ordinateur et je reviendrai vers vous.:ccool:
26/10/2010, 18h03
blondelle

Si c'est un projet ludique pas de probleme utilise word_2K ca permet d'apprendre a organiser ses recherches, si c'est professionnel utilise OleWord il y a la FAQ BCB qui est deja complete et je pourrais t'aider plus facilement
26/10/2010, 18h25
JeanNoel53

Je suis d'accord

on va donc partir sur OLE

Voir 40 message(s) de cette discussion en une page