word 2007. manipulation de tableaux et lect/ecriture

word 2007. manipulation de tableaux et lect/ecriture - Logiciels - Windows & Software

Marsh Posté le 07-04-2008 à 13:05:09    

bonjour.
 
Concernant word 2007, j'ai 2 questions:
 
J'ai un gros document, contenant beaucoup de petits tableaux de meme nature. Comment puis je les regrouper afin de les transformer en 1 seul tableau ? Je cherche une commande pouvant effacer donc le signe de début de tableau. j'ai essayé par la commande "remplacer" mais je ne trouve pas. Bien entendu  à la main, pas de soucis, mais je serai mort de vieillesse avant d'avoir fini !  :pt1cable:  
 
ma 2eme question, ce sont des dossiers word qui ne s'ouvre qu'en lecture. c'est hyper ch......
pourant j'ai bien modifié les attributs du dossier contenant mes documents, et donc ceux aussi de tous mes documents, mais de temps à autre cela revient en lecture seule. Que dois je faire ? :bounce:  

Reply

Marsh Posté le 07-04-2008 à 13:05:09   

Reply

Marsh Posté le 08-04-2008 à 13:30:17    

Bonjour
 
Pour ton pb de lecture/ecriture, je ne vois pas trop, a part si tu as un outil de sauvegarde/backup qui passerait les fichiers en Lecture seule ou une petite main sur un mulot... lol
Bon, ca c'est fait :p
 
Pour ton souci de tableau, en fait Word numérote tes tableaux dans l'ordre. Ton premier tableau a le n°1, le seconde le 2 etc.
En vba pour copier tous tes tableaux du document actif dans un nouveau document essaie cela :
 

Citation :


Sub CopyTablesToNewDoc()
    Dim docOld As Document
    Dim rngDoc As Range
    Dim tblDoc As Table
 
    If ActiveDocument.Tables.Count >= 1 Then
        Set docOld = ActiveDocument
        Set rngDoc = Documents.Add.Range(Start:=0, End:=0)
        For Each tblDoc In docOld.Tables
            tblDoc.Range.Copy
            With rngDoc
                .Paste
                .Collapse Direction:=wdCollapseEnd
                .InsertParagraphAfter
                .Collapse Direction:=wdCollapseEnd
            End With
        Next
    End If
End Sub


 
NB : la source n'est pas de moi mais de l'aide de Word 2003...
 
Cordialement


---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 08-04-2008 à 17:26:26    

merci de ta réponse, mais aie, aie , aie ! je en pratique pas le vba ! :??:

Reply

Marsh Posté le 08-04-2008 à 21:07:57    

Bonsoir
 
Sous word, tu fais Alt+F11
Tu arrives dans Visual Basic Editor.
Ensuite en haut a droite tu dois voir un petit "+" avec Normal, tu cliques avec le bouton droit dessus, Nouveau, Module
Dans la feuille de droite qui est apparue, tu colles ce que je t'ai mis.
 
Tu retournes sous Word et ta macro est accessible par le menu, outils, macro, macro...
Tu selectionnes la dite macro (CopyTablesToNewDoc) et tu fais executer.
 
Cordialement
 


---------------
Soyez malin, louez entre voisins !
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed