Início / coding / Perguntas / 78847815
Accepted
Michael
Asked: 2024-08-08 18:14:17 +0800 CST

Lendo texto em uma tabela com células mescladas

  • 772

Preciso ler a tabela nos documentos do Word recebidos. Essas tabelas podem ser de dois tipos:

insira a descrição da imagem aqui

A primeira linha em ambas as tabelas pode ser lida sem problemas: localizo a primeira célula, expando o intervalo ou seleção para a linha e leio o conteúdo das células, depois movo a seleção para baixo e assim por diante.

Mas no segundo caso preciso ler o texto contido nas células com “Min” e “Max” (porque às vezes é “Max | Min”).

Minhas perguntas são:

  1. como reconhecer que tipo de mesa existe; e
  2. como posso ler o conteúdo das células que contêm “Min” e “Max na imagem?
vba

2 respostas

  1. Você precisa endereçar as células individuais diretamente em uma tabela com células mescladas.

    A seguir está um exemplo assumindo que o código está no mesmo documento com as duas tabelas:

    Option Explicit

Sub TableTest()
    Dim cellMin As String
    Dim cellMax As String
    
    cellMin = ThisDocument.Tables(2).Cell(2, 4).Range.Text
    cellMax = ThisDocument.Tables(2).Cell(2, 5).Range.Text
    
    MsgBox "The values are " & cellMin & " and " & cellMax & "!"
End Sub
    • 1
  2. Best Answer

    "como reconhecer que tipo de tabela existe" é realmente uma questão muito geral.

    Para o exemplo específico que você mostra (com um número arbitrário de linhas), você pode usar algo como o seguinte para distinguir entre os dois:

    With ActiveDocument.Tables(1) ' or (2)
  If (.Rows.Count * .Columns.Count) = .Range.Cells.Count Then
    ' you have your first example
  Else
    ' you have your second example
  End If
End With

    Ou você poderia usar algo assim, porque neste caso você sabe que a célula (2,4) e as células (6) devem existir.

    With ActiveDocument.Tables(1) ' or (2)
  If .Cell(2,4).Range.Start = .Range.Cells(6).Start Then
    ' you have your second example
  Else
    ' you have your first example
  End If
End With

    Depois de estabelecer que este é o seu segundo exemplo, você poderia fazer algo como

    Dim MinColumn As Long
Dim MaxColumn As Long
Dim theRow As Long
With ActiveDocument.Tables(2)
  If UCase(Trim(.Cell(2,4).Range.Text)) = "MIN" then
    MinColumn = 4
  Else
    MinColumn = 5
  End If
  For theRow = 3 To .Rows.Count
    Debug.Print "Row " & CStr(theRow) & ", Min: " & .Cell(theRow,MinColumn).Range.Text  
  Next
End With
    • 1

relate perguntas