Discussion :

[Estebann]

Bonsoir,

J'essai de traduire une macro VBA en VB.NET et j'ai quelques soucis à retrouver certaines options :

Le but principal du programme est de pouvoir se positionner dans un document Word et remplacer des paragraphes par d'autres issus de documents différents.

En VBA, on peut se positionner à l'aide des signets ou à un emplacement définit par :

Code :

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

Selection.MoveUp Unit:=wdScreen, Count:=14

(par exemple)

En VB.NET cela donne :

Code :

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

MonDoc.Application.Selection.MoveDown(Unit:= ?? ,Count:=14)

Sauf qu'il n'y a pas d'argument pour Unit:= comme wdScreen, wdLine,..

J'ai bien importé :

Code :

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

1
2
3
Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Word
Imports Microsoft.Office.Core

Voilà si quelqu'un à une idée ou déjà rencontrer ce soucis je suis preneur !

[Estebann]

Après quelques recherches, il est nécessaire d'ajouter :

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
 Public Enum WdUnits
        wdCharacter = 1  '&H1
        wdWord = 2  '&H2
        wdSentence = 3  '&H3
        wdParagraph = 4  '&H4
        wdLine = 5  '&H5
        wdStory = 6  '&H6
        wdScreen = 7  '&H7
        wdSection = 8  '&H8
        wdColumn = 9  '&H9
        wdRow = 10  '&HA
        wdWindow = 11  '&HB
        wdCell = 12  '&HC
        wdCharacterFormatting = 13  '&HD
        wdParagraphFormatting = 14  '&HE
        wdTable = 15  '&HF
        wdItem = 16  '&H10
    End Enum

Donc pour se positionner dans le document il faut écrire :

Code :

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

mydoc.Application.Selection.MoveDown(Unit:=5, Count:=14)

Une question reste en suspend, pourquoi faut il énumérer wdUnits alors que l'on importe :

Code :

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

Imports Microsoft.Office.Interop.Word

?