/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Adressering af tabeller i Word VBA
Fra : Henrik Hougaard


Dato : 18-09-02 12:15

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.)





 
 
Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408849
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste