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
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 !