Sub Copia_Dati_Word()
  Dim mioWord As New Word.Application

  mioWord.Visible = True

  
  Dim PercorsoFile As String
PercorsoFile = Application.GetOpenFilename("File Microsoft Word(*.doc; *.docx),*.doc; *.docx", , "Ricerca documenti Word")
If PercorsoFile = "Falso" Then
    Exit Sub
End If
    Dim mioDoc As Document
 
 ''''''''''''''''''''
 mioWord.Documents.Open (PercorsoFile)
 Set mioDoc = mioWord.ActiveDocument
 
 Set Tabella = mioDoc.Tables(1)
 
 
 
 '''''''''''''''
 
 ''' Set mioDoc = mioWord.Documents(1)buono

  '''Set Tabella = mioDoc.Tables(1) buono

  Dim riga As Row, cella As Cell, Valore As String

  Dim i As Integer, j As Integer
   i = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
    If ultima_riga = 1 Then ultima_riga = 0
  
  
  
  For Each riga In Tabella.Rows

    i = i + 1
    
    

   'For Each Riga In Tabella.Rows
'segue il resto del codice
 


    For Each cella In riga.Cells

        j = j + 1

      Valore = cella.Range

      Valore = Left(Valore, Len(Valore) - 2) '(2)

      If Right(Valore, 1) = "%" Then

        Valore = Left(Valore, Len(Valore) - 1)

      End If

      If IsNumeric(Valore) Then

        If InStr(1, Valore, ",") Then

          Mid(Valore, InStr(1, Valore, ",")) = "."

        End If

        Range("A1")(i, j).Value = Val(Valore)

      Else

        Range("A1")(i, j).Value = Valore

      End If

    Next

    j = 0

  Next

  ' Adatta larghezza colonne

  With Range("A1")

    Range(.Cells(1, 1), .End(xlToRight)).Columns.AutoFit

  End With
MsgBox "Ho terminato la copia dei dati."
    
  mioDoc.Close

  mioWord.Quit

  Set mioWord = Nothing
Application.ScreenUpdating = True
Columns("A:G").Select
Columns("A:G").EntireColumn.AutoFit
'Sheets(1).Range(.Cells(1, 1), .End(xlToRight)).Columns.AutoFit
'Range("A2").Select
End Sub




qui l'errore che vi evidenzio:

1)il dato da importate in excel è il seguente:
Calcolare il valore della seguente espressione:   √81+√9   +√25  
invece viene importato e visualizzato questo dato, senza il simbolo della radice quadrata
Calcolare il valore della seguente espressione:   +   +  
 
2)il dato da importate in excel è il seguente:
Dati gli insiemi X = {1, 2}; Y = {2, 3, 4}; Z = {4, 5}, definire l’insieme (X U  Y)  U (X QUI IL SIMBOLO DELL U CAPOVOLTA  Z)

Dati gli insiemi X = {1, 2}; Y = {2, 3, 4}; Z = {4, 5}, definire l’insieme (X 
 Y) 
 (X 
 Z)
 Allego un file dei dati che devo importare e che vengono importati senza i simboli a fianco di ciascuna domanda riportati.