Acquerir un Style de Word

**JeanNoel53** · 13/10/2010, 21h47

Bonjour

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

**3DArchi** · 15/10/2010, 09h14

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

**JeanNoel53** · 15/10/2010, 11h16

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

**3DArchi** · 15/10/2010, 18h26

Je me trompe ou c'est du C++ Builder ?

**JeanNoel53** · 16/10/2010, 09h37

Cette partie est sous C++ builder 6

**blondelle** · 16/10/2010, 14h48

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
a = Selection.Paragraphs(1).Style

**JeanNoel53** · 18/10/2010, 12h34

Bonjour, et merci pour votre élément de réponse

La piste est prometteuse. Cependant l'instruction Selection est jugé par le compilateur utilisation impropre du typedef 'selection'
Pouvez vous m'aider, ce serait

**blondelle** · 18/10/2010, 21h23

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 "

**JeanNoel53** · 19/10/2010, 11h47

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

**blondelle** · 19/10/2010, 18h24

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

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

**JeanNoel53** · 20/10/2010, 14h33

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**blondelle** · 21/10/2010, 20h32

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

**blondelle** · 24/10/2010, 10h32

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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();
}
//---------------------------------------------------------------------------

**JeanNoel53** · 25/10/2010, 17h07

Bonjour

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

#include "Unit1.h"

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**blondelle** · 25/10/2010, 18h01

Voici le contenu du .h

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**JeanNoel53** · 25/10/2010, 19h10

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

**blondelle** · 25/10/2010, 21h28

J'utilise le systeme d'exploitation Window xp pack2, BCB6, Word 2002 et 2003

**JeanNoel53** · 26/10/2010, 13h41

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.

**blondelle** · 26/10/2010, 18h03

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

**JeanNoel53** · 26/10/2010, 18h25

on va donc partir sur OLE

Acquerir un Style de Word

C++Builder

Discussions similaires

Partager

Partager