Mise en garde : les pages ne sont pas des objets fixes en Word, les pages dépendent de l'imprimante, de la mise en page, ...
Le principe est assez simple en soi. Pour sélectionner une plage de données, vous avez besoin de deux signets. Nous allons ajouter des signets sur
des pages précises. Pour effectuer cette opération, nous allons utiliser la fonction Goto de VBA.
Selection. GoTo What:= wdGoToPage, which:= wdGoToAbsolute, Count:= 2
Selection. Bookmarks . Add Name:= " bmStart " , Range:= Selection. Range
|
Dans ces lignes, nous plaçons un signet (Name:="bmStart") au début de la seconde page de notre document (Count:=2). Nous obtenons ainsi notre
signet de départ.
Selection. GoTo What:= wdGoToPage, which:= wdGoToAbsolute, Count:= 4
Selection. Bookmarks . Add Name:= " bmEnd " , Range:= Selection. Range
|
Dans cette seconde série de lignes, nous plaçons un signet (Name:="bmEnd") au début de la quatrième page de notre document(Count:=4). Nous
obtenons ainsi notre signet de fin.
Dim myRange As Range
Selection. GoTo What:= wdGoToPage, which:= wdGoToAbsolute, Count:= 2
Selection. Bookmarks . Add Name:= " bmStart " , Range:= Selection. Range
Selection. GoTo What:= wdGoToPage, which:= wdGoToAbsolute, Count:= 4
Selection. Bookmarks . Add Name:= " bmEnd " , Range:= Selection. Range
Set myRange = ActiveDocument. Range (Start:= ActiveDocument. Bookmarks (" bmStart " ). Range . Start , End := ActiveDocument. Bookmarks (" bmEnd " ). Range . End )
myRange. Select
Selection. Copy
|
Vous pouvez utiliser la copie de la plage de données dans un autre document.
Document. Add
ActiveDocument. Paste
|
|