Access-Word Copie de lignesRésolu

Question

Bonjour, je voudrais, sous access en lancant une macro, copier une  seule ligne jusqu'à la fin à partir d'un signet dans un fichier Word. Voilà le début de mon code :

  Fichier = rs.Fields("titre")
  
 Chemin = "C:" & Fichier & ".doc"
 
  Set Wd = CreateObject("Word.Application")
  With Wd
      .Visible = True
      .Documents.Open Chemin
      .Activate
  End With

  Set MyDoc = Wd.ActiveDocument
  If MyDoc.Bookmarks.Exists("Nom") = True Then
     MyDoc.Bookmarks("Nom").Select
  End If

Je me place sur le signet. Et là, je bloque, je veux copier la igne jusqu'au saut de ligne. Merci pour votre aide.

aaliyan · Accepted Answer

J'ai trouvé la réponse :

  Fichier = rs.Fields("titre")
  
  Chemin = "C:" & Fichier & ".doc"
  
  Set Wd = CreateObject("Word.Application")
  With Wd
      .Visible = True
      .Documents.Open Chemin
      .Activate
  End With
  


  
  'remplissage nom
  If Wd.ActiveDocument.Bookmarks.Exists("Nom") = True Then
    Wd.ActiveDocument.Bookmarks("Nom").Select
  End If
  Call Wd.Selection.MoveDown(wdLine, 1, wdExtend)
  Call Wd.Selection.MoveLeft(wdCharacter, 2, wdExtend)
  Selection.Copy
  Forms!Recherche!fiche!dem = Selection

cs_loulou69 · Answer

Bonjour

Suite à la sélection du signet , étendre la sélection

With Selection
    .Expand Unit:=wdSentence
End With

aaliyan · Answer

If MyDoc.Bookmarks.Exists("DateMaJ") = True Then
    MyDoc.Bookmarks("DateMaJ").Select
    With Selection
        .Expand Unit:=wdSentence
    End With
  End If

Cela plante.

Access-Word Copie de lignes

4 réponses

Votre réponse

Discussions similaires