Salve srs. , comecei com VBA ainda agora então basicamente estou "brincando" com o codigo para aprender ! Minha duvida : porque o codigo 1 abaixo funciona e o cod. 2 não ? As diferencas estão em negrito. O cod.2 retorna mensagem : "Run time error 4605" "Function is not available". Agradeço qualquer ajuda Hu Cod. 1 Dim odoc As Word.Document Dim otb1 As Table Dim otb2 As Table Dim opr1 As Paragraph Dim opr2 As Paragraph Dim opr3 As Paragraph Dim opr4 As Paragraph Dim opr5 As Paragraph Dim opr6 As Paragraph Dim rng1 As Range Dim rng2 As Range Dim rng3 As Range Dim rng4 As Range Dim rng5 As Range Dim rng6 As Range Dim crng1 As Range Dim srng As Range Dim osl1 As Selection Dim osl2 As Selection Dim csel As Selection Dim ofld As Field Set odoc = Word.Documents.Add 'odoc.PageSetup.Orientation = wdOrientLandscape odoc.PageSetup.TopMargin = CentimetersToPoints(2.5) odoc.PageSetup.BottomMargin = CentimetersToPoints(1.5) odoc.PageSetup.LeftMargin = CentimetersToPoints(2) odoc.PageSetup.RightMargin = CentimetersToPoints(2) odoc.PageSetup.Gutter = CentimetersToPoints(0) odoc.PageSetup.HeaderDistance = CentimetersToPoints(1) odoc.PageSetup.FooterDistance = CentimetersToPoints(1) Set opr1 = odoc.Paragraphs.Add Set rng1 = opr1.Range Set otb1 = odoc.Tables.Add(Range:=rng1, NumRows:=3, NumColumns:= _ 2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _ wdAutoFitFixed) otb1.Borders.OutsideLineStyle = wdLineStyleSingle 'otb1.Borders.InsideLineStyle = wdLineStyleNone otb1.Columns.Item(1).PreferredWidth = 350 otb1.Columns.Item(2).PreferredWidth = 100 otb1.Cell(1, 1).Range.Font.Name = "Kozuka Gothic Pro M" otb1.Cell(1, 1).Range.Font.Size = 12 otb1.Cell(1, 1).Range.InsertAfter (" LYC DO BRASIL ") Selection.MoveRight (wdCell) otb1.Cell(1, 2).Range.Font.Name = "Arial" otb1.Cell(1, 2).Range.Font.Size = 10 ''otb1.Cell(1, 2).Range.Select Set ofld = otb1.Cell(1, 2).Range.Fields.Add(Selection.Range, -1, "AUTOTEXT ""Página X de Y"" ", True) Cod. 2 Dim odoc As Word.Document Dim otb1 As Table Dim otb2 As Table Dim opr1 As Paragraph Dim opr2 As Paragraph Dim opr3 As Paragraph Dim opr4 As Paragraph Dim opr5 As Paragraph Dim opr6 As Paragraph Dim rng1 As Range Dim rng2 As Range Dim rng3 As Range Dim rng4 As Range Dim rng5 As Range Dim rng6 As Range Dim crng1 As Range Dim srng As Range Dim osl1 As Selection Dim osl2 As Selection Dim csel As Selection Dim ofld As Field Set odoc = Word.Documents.Add 'odoc.PageSetup.Orientation = wdOrientLandscape odoc.PageSetup.TopMargin = CentimetersToPoints(2.5) odoc.PageSetup.BottomMargin = CentimetersToPoints(1.5) odoc.PageSetup.LeftMargin = CentimetersToPoints(2) odoc.PageSetup.RightMargin = CentimetersToPoints(2) odoc.PageSetup.Gutter = CentimetersToPoints(0) odoc.PageSetup.HeaderDistance = CentimetersToPoints(1) odoc.PageSetup.FooterDistance = CentimetersToPoints(1) Set opr1 = odoc.Paragraphs.Add Set rng1 = opr1.Range Set otb1 = odoc.Tables.Add(Range:=rng1, NumRows:=3, NumColumns:= _ 2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _ wdAutoFitFixed) otb1.Borders.OutsideLineStyle = wdLineStyleSingle 'otb1.Borders.InsideLineStyle = wdLineStyleNone otb1.Columns.Item(1).PreferredWidth = 350 otb1.Columns.Item(2).PreferredWidth = 100 otb1.Cell(1, 1).Range.Font.Name = "Kozuka Gothic Pro M" otb1.Cell(1, 1).Range.Font.Size = 12 otb1.Cell(1, 1).Range.InsertAfter (" LYC DO BRASIL ") 'Selection.MoveRight (wdCell) otb1.Cell(1, 2).Range.Font.Name = "Arial" otb1.Cell(1, 2).Range.Font.Size = 10 otb1.Cell(1, 2).Range.Select Set ofld = otb1.Cell(1, 2).Range.Fields.Add(Selection.Range, -1, "AUTOTEXT ""Página X de Y"" ", True)