none
Centralizar a copia de uma tabela Excel to Word RRS feed

  • Pergunta

  • Bom dia.

    Antes de mais nada sou um pouco leigo em VBA, porém entendo de programão orientada a objeto. Criei uma macro em VBA para copiar uma planilha, em anexo neste post, para uma determinada referência em um arquivo no word. Porém eu quero também centralizar a planilha. Quando o eu "colo" ela no word ela vai formatada a esquerda.
    Li a respeito de alguns métodos de colagem como o ParagraphFormat.Alignment ou Rows.alignment , porém não consigo usar, na vdd eu não sei.
    Acredito eu o método "rows.alignment" funciona porém quando eu colo no word eu perco a referência na tabela, ela não fica mais selecionada.

    Código - Copia no excel e cola no word:

    Sub Botão_127()

    Dim ws As Worksheet

    'Define o nome da ABA
    Set ws = ThisWorkbook.Sheets("Dados para o relatório")

    'Define o Objeto Word
    Dim OBJWORD As Object

    'Define o objeto de aplicacao WORD
    Dim Doc As Word.Document

    'Cria o oobjeto para abertura posteriormente
    Set OBJWORD = CreateObject("Word.Application")

    'Exibe a janela do word
    OBJWORD.Visible = True

    'Inserindo documento
    Set Doc = OBJWORD.Documents.Open("C:\Users\LABLUXNOVO3\Desktop\Testes Macro Alec\Relatorio teste 127.docx")

    'DADOS PARA O RELATÓRIO

    'Copia Todas as Celulas
    ws.Range("C9:L20").Copy

    'Procurou a referência Dados de Planilha
    With Doc
    .Application.Selection.Find.Text = "#DdRelat"
    .Application.Selection.Find.Execute
    .Application.Selection.PasteExcelTable False, False, False
    End With
    .
    .
    .
    sexta-feira, 24 de novembro de 2017 13:32

Todas as Respostas

  • Creio que não vai ser possível fazer tudo numa tacada só. Depois de colada a tabela no Word, crie um código nesse arquivo do Word VBA para selecionar e centralizar.

    A MELHOR FORMA DE AGRADECER E VOTAR COMO UTIL OU MARCAR COMO RESPOSTA Anderson Diniz diniabr2011@gmail.com


    sexta-feira, 24 de novembro de 2017 13:56