Hos Computerworld it-jobbank er vi stolte af at fortsætte det gode partnerskab med folkene bag IT-DAY – efter vores mening Danmarks bedste karrieremesse for unge og erfarne it-kandidater.
Kan dette anvendes - søger tabeller og ikke sektioner:
Sub tabeller2() Dim antalTabeller WordBasic.startofdocument antalTabeller = ActiveDocument.Tables.Count
If antalTabeller > 0 Then For f = 0 To antalTabeller - 1 Selection.GoTo What:=wdGoToTable, Count:=f + 1 WordBasic.lineup WordBasic.Insert "Table " & f & "." & vbCrLf & vbCrLf Next f End If End Sub
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
