none
wdLine et wdExtend non reconnu RRS feed

  • Question

  • Bonjour,

    J'essai de piloter word à partir de vb en utilisant par exemple :

    .Selection.MoveDown(Unit:=wdLine, Count:=1, Extend:=wdExtend)
    
    

     

    wdline et wdextend me donne un message d'erreur du type "wdline is not declared. It may be inaccessible due to its protection level"

    J'ai essayé avec "Word.Line" sans résultat.

    Merci de m'aider.

    Bro92

    mardi 24 mai 2011 07:49

Réponses

  •  

    Pour ce qui me concerne ça fonctionne avec ce code

     

      Dim App As New Word.Application
      App.Visible = True
      Dim doc As Word.Document = App.Documents.Open("C:\toto.docx")
      'Dim wdline = Microsoft.Office.Interop.Word.WdUnits.wdLine
      'Dim wdExtend = Microsoft.Office.Interop.Word.WdMovementType.wdExtend
      'doc.Selection.MoveDown(Unit:=wdline, Count:=10, Extend:=wdExtend)
      'Threading.Thread.Sleep(5000)
    
      App.Selection.GoTo(Word.WdGoToItem.wdGoToLine, Word.WdGoToDirection.wdGoToFirst, Count:=10, Name:="")
      App.Selection.InlineShapes.AddPicture(FileName:="Drive:\folder\pathImage", LinkToFile:=False, SaveWithDocument:=True)
    

     

    A bientôt


    Cordialement,
    Xavier TALOUR
    Alias Troxsa SendMail
    Voir le profil de Xavier TALOUR sur LinkedIn

    mardi 24 mai 2011 13:40
    Auteur de réponse

Toutes les réponses

  • Bonjour,

    Que contient le code ?

    Pourrais ton en avoir plus ? (la version d'Office ?)

     


    Cordialement,
    Xavier TALOUR
    Alias Troxsa SendMail
    Voir le profil de Xavier TALOUR sur LinkedIn

    mardi 24 mai 2011 10:55
    Auteur de réponse
  • J'ai réussi en déclarant le wdline comme ceci :

    wdline = Microsoft.Office.Interop.Word.WdUnits.wdLine
    

    mais maintenant j'essai d insérer une image dans document word à une certaine position.

    L insertion de l'image fonctionne mais je ne trouve pas comment placer le curseur à un endroit.

     Public Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    
        wdline = Microsoft.Office.Interop.Word.WdUnits.wdLine
    
        Dim AppWord As Word.Application
    
        GiNbObj = GoScene.SceneGetObjectsNb(GiSessionId)
    
        For i = 1 To 15
          GiRank = i
          GiID = GoScene.SceneGetObjectId(GiSessionId, GiRank)
          'HeadingGetObjectId( SessionId As Long, HeadingRank As Long, Factorized as Long, Rank As Long ) As Long
    
          GsRef = GoScene.ObjectGetInfo(GiSessionId, GiID, 12)
    
          GbOk = GoScene.ObjectExportImage(GiSessionId, GiID, 0, 8, GsImageFileName & GsRef & ".jpg", 50, 50, GsBackGroungColor, True, 75, 2)
        Next i
    
        'insérer une image à partir du fichier 
        AppWord = GetObject(, "Word.Application")
    
        With AppWord
          .Visible = True
          .Selection.MoveDown(Unit:=wdline, Count:=2, Extend:=wdExtend)
          .Selection.Range.Select()
        End With
    
        GoPicture = AppWord.ActiveDocument.InlineShapes.AddPicture(FileName:="C:\InSitU\Bmp\VIGNETTES\2070.jpg", LinkToFile:=False, SaveWithDocument:=True)
    
      End Sub
    

     

    Merci de m'aider.

    Cdt,

    Bro92

    • Proposé comme réponse TroxsaEditor mardi 24 mai 2011 11:23
    mardi 24 mai 2011 11:16
  • Alors plus de problème :)

    merci pour le partage :)


    Cordialement,
    Xavier TALOUR
    Alias Troxsa SendMail
    Voir le profil de Xavier TALOUR sur LinkedIn
    mardi 24 mai 2011 11:23
    Auteur de réponse
  • si toujours un problème, je ne trouve pas comment placer le curseur à un certain endroit afin d y placer une image.
    mardi 24 mai 2011 11:51
  • Bro92,

     

    Pour sélectionner une position (line)

      Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=10, Name:=""
    

     

    Et pour mettre une image est :

      Selection.InlineShapes.AddPicture FileName:= _
        "Drive:\folder\pathImage", LinkToFile:=False, SaveWithDocument:=True
    

     


    Cordialement,
    Xavier TALOUR
    Alias Troxsa SendMail
    Voir le profil de Xavier TALOUR sur LinkedIn
    mardi 24 mai 2011 12:06
    Auteur de réponse
  • Merci Xavier,

    Cela fonctionne, le curseur va se positionner.

    Cela fonctionne ausi avec :

    Selection.MoveDown(Unit:=wdline, Count:=20, Extend:=wdExtend)
    

    par contre l image viens toujours sur la première ligne au lieu de se mettre à la position du curseur. As tu une idée ?

    Merci, Cdt,

    Bro92

    mardi 24 mai 2011 12:48
  •  

    Pour ce qui me concerne ça fonctionne avec ce code

     

      Dim App As New Word.Application
      App.Visible = True
      Dim doc As Word.Document = App.Documents.Open("C:\toto.docx")
      'Dim wdline = Microsoft.Office.Interop.Word.WdUnits.wdLine
      'Dim wdExtend = Microsoft.Office.Interop.Word.WdMovementType.wdExtend
      'doc.Selection.MoveDown(Unit:=wdline, Count:=10, Extend:=wdExtend)
      'Threading.Thread.Sleep(5000)
    
      App.Selection.GoTo(Word.WdGoToItem.wdGoToLine, Word.WdGoToDirection.wdGoToFirst, Count:=10, Name:="")
      App.Selection.InlineShapes.AddPicture(FileName:="Drive:\folder\pathImage", LinkToFile:=False, SaveWithDocument:=True)
    

     

    A bientôt


    Cordialement,
    Xavier TALOUR
    Alias Troxsa SendMail
    Voir le profil de Xavier TALOUR sur LinkedIn

    mardi 24 mai 2011 13:40
    Auteur de réponse
  • Merci cela fonctionne très bien

    Parfait !!!

    Cdt,

    Bro92

    • Marqué comme réponse Bro92 mercredi 25 mai 2011 07:32
    • Non marqué comme réponse Bro92 jeudi 26 mai 2011 12:13
    mardi 24 mai 2011 14:12
  • Y a pas quoi :) ne pas oublier d'accepter comme réponse pour la clôture :)

    Au plaisir :)

     


    Cordialement,
    Xavier TALOUR
    Alias Troxsa SendMail
    Voir le profil de Xavier TALOUR sur LinkedIn
    • Marqué comme réponse Bro92 jeudi 26 mai 2011 12:13
    • Non marqué comme réponse Bro92 jeudi 26 mai 2011 12:14
    mardi 24 mai 2011 17:13
    Auteur de réponse