Visual Basic

Thank you Richard Deeming.  I decided to first try out the Excel Code (below) on Excel.
On the .Navigate command, Microfot Edge opened the site correctly
But on the While...Wend statement the code froze or raised Run-time error 462 :
"The remote server machine does not exist or is unavailable".  I re-tried many times.
Tony

<pre lang="vb">

'Access VBA Code

'--- Public Function SiftResponseText()
Public Function GetTranslatedTextFrom(TextToTranslate As String, FromLangCode As String, ToLangCode As String) As String    'input text maximum seems to be 2048 characters
' REQUIRED: Set a reference to Microsoft Internet Controls from Tools/References in VBA interface
'[This Function:]  Identifies the translated output text by seeking the prefix     <div class="result-container"> just before it and </div> just after it.
'[Called by:]    ' [Calls:] strResponseText()
'[Example Call:]  GetTranslatedTextFrom("Hello World! Are you ready for us?","en","fr")  This returns : "Bonjour le monde! Êtes-vous prêt pour nous?"
'[Notes:] Here are some language codes: English en, French fr, Italian it, German de , Spanish es .
' Other language codes here: https://www.labnol.org/code/19899-google-translate-languages
' Created: 12/14/2020   Modifications History:
On Error GoTo Get_Err
Dim ResponseText As String
Dim GotAnError As Boolean, PosPrefix As Long, PosAfterPrefix As Long, LenPrefix As Long, PosSuffix As Long, lenSuffix As Long
Dim Prefix As String, Suffix As String
    GotAnError = False
    
    '[] Get the response text from the Google translate website by calling strResponseText()
    ResponseText = strResponseText(TextToTranslate, FromLangCode, ToLangCode)
    
    '[] Establish the looked-for Prefix and Suffix and their lengths
    Prefix = "<div class=""result-container"">"
    LenPrefix = Len(Prefix)
    Suffix = "</div"   ' the first occurring after the Prefix
    lenSuffix = Len(Suffix)
    
    '[] Find the Prefix and the Suffix
    PosPrefix = InStr(1, ResponseText, Prefix)
    If PosPrefix = 0 Then MsgBox "Failed!": GoTo PreExit
    PosAfterPrefix = PosPrefix + LenPrefix
    PosSuffix = InStr(PosPrefix, ResponseText, Suffix)
    
    '[] Get the translated text as the function's return value
    GetTranslatedTextFrom = Mid(ResponseText, PosAfterPrefix, PosSuffix - PosAfterPrefix)

PreExit:
    'If Not GotAnError then MsgBox  "Success." , vbokonly , " Sub: SiftResponseText"
Exit Function
' ---------------------
Get_Err:
    GotAnError = True
    MsgBox str(Err) & " " & Err.Description, vbOKOnly, "Error in Sub: [SiftResponseText]"
    Resume PreExit
    'Resume Next  'for diagnostic purposes only
End Function
' ==============================================


Public Function strResponseText(strInput As String, FrmLng As String, ToLng As String) As String
'[This Function:]    Inputs a text, probable maximum 2048 characters, with the From-Language and the To-Language codes,
' Sends a request to https://translate.google.com,  and returns a response text; and returns a response text from the website.
' There is probably a limit to how much use is made of this operation without Google requiring payment
'  Outputs a ResponseText that can be used by GetTranslatedTextFrom() to find the translated text.
'[Called by:]  GetTranslatedTextFrom()  ' [Calls:] ' [Example Call:]   RespText = strResponseText("Hello World! Are you ready for us?","en","fr")
'[Notes:]
'Created: 12/14/2020   Modifications History: Adapted from GgTranslate() in https://www.mrexcel.com/board/threads/google-translate-excel-vba.1079457/ originally by Dossfm0q of July 24th 2020

On Error GoTo Goo_Err
Dim GotAnError As Boolean
    GotAnError = False
    
    Dim strURL As String
    Dim objHTTP As Object
    Dim objHTML As Object
    Dim objDivs As Object, objDiv As Object
    Dim strTranslated As String
    
    '[] Send query to web page
    strURL = "https://translate.google.com/m?hl=" & FrmLng & _
            "&sl=" & FrmLng & _
            "&tl=" & ToLng & _
            "&ie=UTF-8&prev=_m&q=" & strInput

    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP") 'late binding
    objHTTP.Open "GET", strURL, False
    objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
    objHTTP.send ""
    
    '[] Create an html document
    Set objHTML = CreateObject("htmlfile")
    With objHTML
            .Open
            .Write objHTTP.ResponseText
            strResponseText = objHTTP.ResponseText
            .Close
    End With
    
' The following text was commented out by me from Dossfm0q's code as I could not get it to work
'    Set objDivs = objHTML.getElementsByTagName("div")    'This looks like a div-block parsing function for objHTTP
'    For Each objDiv In objDivs
'        If objDiv.className = "t0" Then
'            strTranslated = objDiv.innerText
'            If strTranslated <> "" Then GoogTranslate = strTranslated
'            Msgbox "GoogTranslate="; GoogTranslate           'This never happened
'        End If
'    Next objDiv

    Set objHTML = Nothing
    Set objHTTP = Nothing
    
PreExit:
    'If Not GotAnError then MsgBox  "Success." , vbokonly , " Sub: GoogTranslate"
Exit Function
' ---------------------
Goo_Err:
    GotAnError = True
    MsgBox str(Err) & " " & Err.Description, vbOKOnly, "Error in Sub: [GoogTranslate]"
    Resume PreExit
    Resume Next
End Function
' ==============================================

=IIF(Fields!FYTD3_A.Value > 0 and Fields!FYTD4_A.Value > 0, FormatNumber(((Fields!FYTD3_A.Value - Fields!FYTD4_A.Value) / Fields!FYTD3_A.Value) * 100, 0), 1) & "%"

=iif(cdec(me.value.ToString().Replace("%", "")) < 0, "Red", "Green")

Translation:

The customization is not installed because another version is currently installed that cannot be upgraded from this location. To install this version of the customization, you must first use Software to remove the following program: CalPicklist. Then install the new customization from the following location: file: /// D: / Stack / Visual Studio 2019 / Projects / Office / Excel / CalPicklist / bin / Release / CalPicklist.vsto
at Microsoft.VisualStudio.Tools.Applications.Deployment.ClickOnceAddInDeploymentManager.VerifySolutionCodebaseIsUnchanged (Uri uri, String subscriptionId, Boolean previouslyInstalled)
at Microsoft.VisualStudio.Tools.Applications.Deployment.ClickOnceAddInDeploymentManager.InstallAddIn ()

Sub EditFindLoopExample()
'Based on example from Microsoft Support
'https://support.microsoft.com/en-gb/help/306338/sample-macro-that-uses-a-loop-to-find-text-in-word-documents
    Dim c As Collection
    Set c = New Collection
    With ActiveDocument.Content.Find
        .ClearFormatting
        .Font.Color = wdColorRed    'Search for red text
        'Loop through all red text one item at a time
        Do While .Execute(Forward:=True, Format:=True) = True
            With .Parent
                If .End = ActiveDocument.Content.End Then
                    Exit Do
                Else
                    c.Add .Text
                End If
            End With
        Loop
    End With
    
    'Collection c now contains all the text in red
    '<<<< replace from here with paste to another document >>>>>
    Dim s As Variant
    For Each s In c
        Debug.Print s
    Next
End Sub