Makro: gem tabeller

Jeg har lavet en makro til at klare denne opgave som jo ville være direkte dræbende at lave manuelt i 21 klasser med i snit 8-10 fag.
Den virker bare noget Fedtmule-agtig.

Sub MakroGemTabel()
  If ActiveDocument.Tables.Count >= 1 Then
    Set oDoc1 = ActiveDocument
    For Each oTable In oDoc1.Tables
        oTable.Range.Copy
        Documents.Add
        Selection.Paste
        navnefil1 = Documents(1).Tables(1).Cell_(1, 2).Range.Text
        navnefil2 = Documents(1).Tables(1).Cell_(1, 1).Range.Text
        alen = Len(navnefil1)
        navn1 = Left(navnefil1, (alen - 2))
        blen = Len(navnefil2)
        navn2 = Left(navnefil2, (blen - 2))
        navn = navn1 & navn2 & \".doc\"
        ActiveDocument.SaveAs FileName:=navn,_
FileFormat:=wdFormatDocument
        ActiveDocument.Close
    Next
End If
End Sub

Det generer mig at jeg tilsyneladende ikke kan hente en tekst ud af en celle uden at få \"cellevæggen\" med. Er der ikke en elegantere måde?

Da ingen andre har vist interesse, lukker jeg spørgsmålet. Mit eget svar er stadig bedste bud :-).