Correspondance VBA -> VB.NET

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:

---

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

---

(par exemple)

En VB.NET cela donne :

Code:

---

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:

---

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 !

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

Code:

---

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:

---

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:

---

Imports Microsoft.Office.Interop.Word

---

?