Se utilizzo le Formule e scrivo per esempio nella cella A2 la formula =A1 se il contenuto della cella è un Numero va tutto OK! ma se il volore della cella è una stringa non funziona, quindi dove commetto l'errore.
Moderatori: Anthony47, Flash30005
Sub TrovaLaPrimoCampoTabella()
Selection.HomeKey Unit:=wdStory
For i = 1 To ActiveDocument.Tables.Count
If ActiveDocument.Tables(i).Style = "Griglia tabella" Then
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Copy
Selection.MoveDown Unit:=wdLine, Count:=1 '<<<< con altri spostamenti puoi andare dove vuoi
Selection.PasteAndFormat (wdPasteDefault)
End If
Next i
End SubSub CopiaTesto1
ActiveDocument.FormFields("Testo2").Result = ActiveDocument.FormFields("testo1").Result
End SubTorna a Applicazioni Office Windows
| mettere cornice a unica cella particolare Autore: raimea |
Forum: Applicazioni Office Windows Risposte: 2 |
| Inserimento parziale valore cella in MessageBox Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 6 |
Visitano il forum: Nessuno e 14 ospiti