Hvordan fortæller man i en makro, at man ønsker at arbejde på den aktuelle
tabel - altså, den markøren eller afmærkningen er i. Problemet er, at jeg
har mange tabeller i et dokument.
Kan man aflæse tabellens nr. når man er i det - eller er der noget a'la
"ActiveTable" (som ActiveDocument)
Jeg har en kode, der ser sådan ud (uddrag):
.......
With Selection.Tables(1) <- her er problemet!!!!!!!!!!!!!!
For I = StartRække To Selection.Information(wdEndOfRangeRowNumber)
If Left(.Cell(I, Kol).Range, Len(.Cell(I, Kol).Range) - 2) <> ""
Then
Tekst = CDbl(Left(.Cell(I, Kol).Range, Len(.Cell(I,
Kol).Range) - 2))
TalTekst = Round(Tekst / 1000, 0)
ActiveDocument.Tables(1).Cell(I, Kol + 2).Range.Text = TalTekst
End If
Next I
End With
....
Men det virker naturligvis kun på tabel 1 i dokumentet!
Koden er i øvrigt en viderebygning på noget fra Mads - tak til dig Mads!
--
Henrik Hougaard
fam.hougaard@nospam.stofanet.dk
(Fjern .nospam i emailadresse.)
--
Henrik Hougaard
fam.hougaard@nospam.stofanet.dk
(Fjern .nospam i emailadresse.)
|