Option Explicit
Private pWebAddress As String
'Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Dim xLanguge_No As Long, xLanguge__Lie As Long
Dim rng As Range
Dim xLanguge___No_Str As String
Dim Flag_there_are_spaces_in_the_target_language_cell   As Long
Dim K_More_then_J As Long '''目标语言的内容 多于 原始的语言内容的单元格数目

Dim FILE_NAME_1 As String '文件名，无路径部分   ''' 如： About.html
Dim FILE_PATH_1 As String '文件名所在的路径部分  '''如 : E:\DG-1115\Pavo___Free Tailwind
Dim OpenFile  As Variant
Dim text As String
Dim DiSe_Body As Long
Dim DiSe_Strong As Long
Dim DiSe_SuperLink As Long
Dim G_Row  As Long
Dim G_Col As Long

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''                                                                                        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''                                                                                        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''                                                                                        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Call xLanguge__No_Initialize '''语种初始化，，

    If Target.Columns.count = 1 And Target.Rows.count = 1 Then '选中 一个单元格

        If Target.Value = "手工选择一个网页文件，解析之，提炼词组集合" Then
            Call 手工选择一个网页文件__解析之__提炼词组集合
        ElseIf Target.Value = "把目标语言词组写入源文件并下一个" Then
            Call 把目标语言词组写入源文件_并下一个
        ElseIf Target.Value = "把目标语言词组写入源文件" Then
            Call 把目标语言词组写入源文件
        ElseIf Target.Value = "GOOGLE翻译成目标语言" Then
            Call GOOGLE翻译成目标语言
        ElseIf Target.Value = "简要GOOGLE翻译成目标语言" Then
            Call 简要GOOGLE翻译成目标语言
        ElseIf Target.Value = "自动循环__Google谷歌灵活组块翻译" Then
            Call 自动循环__Google谷歌灵活组块翻译(107, 135)
        ElseIf Target.Value = "中文__Google谷歌灵活组块翻译" Then
            Call 自动循环__Google谷歌灵活组块翻译(109, 109) ''109 只是中文
        ElseIf Target.Value = "回到第一行" Then
            Call 回到第一行00
        ElseIf Target.Value = "【上一个】" Then
            Call xxx【上一个】
        ElseIf Target.Value = "【下一个】" Then
            Call xxx【下一个】
        Else
        End If

    Else
    End If
'

End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''                                                                                        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''                                                                                        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''                                                                                        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub 自动循环__Google谷歌灵活组块翻译(ByVal BEG_HANG As Long, ByVal END_HANG As Long)
'    BEG_HANG = 109 ''只是中文
'    END_HANG = 109
'
'    BEG_HANG = 107
'    END_HANG = 135
    Dim t As String
    Dim arr1
'    xLanguge_No = xLanguge_No + 1: xLanguge__Lie = 2
    Dim k As Long
'    Dim BEG_HANG, END_HANG As Long ''除了英语以外的其他语言所在的开始行，结束行

    ''优先检测源数组的单元格中是否含有特殊字符：如：%
    t = EfficientlyCheckPercentInColumnJ
    If t = "包含%" Then
        MsgBox "K 列 的有效单元格中 包含 【%】 字符！  ,提前结束本次的 【自动循环__Google谷歌灵活组块翻译】"
        Exit Sub
    Else
    End If

    '
    Cells(41, 1) = "" '''清空
    For k = BEG_HANG To END_HANG '''逐个语言的翻译，并写入目标语言的html文件
        xLanguge_No = k
        xLanguge___No_Str = Cells(xLanguge_No, xLanguge__Lie).Value
        Cells(21, 2) = xLanguge___No_Str

        'folderPath = "E:\G-0501\www.backlack.com\News"
        t = Left(Cells(1, 1), (InStr(Cells(1, 1), ".com") - 1)) & ".com\zh-CN" ''iFILE_PATH1 = Cells(1, 1) ''E:\, G-0501\www.10JNEX900.com  或   "E:\G-0501\www.backlack.com\News"

        If Dir(t, vbDirectory) = "" And InStr(xLanguge___No_Str, "中文") > 0 Then ''要翻译成中文，可是没有目标的文件夹，则跳过......Return________中文中文

        Else
            Call Google谷歌灵活组块翻译(Function_Get_Target_Lang(Cells(k, 2)), 10, 11)
    '    Call 回到第一行00
            Range("A1:K1").Select
            Call 备份某个网页的内容
            Call 把目标语言词组写入源文件
            Cells(41, 1) = k & "/" & END_HANG & ",当前语言【" & Right(Cells(k, 2), Len(Cells(k, 2)) - (InStrRev(Cells(k, 2), "_") + 0)) & "】翻译完毕，并写入目标语言html文件中 "
            Cells(21, 2) = Cells(21, 2)
        End If
    Next k

    If xLanguge_No > (END_HANG - 1) Then
                MsgBox "最后一个语言了，，，，Max rows Reached"
                xLanguge_No = END_HANG

                ''随机颜色
                ''
        '    如果生成 2-9之间的随机数
        'p2 = Int(2 + 9 * Rnd()) - -错误的
        'p2 = Int(2 + (9 - 2 + 1) * Rnd()) - ---正确
            arr1 = Array(6, 45, 38, 36, 35, 37, 39, 40, 41, 42, 7, 15) '颜色列表
            Range("A137:C137").Select
            Range("C137").Activate
        '    Selection.Interior.ColorIndex = arr1(Int(1 + (9 - 1 + 1) * Rnd()))
            Selection.Interior.ColorIndex = Int(3 + (56 - 3 + 1) * Rnd())
                Exit Sub
    End If

End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''   某个语音：xxxLanguge                                                                                     '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''   源数据所在的列：FR_Lie                                                                                     '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''   目标数据所在的列：TO_Lie                                                               '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub Google谷歌灵活组块翻译(ByVal xxxLanguge As String, ByVal FR_Lie As Long, ByVal TO_Lie As Long)
    Dim lastRow As Long
    Dim i, iii, k As Long
    Dim sourceTexts As String
    Dim sourceArray() As String
    Dim translatedArray() As String
    Dim nonEmptyResults() As String
    Dim http As Object
    Dim url As String
    Dim d As String
    Dim responseText As String
    Dim startPos As Long
    Dim endPos As Long
    Dim charLimit As Long
    charLimit = 4920 ' ''''''''谷歌翻译字符限制
    Dim aaa, bbb, t0A, dttt As Long
    Dim translatedResults As Variant

    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("解析网页，提炼词组，翻译词组，写入文件")   'ActiveSheet
    ' 清空B列的内容
'    ws.Columns("B").Clear
ws.Columns(TO_Lie).Clear '''ws.Columns("L").Clear

    '
    Debug.Print "...............: "
    Debug.Print ".....|||||||||||||||||||||||||||..: "

    ' 获取 A 列最后一个非空单元格的行号
    lastRow = Cells(Rows.count, FR_Lie).End(xlUp).Row

    ' 创建一个 XMLHTTP 对象
    Set http = CreateObject("MSXML2.XMLHTTP")

    dttt = 1
    i = 1
    Do While i <= lastRow
        sourceTexts = ""
        Dim currentCharCount As Integer
        currentCharCount = 0
        Dim startIndex As Long
        startIndex = i
        Dim validCellCount As Integer
        validCellCount = 0

        ' 构建不超过字符限制的源文本，保证单元格内容完整
        Do While i <= lastRow
            If Cells(i, FR_Lie).Value <> "" Then
                Dim cellText As String
                cellText = Cells(i, FR_Lie).Value
                Dim EncodedText As String
                EncodedText = Replace(cellText, " ", "+")
                If currentCharCount + Len(EncodedText) + 3 <= charLimit Then ' 3 是 "%0A" 的长度
                    sourceTexts = sourceTexts & EncodedText & "%0A" & "%0A" & "%0A" '''多个%0A，，避免随机的多翻译原单元格【现象】.
                    currentCharCount = currentCharCount + Len(EncodedText) + 3 + 3 + 3
                    validCellCount = validCellCount + 1
                    i = i + 1
                Else
                    Debug.Print "......大于字数限制次数..: " & dttt
                    Debug.Print sourceTexts
                    dttt = dttt + 1
                    Exit Do
                End If
            Else
                i = i + 1
            End If
        Loop

        If sourceTexts <> "" Then
            ' 去除最后的换行符
            sourceTexts = Left(sourceTexts, Len(sourceTexts) - 3 - 3 - 3) ''多个%0A，，，

            ReDim sourceArray(0 To validCellCount - 1)
            ReDim translatedArray(0 To validCellCount - 1)

            ' 填充源数组
            Dim j As Integer
            j = 0
            For k = startIndex To i - 1
                If Cells(k, FR_Lie).Value <> "" Then
                    sourceArray(j) = Cells(k, FR_Lie).Value
                    j = j + 1
                End If
            Next k

            ' 构建谷歌翻译的 URL
            url = "https://translate.google.com/m?hl=zh-CN&sl=auto&tl=" & xxxLanguge & "&q=" & sourceTexts
'         WebUrl = "https://translate.google.com/?hl=zh-CN&sl=auto&tl=" & tLang & "&text=" & TTT & "&op=translate"
            ' 发送 HTTP 请求
            http.Open "GET", url, False
            http.send

            ' 获取响应文本
            responseText = http.responseText
'
'Debug.Print "Request Body: " & responseText
'Debug.Print "URL: " & url

                ' 处理响应文本提取翻译结果
                startPos = InStr(responseText, "<div class=""result-container"">") '''开头标志代码
                If startPos > 0 Then
                    startPos = startPos + Len("<div class=""result-container"">")
                    endPos = InStr(startPos, responseText, "</div>")
                    If endPos > 0 Then

                        d = Mid(responseText, startPos, endPos - startPos)
                        ' 按LF字符拆分文件内容为行数组
                    '    d = Replace(d, vbLfCrLf, vbLf)
                    '    d = Replace(d, vbLfCrLf, vbLf)
                        translatedResults = Split(d, vbLf) ' vbLf 表示 LF 字符
                        ' 剔除数组中的空元素
                        j = 0
                        ReDim nonEmptyResults(0 To UBound(translatedResults)) ' 初始化动态数组
                        For iii = LBound(translatedResults) To UBound(translatedResults)
                            If Trim(translatedResults(iii)) <> "" Then ' 检查是否为空行
                                nonEmptyResults(j) = translatedResults(iii) ' 将非空行存入新数组
                                j = j + 1
                            End If
                        Next iii
                        ReDim Preserve nonEmptyResults(0 To j - 1) ' 调整数组大小为实际非空行数
                        ReDim Preserve translatedResults(0 To j - 1) ' 调整数组大小为实际非空行数

                        ' 将非空行内容写入B列
                        For iii = LBound(nonEmptyResults) To UBound(nonEmptyResults)
                            translatedResults(iii) = nonEmptyResults(iii)  ' 从第1行开始写入
                        Next iii
                    End If
                End If

'            If dttt = 9 Then
'                Debug.Print "...............: ------有空格出项：：："
'                Debug.Print d
'                dttt = dttt
'            End If

            ' 将翻译结果写入 B 列对应的单元格
            j = 0
            For k = LBound(nonEmptyResults) To UBound(nonEmptyResults)
                If Cells(k + startIndex, FR_Lie).Value <> "" Then
                    Cells(k + startIndex, TO_Lie).Value = translatedResults(j)
                    j = j + 1
                End If
            Next k
            i = startIndex + (UBound(nonEmptyResults) + 1 - LBound(nonEmptyResults)) ''重塑定位
'
        End If
    Loop

    ' 释放对象
    Set http = Nothing

    ' 将 K 列 的内容垂直居中对齐
    ' 获取 K 列的最后一行
    lastRow = ws.Cells(ws.Rows.count, "K").End(xlUp).Row
    ' 选择 K 列的第1行到最后一行
    ws.Range("K1:K" & lastRow).VerticalAlignment = xlCenter
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''                                                                                        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''                                                                                        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''                                                                                        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub xLanguge__No_Initialize()

'    xLanguge_No = 10:
    xLanguge__Lie = 2
    If xLanguge_No < 106 Then
        xLanguge_No = 106
    ElseIf xLanguge_No > 135 Then
        xLanguge_No = 135
    Else
    End If
    xLanguge___No_Str = Cells(xLanguge_No, xLanguge__Lie).Value
    Cells(21, 2) = xLanguge___No_Str
    '
    '
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''                                                                                        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''                                                                                        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''                                                                                        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'~~> Next Button
Private Sub xxx【下一个】()
    Dim arr1
    xLanguge_No = xLanguge_No + 1: xLanguge__Lie = 2
    If xLanguge_No > 135 Then
                MsgBox "最后一个语言了，，，，Max rows Reached"
                xLanguge_No = 135

                ''随机颜色
                ''
        '    如果生成 2-9之间的随机数
        'p2 = Int(2 + 9 * Rnd()) - -错误的
        'p2 = Int(2 + (9 - 2 + 1) * Rnd()) - ---正确
            arr1 = Array(6, 45, 38, 36, 35, 37, 39, 40, 41, 42, 7, 15) '颜色列表
            Range("A137:C137").Select
            Range("C137").Activate
        '    Selection.Interior.ColorIndex = arr1(Int(1 + (9 - 1 + 1) * Rnd()))
            Selection.Interior.ColorIndex = Int(3 + (56 - 3 + 1) * Rnd())
                Exit Sub
    End If
'    Call 回到第一行00
        Range("A1:K1").Select
    xLanguge___No_Str = Cells(xLanguge_No, xLanguge__Lie).Value
    Cells(21, 2) = xLanguge___No_Str
    Call 备份某个网页的内容
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''                                                                                        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''                                                                                        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''                                                                                        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'~~> Previous Button
Private Sub xxx【上一个】()
    Dim arr1
    xLanguge_No = xLanguge_No - 1: xLanguge__Lie = 2

    If xLanguge_No < 106 Then
            MsgBox "最前一个语言了，，，，1st Row Reached"
            xLanguge_No = 106
                ''随机颜色
                ''
        '    如果生成 2-9之间的随机数
        'p2 = Int(2 + 9 * Rnd()) - -错误的
        'p2 = Int(2 + (9 - 2 + 1) * Rnd()) - ---正确
            arr1 = Array(6, 45, 38, 36, 35, 37, 39, 40, 41, 42, 7, 15, 18, 20, 25, 28, 30, 32) '颜色列表
            Range("A137:C137").Select
            Range("C137").Activate
        '    Selection.Interior.ColorIndex = arr1(Int(1 + (9 - 1 + 1) * Rnd()))
            Selection.Interior.ColorIndex = Int(3 + (56 - 3 + 1) * Rnd())
            Exit Sub
    End If
'    Call 回到第一行00
        Range("A1:K1").Select

    xLanguge___No_Str = Cells(xLanguge_No, xLanguge__Lie).Value
    Cells(21, 2) = xLanguge___No_Str
    Call 备份某个网页的内容
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub 备份某个网页的内容()

    Dim text As String
    Dim c As String
    Dim len1, len2, len3, i_JianTou_L, i_JianTou_R, iNeedReplace, lastRow_E, lastRow_J, lastRow_K As Long
    Dim xText2, tt1_L, tt1_R, KKK As String
    Dim n, n0, n1, n2, n3, i, nnn, nKK, ddd, L1, L2, MM, n1_L, n1R, n1_R, n2_L, n2_LL, ppp As Long
    Dim X, a, b, t11, yy, xText, t1, t1R, t2, xMark, yText As String
    Dim xxxFileName, xxxWebName, Subdirectory_Name As String
    Dim iFile_Name1, iFILE_PATH1, iFile_Tatol_Name1, iFile_Name2, iFILE_PATH2, iFile_Tatol_Name2, tLang As String
    Dim WebUrl As String
    Dim sheet As Worksheet
    Dim Mark_Cell, Beg_Cell, Beg2_Cell, End_Cell, Text_Cell, Input_Cell, ByteNo_Cell, Text_Cell_Optimize As Range
    Dim DDD1, DDD2, DDD3   As String
    Dim tHH, tJJ, tKK As String
        '''备份某个网页的内容

                    '读取当前选择的文件名和路径
                    '
                    iFile_Tatol_Name1 = Cells(1, 3) ''E:\, G-0501\www.10JNEX900.com\10JNEX900.html
                    iFile_Name1 = Cells(1, 2) ''10JNEX900.html
                    iFILE_PATH1 = Cells(1, 1) ''E:\, G-0501\www.10JNEX900.com

                    '目标语言的文件名和路径
                    '
                    '读取目标语言    '
                    tLang = Function_Get_Target_Lang(Cells(21, 2))
                    If tLang = "nonono_Lang" Then
                        MsgBox "目标语言为空，，， 请选择先，，"
                        Exit Sub
                    ElseIf tLang = "Return________中文中文" Then ''''中文，，，特殊处理。。。。有的网站代码没有这个语言
                        MsgBox "目标语言为  【中文】，，跳过。。。。"
                        Exit Sub
                    Else
                    End If

                    If InStr(iFILE_PATH1, "\" & tLang) Then  '错误地  选了目标语言的文件，
                        MsgBox "错误地选了某个目标语言的文件，xxxxxx， 要求选择源语言文件。。。"
                        Exit Sub
                    Else
                        Subdirectory_Name = "News" '子目录名字
                        If InStr(iFILE_PATH1, Subdirectory_Name) Then
                            iFile_Name2 = iFile_Name1 '目标文件名
                            iFILE_PATH2 = Left(iFILE_PATH1, InStr(iFILE_PATH1, "\" & Subdirectory_Name) - 1) & "\" & tLang '目标路径
                            iFile_Tatol_Name2 = iFILE_PATH2 & "\" & Subdirectory_Name & "\" & iFile_Name2   '目标文件名的全路径
                        Else
                            iFile_Name2 = iFile_Name1 '目标文件名
                            iFILE_PATH2 = iFILE_PATH1 & "\" & tLang '目标路径
                            iFile_Tatol_Name2 = iFILE_PATH2 & "\" & iFile_Name2    '目标文件名的全路径
                        End If
                    End If

                    '读文件内容，并修改/替换 局部内容
                    xText = ReadFileTe000xt000(iFile_Tatol_Name2)
                    '写文件
                    Call WriteFileText(xText, "E:\, G-0501\临时某个页面的代码.html") ''

End Sub

''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub 回到第一行00()
    ActiveWindow.ScrollRow = 1 '''将指定的工作表滚动到顶部
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub GOOGLE翻译成目标语言()
    '
    '
    Dim text As String
    Dim c As String
    Dim len1, len2, len3, i_JianTou_L, i_JianTou_R, iNeedReplace, iiii, lastRow_J, lastRow_K As Long
    Dim xText2, tt1_L, tt1_R, KKK As String
    Dim n, n0, n1, n2, n3, i, nnn, nKK, ddd, L1, L2, MM, n1_L, n1R, n1_R, n2_L, n2_LL, ppp As Long
    Dim X, a, b, t11, yy, xText, t1, t1R, t2, xMark, yText As String
    Dim xxxFileName, xxxWebName, Subdirectory_Name As String
    Dim iFile_Name1, iFILE_PATH1, iFile_Tatol_Name1, iFile_Name2, iFILE_PATH2, iFile_Tatol_Name2, tLang, d, TTT As String
    Dim WebUrl As String
    Dim sheet As Worksheet
    Dim Mark_Cell, Beg_Cell, Beg2_Cell, End_Cell, Text_Cell, Input_Cell, ByteNo_Cell, Text_Cell_Optimize As Range

Application.ScreenUpdating = False

    Set sheet = ActiveWorkbook.Sheets("解析网页，提炼词组，翻译词组，写入文件")
    '读取目标语言    '
    tLang = Function_Get_Target_Lang(Cells(21, 2))
    If tLang = "nonono_Lang" Then
        MsgBox "目标语言为空，，， 请选择先，，"
        Exit Sub
    Else
    End If
'
    '居中
    '
    Range("E1:M300").Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With

    ''清空内容和格式
    Range("K65000").Select
    Selection.Copy
    lastRow_K = MaxUsedRowInCol("K")
    Range("K" & Trim(str(1)) & ":K" & Trim(str(lastRow_K))).Select
    Range("K" & Trim(str(lastRow_K))).Activate
    ActiveSheet.Paste
    Range("K1").Select

    '更新 目标那行的总行数
    nnn = MaxUsedRowInCol("E") + 0

'
    '排序，
    '
    Range("E1:K" & Trim(str(nnn))).Select
    Range("E" & Trim(str(nnn))).Activate
    Selection.Sort Key1:=Range("E1"), Order1:=xlAscending, Key2:=Range("F1"), Order2:=xlAscending, Key3:=Range("H1"), Order3:=xlAscending, header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:=xlSortNormal
    Range("H5").Select
                                                                   Range("E" & Trim(str(1)) & ":I" & Trim(str(nnn))).Select
                                                                   Selection.Interior.ColorIndex = xlNone '''底色  白色

    Range("K" & Trim(str(1)) & ":K" & Trim(str(1))).Select

 ''https://translate.google.com/?hl=zh-CN&sl=auto&tl=fr&text=Home%20%0AAbout%20us%0AProducts%0AServices%0ANews%0AContact&op=translate
 ''https://translate.google.com/?hl=zh-CN&sl=auto&tl=fr&text=About%20us%0AContact%0ANews%0A&op=translate
    lastRow_J = MaxUsedRowInCol("J") + 0
    TTT = ""
    For i = 1 To lastRow_J
        If Len(TTT) < 5000 Then '''(谷歌翻译默认是5000个字符上限)
            If Cells(i, 10) = "" Then '10---J列,, 优化的词组
                'MsgBox str(i) & "行 的 str(cells(i,10))   为空格，..请检查。。。  "
                Exit For
            Else
                        d = Replace(Range("J" & Trim(str(i))), " ", "%20") '空格置换 为 %20
    '                    d = Replace(Range("J" & Trim(str(i))), "? ", "%20") '?置换 为 %20
                        If i = 1 Then
                            TTT = d
                        Else
                            TTT = TTT & "%0A" & d '加连接符号  %0A
                        End If
            End If
        Else
        End If
    Next
    '清空
    Range("K1:K1000").Select
    Range("K1000").Activate
    Selection.ClearContents
    'Selection.Interior.ColorIndex = xlNone '''底色  白色
    Range("K1").Select

    '打开Chrome浏览器的翻译网址
    '
    WebUrl = "https://translate.google.com/?hl=zh-CN&sl=auto&tl=" & tLang & "&text=" & TTT & "&op=translate"
    WebUrl = WebUrl
'    Shell ("C:\Program Files\Google\Chrome\Application\chrome.exe -url " & WebUrl) 'C:\Users\Administrator\AppData\Local\MyChrome\Chrome\Application\chrone.exe --disable-background-networking --user-data-dir="C:\Users\Administrator\AppData\Local\MyChrome\Chrome\MyData"
    Shell ("C:\Users\Administrator\AppData\Local\MyChrome\Chrome\Application\chrone.exe -url " & WebUrl) 'C:\Users\Administrator\AppData\Local\MyChrome\Chrome\Application\chrone.exe --disable-background-networking --user-data-dir="C:\Users\Administrator\AppData\Local\MyChrome\Chrome\MyData"

Application.ScreenUpdating = True

 End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub GOOGLE翻译成目标语言_____下一部分内容()
    Dim text As String
    Dim c As String
    Dim len1, len2, len3, i_JianTou_L, i_JianTou_R, iNeedReplace, lastRow_J As Long
    Dim xText2, tt1_L, tt1_R, KKK As String
    Dim n, n0, n1, n2, n3, i, nnn, nKK, ddd, L1, L2, MM, n1_L, n1R, n1_R, n2_L, n2_LL, ppp As Long
    Dim X, a, b, t11, yy, xText, t1, t1R, t2, xMark, yText As String
    Dim xxxFileName, xxxWebName, Subdirectory_Name As String
    Dim iFile_Name1, iFILE_PATH1, iFile_Tatol_Name1, iFile_Name2, iFILE_PATH2, iFile_Tatol_Name2, tLang, d, TTT As String
    Dim WebUrl As String
    Dim sheet As Worksheet
    Dim Mark_Cell, Beg_Cell, Beg2_Cell, End_Cell, Text_Cell, Input_Cell, ByteNo_Cell, Text_Cell_Optimize As Range

Application.ScreenUpdating = False

    Set sheet = ActiveWorkbook.Sheets("解析网页，提炼词组，翻译词组，写入文件")
    '读取目标语言    '
    tLang = Function_Get_Target_Lang(Cells(21, 2))
    If tLang = "nonono_Lang" Then
        MsgBox "目标语言为空，，， 请选择先，，"
        Exit Sub
    Else
    End If
    Dim iK As Long
            iK = MaxUsedRowInCol("K") + 0 - 0
            ''开始的这一行 加底色，，
            '
                            Range("J" & Trim(str(iK)) & ":K" & Trim(str(iK))).Select
                            Selection.Interior.ColorIndex = 55 '''底色 深蓝色
                            Selection.Font.ColorIndex = 3 ''红色
                            Selection.Font.Bold = True ''粗体
                            Range("K" & Trim(str(iK))).Select

    lastRow_J = MaxUsedRowInCol("J") + 0
 ''https://translate.google.com/?hl=zh-CN&sl=auto&tl=fr&text=Home%20%0AAbout%20us%0AProducts%0AServices%0ANews%0AContact&op=translate
 ''https://translate.google.com/?hl=zh-CN&sl=auto&tl=fr&text=About%20us%0AContact%0ANews%0A&op=translate
    TTT = ""
    For i = iK To lastRow_J
        If Range("J" & Trim(str(i))) = "" Then ' J列,, 优化的词组
            'MsgBox str(i) & "行 的 str(cells(i,10))   为空格，..请检查。。。  "
            Exit For
        Else
                    d = Replace(Range("J" & Trim(str(i))), " ", "%20") '空格置换 为 %20
'                    d = Replace(Range("J" & Trim(str(i))), "? ", "%20") '?置换 为 %20
                    If i = 1 Then
                        TTT = d
                    Else
                        TTT = TTT & "%0A" & d '加连接符号  %0A
                    End If
        End If
    Next
    '打开Chrome浏览器的翻译网址
    '
    WebUrl = "https://translate.google.com/?hl=zh-CN&sl=auto&tl=" & tLang & "&text=" & TTT & "&op=translate"
    WebUrl = WebUrl
'    Shell ("C:\Program Files\Google\Chrome\Application\chrome.exe -url " & WebUrl) 'C:\Users\Administrator\AppData\Local\MyChrome\Chrome\Application\chrone.exe --disable-background-networking --user-data-dir="C:\Users\Administrator\AppData\Local\MyChrome\Chrome\MyData"
    Shell ("C:\Users\Administrator\AppData\Local\MyChrome\Chrome\Application\chrone.exe -url " & WebUrl) 'C:\Users\Administrator\AppData\Local\MyChrome\Chrome\Application\chrone.exe --disable-background-networking --user-data-dir="C:\Users\Administrator\AppData\Local\MyChrome\Chrome\MyData"

Application.ScreenUpdating = True

 End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function Function_Get_Target_Lang(ByVal xCells As String) As String

    Dim tLang As String
    If xCells = "Return_French_____法语" Then
        tLang = "fr"
    ElseIf xCells = "Return_Spanish____西班牙" Then
        tLang = "es"
    ElseIf xCells = "Return_Deutsch____德语" Then
        tLang = "de"
    ElseIf xCells = "Return_Italian______意大利" Then
        tLang = "it"
    ElseIf xCells = "Return_Japanese___日本语" Then
        tLang = "ja"
    ElseIf xCells = "Return_Thailand___泰国" Then
        tLang = "th"
    ElseIf xCells = "Return_Russian____俄罗斯" Then
        tLang = "ru"
    ElseIf xCells = "Return_Portuguese_葡萄牙语" Then
        tLang = "pt"
    ElseIf xCells = "Return_Turkish____土耳其" Then
        tLang = "tr"
    ElseIf xCells = "Return_pl___波兰语" Then
        tLang = "pl"
    ElseIf xCells = "Return_sl___斯洛文尼亚语" Then
        tLang = "sl"
    ElseIf xCells = "Return_cs___捷克语" Then
        tLang = "cs"
    ElseIf xCells = "Return_no___挪威语" Then
        tLang = "no"
    ElseIf xCells = "Return_iw___希伯来语" Then
        tLang = "iw"
    ElseIf xCells = "Return_id___印尼语" Then
        tLang = "id"
    ElseIf xCells = "Return_nl___荷兰语" Then
        tLang = "nl"
    ElseIf xCells = "Return_da___丹麦语" Then
        tLang = "da"
    ElseIf xCells = "Return________中文中文" Then
        tLang = "zh-CN"
    ElseIf xCells = "Return_hu___匈牙利语" Then
        tLang = "hu"
    ElseIf xCells = "Return_ch___瑞士" Then
        tLang = "ch"
    ElseIf xCells = "Return_fi___芬兰语" Then
        tLang = "fi"
    ElseIf xCells = "Return_Vietnamese_越南" Then
        tLang = "vi"
    ElseIf xCells = "Return_uk___乌克兰语" Then
        tLang = "uk"
    ElseIf xCells = "Return_ar___阿拉伯语" Then
        tLang = "ar"
    ElseIf xCells = "Return_el___希腊语" Then
        tLang = "el"
    ElseIf xCells = "Return_bg___保加利亚语" Then
        tLang = "bg"
    ElseIf xCells = "Return_sv___瑞典语" Then
        tLang = "sv"
    ElseIf xCells = "Return_sk___斯洛伐克语" Then
        tLang = "sk"
    ElseIf xCells = "Return_ko___韩语" Then
        tLang = "ko"
    Else
        tLang = "nonono_Lang"
    End If
    Function_Get_Target_Lang = tLang

End Function

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub 简要GOOGLE翻译成目标语言()
    '
    '
    Dim text As String
    Dim c As String
    Dim len1, len2, len3, i_JianTou_L, i_JianTou_R, iNeedReplace As Long
    Dim xText2, tt1_L, tt1_R, KKK As String
    Dim n, n0, n1, n2, n3, i, nnn, nKK, ddd, L1, L2, MM, n1_L, n1R, n1_R, n2_L, n2_LL, ppp As Long
    Dim X, a, b, t11, yy, xText, t1, t1R, t2, xMark, yText As String
    Dim xxxFileName, xxxWebName, Subdirectory_Name As String
    Dim iFile_Name1, iFILE_PATH1, iFile_Tatol_Name1, iFile_Name2, iFILE_PATH2, iFile_Tatol_Name2, tLang, d, TTT As String
    Dim WebUrl As String
    Dim sheet As Worksheet
    Dim Mark_Cell, Beg_Cell, Beg2_Cell, End_Cell, Text_Cell, Input_Cell, ByteNo_Cell, Text_Cell_Optimize As Range

    Set sheet = ActiveWorkbook.Sheets("解析网页，提炼词组，翻译词组，写入文件")

    '读取目标语言    '
    tLang = Function_Get_Target_Lang(Cells(21, 2))
    If tLang = "nonono_Lang" Then
        MsgBox "目标语言为空，，， 请选择先，，"
        Exit Sub
    Else
    End If

''
''    '读取目标语言
''    '
''    If Cells(21, 2) = "Return_French_____法语" Then
''        tLang = "fr"
''    ElseIf Cells(21, 2) = "Return_Spanish____西班牙" Then
''        tLang = "es"
''    ElseIf Cells(21, 2) = "Return_Deutsch____德语" Then
''        tLang = "de"
''    ElseIf Cells(21, 2) = "Return_Italian______意大利" Then
''        tLang = "it"
''    ElseIf Cells(21, 2) = "Return_Japanese___日本语" Then
''        tLang = "ja"
''    ElseIf Cells(21, 2) = "Return_Thailand___泰国" Then
''        tLang = "th"
''    ElseIf Cells(21, 2) = "Return_Russian____俄罗斯" Then
''        tLang = "ru"
''    ElseIf Cells(21, 2) = "Return_Portuguese_葡萄牙语" Then
''        tLang = "pt"
''    ElseIf Cells(21, 2) = "Return_Turkish____土耳其" Then
''        tLang = "tr"
''    ElseIf Cells(21, 2) = "Return_pl___波兰语" Then
''        tLang = "pl"
''    ElseIf Cells(21, 2) = "Return_sl___斯洛文尼亚语" Then
''        tLang = "sl"
''    ElseIf Cells(21, 2) = "Return_cs___捷克语" Then
''        tLang = "cs"
''    ElseIf Cells(21, 2) = "Return_no___挪威语" Then
''        tLang = "no"
''    ElseIf Cells(21, 2) = "Return_iw___希伯来语" Then
''        tLang = "iw"
''    ElseIf Cells(21, 2) = "Return_id___印尼语" Then
''        tLang = "id"
''    ElseIf Cells(21, 2) = "Return_nl___荷兰语" Then
''        tLang = "nl"
''    ElseIf Cells(21, 2) = "Return_da___丹麦语" Then
''        tLang = "da"
''    ElseIf Cells(21, 2) = "Return________中文中文" Then
''        tLang = "zh-CN"
''    ElseIf Cells(21, 2) = "Return_hu___匈牙利语" Then
''        tLang = "hu"
''    ElseIf Cells(21, 2) = "Return_ch___瑞士" Then
''        tLang = "ch"
''    ElseIf Cells(21, 2) = "Return_fi___芬兰语" Then
''        tLang = "fi"
''    ElseIf Cells(21, 2) = "Return_Vietnamese_越南" Then
''        tLang = "vi"
''    ElseIf Cells(21, 2) = "Return_uk___乌克兰语" Then
''        tLang = "uk"
''    ElseIf Cells(21, 2) = "Return_ar___阿拉伯语" Then
''        tLang = "ar"
''    ElseIf Cells(21, 2) = "Return_el___希腊语" Then
''        tLang = "el"
''    ElseIf Cells(21, 2) = "Return_bg___保加利亚语" Then
''        tLang = "bg"
''    ElseIf Cells(21, 2) = "Return_sv___瑞典语" Then
''        tLang = "sv"
''    ElseIf Cells(21, 2) = "Return_sk___斯洛伐克语" Then
''        tLang = "sk"
''    ElseIf Cells(21, 2) = "Return_ko___韩语" Then
''        tLang = "ko"
''    Else
''        MsgBox "目标语言为空，，， 请选择先，，"
''        Exit Sub
''    End If

    TTT = "english"

    '清空
    Range("K1:K600").Select
    Range("K600").Activate
    Selection.ClearContents
    'Selection.Interior.ColorIndex = xlNone '''底色  白色
    Range("K1").Select

    '打开Chrome浏览器的翻译网址
    '
    WebUrl = "https://translate.google.com/?hl=zh-CN&sl=auto&tl=" & tLang & "&text=" & TTT & "&op=translate"
    WebUrl = WebUrl
'    Shell ("C:\Program Files\Google\Chrome\Application\chrome.exe -url " & WebUrl) 'C:\Users\Administrator\AppData\Local\MyChrome\Chrome\Application\chrone.exe --disable-background-networking --user-data-dir="C:\Users\Administrator\AppData\Local\MyChrome\Chrome\MyData"
    Shell ("C:\Users\Administrator\AppData\Local\MyChrome\Chrome\Application\chrone.exe -url " & WebUrl) 'C:\Users\Administrator\AppData\Local\MyChrome\Chrome\Application\chrone.exe --disable-background-networking --user-data-dir="C:\Users\Administrator\AppData\Local\MyChrome\Chrome\MyData"

 End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub 把目标语言词组写入源文件_并下一个()    '

    Dim lastRow_J, lastRow_K As Long
    Flag_there_are_spaces_in_the_target_language_cell = 0 '''清0，，，目标语言单元格存在空格 与否
    K_More_then_J = 0 ''目标语言的内容 多于 原始的语言内容的单元格数目
    Call 把目标语言词组写入源文件
    If K_More_then_J = 0 Then ''目标语言的内容  小于等于 原始的语言内容的单元格数目
        If Flag_there_are_spaces_in_the_target_language_cell = 0 Then ''不存在空格
            lastRow_J = MaxUsedRowInCol("J")
            lastRow_K = MaxUsedRowInCol("K")
            If lastRow_J = lastRow_K Then
                If Cells(21, 2) = "Return_sk___斯洛伐克语" Then '''
                    MsgBox "目标语言为  没有下一个了，，，，，，" & vbCrLf & vbCrLf & " 。。"
                    Exit Sub
                Else
                    Call xxx【下一个】
                    Call GOOGLE翻译成目标语言
                End If
            Else
                If lastRow_K > 0 Then
                    Call GOOGLE翻译成目标语言_____下一部分内容
                Else
                End If
            End If
        Else
        End If
    Else
    End If

End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''                                                                                        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''                                                                                        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''                                                                                        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function ReadFileTe000xt000(ByVal FilePath As String) As String

    Dim fs, f, ts, s, t1, t2, Ii, SText
    Dim AD As Object: Set AD = CreateObject("ADODB.Stream")
    AD.Charset = "utf-8"
    AD.Open
    AD.LoadFromFile FilePath
    ReadFileTe000xt000 = AD.readText
    AD.Close

End Function

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub 把目标语言词组写入源文件()
    '    '
    Dim text As String
    Dim c As String
    Dim len1, len2, len3, i_JianTou_L, i_JianTou_R, iNeedReplace, lastRow_E, lastRow_J, lastRow_K As Long
    Dim xText2, tt1_L, tt1_R, KKK As String
    Dim n, n0, n1, n2, n3, i, nnn, nKK, ddd, L1, L2, MM, n1_L, n1R, n1_R, n2_L, n2_LL, ppp As Long
    Dim X, a, b, t11, yy, xText, t1, t1R, t2, xMark, yText As String
    Dim xxxFileName, xxxWebName, Subdirectory_Name As String
    Dim iFile_Name1, iFILE_PATH1, iFile_Tatol_Name1, iFile_Name2, iFILE_PATH2, iFile_Tatol_Name2, tLang As String
    Dim WebUrl As String
    Dim sheet As Worksheet
    Dim Mark_Cell, Beg_Cell, Beg2_Cell, End_Cell, Text_Cell, Input_Cell, ByteNo_Cell, Text_Cell_Optimize As Range
    Dim DDD1, DDD2, DDD3   As String
    Dim tHH, tJJ, tKK As String
        ' 设置工作表为当前活动工作表
        Dim cell As Range
        Dim ws As Worksheet
        Set ws = ActiveSheet
        Dim rng As Range

        ' 剔除旧的语言单元格和新的目标语言的单元格，都为空的时候
        '
        '
        ''判断连续的几个单元格中有没有空白的单元格存在，
        lastRow_K = MaxUsedRowInCol("K") + 0
        Set rng = ws.Range("K" & Trim(str(1)) & ":K" & Trim(str(lastRow_K))) ' 修改此范围以适应你需要检查的单元格区域
        ' 设置要检查的单元格区域，例如A1:Z100
        Set rng = ws.Range("K" & Trim(str(1)) & ":K" & Trim(str(lastRow_K)))
        For Each cell In rng
            ' 检查单元格是否为空
            If IsEmpty(cell) And IsEmpty(cell.Offset(0, -1)) Then
                ' 设置单元格背景颜色为淡黄色.....
                Range("E" & Trim(str(cell.Row)) & ":K" & Trim(str(cell.Row))).Select
                Selection.Delete Shift:=xlUp
'                Flag_there_are_spaces_in_the_target_language_cell = 1 '''目标语言单元格存在空格
            End If
        Next cell

    ''判断连续的几个单元格中有没有空白的单元格存在，
    lastRow_K = MaxUsedRowInCol("K") + 0
    If Application.WorksheetFunction.CountBlank(rng) > 0 Then

        ' 设置要检查的单元格区域，例如A1:Z100
        Set rng = ws.Range("K" & Trim(str(1)) & ":K" & Trim(str(lastRow_K)))
        ' 遍历单元格区域
'        Dim cell As Range
        For Each cell In rng
            ' 检查单元格是否为空
            If IsEmpty(cell) Then
                ' 设置单元格背景颜色为淡黄色.....
                cell.Interior.Color = RGB(255, 255, 204)
                Flag_there_are_spaces_in_the_target_language_cell = 1 '''目标语言单元格存在空格
            End If
        Next cell

        '''【恢复】某个网页的内容

                    '读取当前选择的文件名和路径
                    '
                    iFile_Tatol_Name1 = Cells(1, 3)
                    iFile_Name1 = Cells(1, 2)
                    iFILE_PATH1 = Cells(1, 1)
                    '目标语言的文件名和路径
                    '
                    '读取目标语言    '
                    tLang = Function_Get_Target_Lang(Cells(21, 2))
                    If tLang = "nonono_Lang" Then
                        MsgBox "目标语言为空，，， 请选择先，，"
                        Exit Sub
                    Else
                    End If
                    If InStr(iFILE_PATH1, "\" & tLang) Then  '错误地  选了目标语言的文件，
                        MsgBox "错误地选了某个目标语言的文件，xxxxxx， 要求选择源语言文件。。。"
                        Exit Sub
                    Else
                        Subdirectory_Name = "News" '子目录名字
                        If InStr(iFILE_PATH1, Subdirectory_Name) Then
                            iFile_Name2 = iFile_Name1 '目标文件名
                            iFILE_PATH2 = Left(iFILE_PATH1, InStr(iFILE_PATH1, "\" & Subdirectory_Name) - 1) & "\" & tLang '目标路径
                            iFile_Tatol_Name2 = iFILE_PATH2 & "\" & Subdirectory_Name & "\" & iFile_Name2   '目标文件名的全路径
                        Else
                            iFile_Name2 = iFile_Name1 '目标文件名
                            iFILE_PATH2 = iFILE_PATH1 & "\" & tLang '目标路径
                            iFile_Tatol_Name2 = iFILE_PATH2 & "\" & iFile_Name2    '目标文件名的全路径
                        End If
                    End If

                    '读文件内容，并修改/替换 局部内容
                    xText = ReadFileTe000xt000("E:\, G-0501\临时某个页面的代码.html")
                    '写文件
                    Call WriteFileText(xText, iFile_Tatol_Name2) ''
        MsgBox "lastRow_K:" & str(lastRow_K) & vbCrLf & "K列【最后一行往上看】的 范围内 存在【空白】单元格。" & vbCrLf & vbCrLf & "提前退出..【把目标语言词组写入源文件】函数......." & vbCrLf & "【建议换一个翻译软件】" & vbCrLf & "【建议换一个翻译软件】" & vbCrLf & "【建议换一个翻译软件】" & vbCrLf & "【建议换一个翻译软件】" & vbCrLf & "【建议换一个翻译软件】"
        Exit Sub
    Else
'        MsgBox "范围内没有空白单元格。"
    End If

    ''判断连续的几个单元格中有没有空白的单元格存在，
    lastRow_J = MaxUsedRowInCol("J") + 0
    lastRow_K = MaxUsedRowInCol("K") + 0
    If lastRow_J < lastRow_K Then ''''目标语言的内容 多于 原始的语言内容的单元格数目
        K_More_then_J = 1

        '''【恢复】某个网页的内容

                    '读取当前选择的文件名和路径
                    '
                    iFile_Tatol_Name1 = Cells(1, 3)
                    iFile_Name1 = Cells(1, 2)
                    iFILE_PATH1 = Cells(1, 1)
                    '目标语言的文件名和路径
                    '
                    '读取目标语言    '
                    tLang = Function_Get_Target_Lang(Cells(21, 2))
                    If tLang = "nonono_Lang" Then
                        MsgBox "目标语言为空，，， 请选择先，，"
                        Exit Sub
                    Else
                    End If
                    If InStr(iFILE_PATH1, "\" & tLang) Then  '错误地  选了目标语言的文件，
                        MsgBox "错误地选了某个目标语言的文件，xxxxxx， 要求选择源语言文件。。。"
                        Exit Sub
                    Else
                        Subdirectory_Name = "News" '子目录名字
                        If InStr(iFILE_PATH1, Subdirectory_Name) Then
                            iFile_Name2 = iFile_Name1 '目标文件名
                            iFILE_PATH2 = Left(iFILE_PATH1, InStr(iFILE_PATH1, "\" & Subdirectory_Name) - 1) & "\" & tLang '目标路径
                            iFile_Tatol_Name2 = iFILE_PATH2 & "\" & Subdirectory_Name & "\" & iFile_Name2   '目标文件名的全路径
                        Else
                            iFile_Name2 = iFile_Name1 '目标文件名
                            iFILE_PATH2 = iFILE_PATH1 & "\" & tLang '目标路径
                            iFile_Tatol_Name2 = iFILE_PATH2 & "\" & iFile_Name2    '目标文件名的全路径
                        End If
                    End If

                    '读文件内容，并修改/替换 局部内容
                    xText = ReadFileTe000xt000("E:\, G-0501\临时某个页面的代码.html")
                    '写文件
                    Call WriteFileText(xText, iFile_Tatol_Name2) ''
        MsgBox "lastRow_J:" & str(lastRow_J) & vbCrLf & "lastRow_K:" & str(lastRow_K) & vbCrLf & vbCrLf & "K列，目标语言的内容 多于 原始的语言内容的单元格数目。" & vbCrLf & vbCrLf & "提前退出..【把目标语言词组写入源文件】函数......." & vbCrLf & "【建议换一个翻译软件】" & vbCrLf & "【建议换一个翻译软件】" & vbCrLf & "【建议换一个翻译软件】" & vbCrLf & "【建议换一个翻译软件】" & vbCrLf & "【建议换一个翻译软件】"
        Exit Sub
    Else
'        MsgBox "范围内没有空白单元格。"
    End If

Application.ScreenUpdating = False

    Set sheet = ActiveWorkbook.Sheets("解析网页，提炼词组，翻译词组，写入文件")
    '读取目标语言    '
    tLang = Function_Get_Target_Lang(Cells(21, 2))
    If tLang = "nonono_Lang" Then
        MsgBox "目标语言为空，，， 请选择先，，"
        Exit Sub
    Else
    End If
    Call 加水印__AddWatermarkForExcel2003(Cells(21, 2)) '''加水印  内容

    G_Row = 1
    G_Col = 4 'D列
    '读取当前选择的文件名和路径
    '
    iFile_Tatol_Name1 = Cells(1, 3)
    iFile_Name1 = Cells(1, 2)
    iFILE_PATH1 = Cells(1, 1)
    '目标语言的文件名和路径
    '
    If InStr(iFILE_PATH1, "\" & tLang) Then  '错误地  选了目标语言的文件，
        MsgBox "错误地选了某个目标语言的文件，xxxxxx， 要求选择源语言文件。。。"
        Exit Sub
    Else
        Subdirectory_Name = "News" '子目录名字
        If InStr(iFILE_PATH1, Subdirectory_Name) Then
            iFile_Name2 = iFile_Name1 '目标文件名
            iFILE_PATH2 = Left(iFILE_PATH1, InStr(iFILE_PATH1, "\" & Subdirectory_Name) - 1) & "\" & tLang '目标路径
            iFile_Tatol_Name2 = iFILE_PATH2 & "\" & Subdirectory_Name & "\" & iFile_Name2   '目标文件名的全路径
        Else
            iFile_Name2 = iFile_Name1 '目标文件名
            iFILE_PATH2 = iFILE_PATH1 & "\" & tLang '目标路径
            iFile_Tatol_Name2 = iFILE_PATH2 & "\" & iFile_Name2    '目标文件名的全路径
        End If
    End If

    '更新 目标那行的总行数
    lastRow_E = MaxUsedRowInCol("E") + 0
    nnn = lastRow_E
    '排序，
    '
    Range("E1:K" & Trim(str(nnn))).Select
    Range("E" & Trim(str(nnn))).Activate
    Selection.Sort Key1:=Range("E1"), Order1:=xlAscending, Key2:=Range("F1"), Order2:=xlAscending, Key3:=Range("H1"), Order3:=xlAscending, header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:=xlSortNormal
    Range("H5").Select
                                                                    Range("E" & Trim(str(1)) & ":I" & Trim(str(nnn))).Interior.Color = RGB(255, 255, 255) ''白色
    '目标语言词组为空，则跳出，    '
    If Range("K" & Trim(str(1))) = "" Then
        MsgBox "目标语言词组的【内容】为空，，，" & vbCrLf & vbCrLf & "  请先 从Google浏览器 复制 一下，，"
        Exit Sub
    Else
    End If

''''''''''''''''''''读文件
                    ' Dim Ii
                    ' Dim AD As Object: Set AD = CreateObject("ADODB.Stream")
                    ' AD.Charset = "utf-8"
                    ' AD.Open
                    ' AD.LoadFromFile iFile_Tatol_Name2
                    ' xText = AD.readText
                    ' AD.Close
                    '读文件内容，并修改/替换 局部内容
                    xText = ReadFileTe000xt000(iFile_Tatol_Name2)

    '更新 目标语言的行数    ,,,有可能是【分几次】翻译单元格的内容
    '
    lastRow_J = MaxUsedRowInCol("J")
    lastRow_K = MaxUsedRowInCol("K")
    If lastRow_J = lastRow_K Then
        nnn = lastRow_K
    Else
        nnn = lastRow_K - 1
    End If
    nnn = nnn ''MaxUsedRowInCol("K")
 ''
    For i = 1 To nnn
        If Range("J" & Trim(str(i))) = "" Then  'J列，， 优化的词组
            MsgBox "第" & str(i) & "行 的【J】单元格  str(cells(i,10))   为空格，..请检查。。。  "
            Exit For
        Else

                                                            '
                                                            '更改文件开头地方的语言的短语字符段
                                                            '
                                                            xText = Replace(xText, "<html lang=""en"">", "<html lang=""" & tLang & """>")

'                                        If Range("H" & Trim(str(i))) <> Range("J" & Trim(str(i))) Then   '有超链接，  如：1）文本超链接，  2）粗体Strong
                                            tHH = Range("F" & Trim(str(i))) & Range("H" & Trim(str(i))) & Range("I" & Trim(str(i)))
                                            tJJ = Range("F" & Trim(str(i))) & Range("J" & Trim(str(i))) & Range("I" & Trim(str(i)))
                                            tKK = Range("F" & Trim(str(i))) & Range("K" & Trim(str(i))) & Range("I" & Trim(str(i)))
'                                        Else
'                                            tHH = Range("F" & Trim(str(i))) & Range("J" & Trim(str(i))) & Range("I" & Trim(str(i)))
'                                            tKK = Range("F" & Trim(str(i))) & Range("K" & Trim(str(i))) & Range("I" & Trim(str(i)))
'                                        End If
'
'                    If Cells(i, 10) = "There is no best only better.Any need please feel free to Contact us, we are confident to meet your needs. Thank you for your support and trust to create a better future." Then
'
'                                                                    xText = xText   '  MsgBox xText
'                    Else
'                                                                    xText = xText   '  MsgBox xText
'                    End If

                                        If InStr(xText, tJJ) > 0 Then  ''''简单字符串 替换，无特殊 字体效果
                                            If InStr(tJJ, "The prototyping time for bonded laminates usually takes about") > 0 Then
                                                tJJ = tJJ
                                            Else
                                                tJJ = tJJ
                                            End If
                                            Range("O" & Trim(str(i))) = tJJ
                                            Range("P" & Trim(str(i))) = tKK

                                            xText = Replace(xText, tJJ, tKK)

                                            If InStr(xText, tKK) > 0 Then
                                                tJJ = tJJ

                                                        ''''''''''''''''''''写文件
'                                                                            Call WriteFileText(xText, iFile_Tatol_Name2) ''覆盖原文件，，

                                            Else
                                                tJJ = tJJ
                                            End If
                                                                    Range("E" & Trim(str(i)) & ":I" & Trim(str(i))).Interior.Color = RGB(255, 192, 203) '' 粉色 (Pink)
                                                                    Range("U" & Trim(str(i))) = "RGB(255, 192, 203) '' 粉色 (Pink) "

                                        ElseIf InStr(xText, tHH) > 0 Then  ''''字符串 有 特殊 字体效果
                                            xText = Replace(xText, tHH, tKK)
                                                                    Range("E" & Trim(str(i)) & ":I" & Trim(str(i))).Interior.Color = RGB(65, 105, 225) '' 皇家蓝/宝蓝
                                                                    Range("U" & Trim(str(i))) = "RGB(65, 105, 225) '' 皇家蓝/宝蓝"

                                        Else
        
                                            xMark = Cells(i, 5)
                                            If xMark = "2）导航部分" Then
                                                    '特定词组
                                                    L1 = InStr(xText, "<head>")
                                                    L2 = InStr(L1, xText, "</head>")
                                                    DDD1 = Left(xText, L1 - 1) '
                                                    DDD2 = Mid(xText, L1, (L2 - L1)) '
                                                    DDD3 = Right(xText, Len(xText) - (L2 - 1)) '

                                                    If InStr(DDD2, Cells(i, 11) & "<") Then '已经 翻译了
'                                                        DDD2 = Replace(DDD2, Cells(i, 8) & "<", Cells(i, 11) & "<")
                                                        xText = DDD1 & DDD2 & DDD3
                                                                                    Range("E" & Trim(str(i)) & ":I" & Trim(str(i))).Select
                                                                                    With Selection.Interior
                                                                                        .ColorIndex = xlNone
                                                                                        .Pattern = xlSolid
                                                                                    End With
                                                    Else
                                                        DDD2 = Replace(DDD2, Cells(i, 8) & "<", Cells(i, 11) & "<")
                                                        xText = DDD1 & DDD2 & DDD3
                                                                    Range("E" & Trim(str(i)) & ":I" & Trim(str(i))).Interior.Color = RGB(230, 230, 250) ''淡紫色/熏衣草淡紫
                                                                    Range("U" & Trim(str(i))) = "RGB(230, 230, 250) ''淡紫色/熏衣草淡紫"
                                                    End If

                                            ElseIf xMark = "3）Body部分" Then
                                
                                                    tHH = Range("F" & Trim(str(i))) & Range("H" & Trim(str(i))) & Range("I" & Trim(str(i)))
                                                    tKK = Range("F" & Trim(str(i))) & Range("K" & Trim(str(i))) & Range("I" & Trim(str(i)))

                                                    If InStr(xText, tHH) Then
                                                        xText = Replace(xText, tHH, tKK)
                                                                    Range("E" & Trim(str(i)) & ":I" & Trim(str(i))).Interior.Color = RGB(147, 112, 219) ''中紫色
                                                                    Range("U" & Trim(str(i))) = "RGB(147, 112, 219) ''中紫色"

                                                    Else
                                                    End If
                                
                                            ElseIf xMark = "4）Foot部分" Then
                                                    '特定词组
                                                    L1 = InStr(xText, "<div class=""footer"">")
'                                                    L2 = InStr(L1, xText, "<!-- Copyright   END -->")
                                                    L2 = InStr(L1, xText, "<p class=""pb-2 p-small statement"">") '''特定界限，，，
                                                    DDD1 = Left(xText, L1 - 1) '
                                                    DDD2 = Mid(xText, L1, (L2 - L1)) '
                                                    DDD3 = Right(xText, Len(xText) - (L2 - 1)) '

                                                    If InStr(DDD2, Cells(i, 11) & "<") Then '已经 翻译了
'                                                        DDD2 = Replace(DDD2, Cells(i, 8) & "<", Cells(i, 11) & "<")
                                                        xText = DDD1 & DDD2 & DDD3
                                                                    Range("E" & Trim(str(i)) & ":I" & Trim(str(i))).Interior.Color = RGB(255, 255, 255) ''白色
                                                    Else
                                                        DDD2 = Replace(DDD2, Cells(i, 8) & "<", Cells(i, 11) & "<")
                                                        xText = DDD1 & DDD2 & DDD3
                                                                    Range("E" & Trim(str(i)) & ":I" & Trim(str(i))).Interior.Color = RGB(255, 239, 213) ''番木色/番木瓜
                                                                    Range("U" & Trim(str(i))) = "RGB(255, 239, 213) ''番木色/番木瓜"
                                                    End If
                                            Else
                                            End If
                                        End If
        End If
    Next

''''''''''''''''''''写文件
                    Call WriteFileText(xText, iFile_Tatol_Name2) ''覆盖原文件，，

    Range("A138:C138").Select '''这几个单元格，插入一行的地方，往下移
    Range("C138").Activate
    Selection.Insert Shift:=xlDown
'    Rows("138:138").Select
'    Selection.Insert Shift:=xlDown
    Range("A138").Select
    ActiveCell.FormulaR1C1 = Now()
    Range("B138").Select
    ActiveCell.FormulaR1C1 = xLanguge___No_Str
    Range("C138").Select
    ActiveCell.FormulaR1C1 = iFile_Tatol_Name2

    ActiveWindow.LargeScroll Up:=3, ToLeft:=3 ''' "将当前窗口向上滚动3页并向左滚动3页"

    n2 = n2
    Application.ScreenUpdating = True
 End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function 提炼字符串(ByVal xMark As String, ByVal xText As String, ByVal t1 As String, ByVal t1R As String, ByVal t2 As String, ByVal MM As Long, ByVal L1 As Long, ByVal L2 As Long, ByVal nKK As Long, ByVal xG_Row As Long, ByVal xG_Col As Long, ByVal iifile_name As String, ByVal iFILE_NAME_1 As String, ByVal iFILE_PATH_1 As String) As Long
 '
    Dim sheet As Worksheet
    Dim Mark_Cell, Beg_Cell, Beg2_Cell, End_Cell, Text_Cell, Text_Cell_Optimize, s As Range
    Dim n03, n1, n11, n12, n13, n14, n15, n16, n17, n18, n19, n20, n2, iFind_the_string As Long
    Dim yy, yText, xxxxTest, MID_STR As String
    Dim n01, n02, n1R  As Long
    Dim ssssss
    Set sheet = ActiveWorkbook.Sheets("解析网页，提炼词组，翻译词组，写入文件")

    Set Mark_Cell = sheet.Range("E" & G_Row)
    Set Beg_Cell = sheet.Range("F" & G_Row)
    Set Beg2_Cell = sheet.Range("G" & G_Row)
    Set End_Cell = sheet.Range("I" & G_Row)
    Set Text_Cell = sheet.Range("H" & G_Row)
    Set Text_Cell_Optimize = sheet.Range("J" & G_Row) '优化后的词组，  如：1）超链接contact us ,  2)粗体strong

    '有效数据加以限制
    '
    yText = Left(xText, L2)

    提炼字符串 = MM

    If xMark = "1）头部" Then
            '过滤特定词组
            '
            If MM = InStr(MM, yText, "<meta http-equiv=""content-type"" content=""text/html; charset=utf-8"">") Then
                提炼字符串 = MM + 1
            ElseIf MM = InStr(MM, yText, "<meta name=""viewport"" content=""width=device-width, initial-scale=1, shrink-to-fit=no""/>") Then
                提炼字符串 = MM + 1
            ElseIf MM = InStr(MM, yText, "<meta http-equiv=""X-UA-Compatible"" content=""IE=edge""/>") Then
                提炼字符串 = MM + 1
            ElseIf MM = InStr(MM, yText, "<meta name=""format-detection"" content=""telephone=no,email=no,date=no,address=no"">") Then
                提炼字符串 = MM + 1
            ElseIf MM = InStr(MM, yText, "<meta name=""application-name"" content=""DongGuan YouYou Technology Co.,Ltd"">") Then
                提炼字符串 = MM + 1
            ElseIf MM = InStr(MM, yText, "<meta name=""author"" content=""DongGuan YouYou Technology, 506586589@qq.com""/>") Then
                提炼字符串 = MM + 1
            ElseIf MM = InStr(MM, yText, "<meta property=""og:type"" content=""product"">") Then
                提炼字符串 = MM + 1
            ElseIf MM = InStr(MM, yText, "<meta property=""og:site"" content=""https://www.istator.com""/>") Then
                提炼字符串 = MM + 1
            ElseIf MM = InStr(MM, yText, "<meta itemprop=""image"" content=""https://www.istator.com/images/Bonding-varnish-Backlack.jpg""/>") Then
                提炼字符串 = MM + 1
            ElseIf MM = InStr(MM, yText, "<meta property=""og:image"" content=""https://www.istator.com/images/Bonding-varnish-Backlack.jpg""/>") Then
                提炼字符串 = MM + 1
            ElseIf MM = InStr(MM, yText, "<meta property=""og:url"" content=""https://www.istator.com""/>") Then
                提炼字符串 = MM + 1
            ElseIf MM = InStr(MM, yText, "<meta name=""twitter:card"" content=""summary_large_image"">") Then
                提炼字符串 = MM + 1
            ElseIf MM = InStr(MM, yText, "<meta name=""twitter:image"" content=""https://www.istator.com/images/Bonding-varnish-Backlack.jpg"">") Then
                提炼字符串 = MM + 1
            Else
                If t1 = "<title>" And t2 = "</title>" Then
                    n1 = InStr(MM, yText, t1)
                    n2 = InStr(n1, yText, t2)
                    Mark_Cell.Value = xMark
                    Beg_Cell.Value = Mid(yText, n1, Len(t1))
                    End_Cell.Value = Mid(yText, n2, Len(t2))
                    Text_Cell.Value = Mid(yText, n1 + Len(t1), n2 - n1 - Len(t1))
                    提炼字符串 = n2 + Len(t2) - 1 '下一个位置
                    G_Row = G_Row + 1
                ElseIf t1 = "<meta " And t2 = ">" Then
                    n1 = InStr(MM, yText, t1)
                    n2 = InStr(n1, yText, t2)
                    yy = Left(yText, n2 - 1) '截取 包含目标字符串的 左边大内容
                    n14 = InStrRev(yy, """") '字符串的左边双引号的位置
                    n13 = InStrRev(Left(yy, n14 - 1), """")  '字符串的左边双引号的位置
                    Mark_Cell.Value = xMark
                    Beg_Cell.Value = Mid(yText, n1, n13 - n1 + 1)
                    End_Cell.Value = Mid(yText, n14, n2 - n14 + 1)
                    Text_Cell.Value = Mid(yText, n13 + 1, n14 - n13 - 1)
                    提炼字符串 = n2 + Len(t2) - 1 '下一个位置
                    G_Row = G_Row + 1
                Else
                End If
            End If
    ElseIf xMark = "2）导航部分" Then
            '过滤特定词组
'            '
'
            If MM = InStr(MM, yText, "<a class=""nav-link page-scroll"" href=""../index.html"">Home") Then
                If t1 = "<a class=""nav-link page-scroll"" href=""../index.html"">" And t2 = "<span class=""sr-only"">" Then '特殊处理，，，<a class="nav-link page-scroll" href="../index.html">Home <span class="sr-only">(current)</span></a>
                    n1 = InStr(MM, yText, t1)
                    n2 = InStr(n1, yText, t2)
                    yy = Trim(Left(yText, n2 - 1)) '截取 包含目标字符串的 左边大内容
                    n13 = InStrRev(Left(yy, n2 - 1), ">")  '字符串的左边>的位置
                    Mark_Cell.Value = xMark
                    Beg_Cell.Value = Mid(yText, n1, n13 + 1 - n1)
                    End_Cell.Value = Mid(yText, n2, Len(t2))
                    Text_Cell.Value = Mid(yText, n13 + 1, n2 - (n13 + 1))
                    提炼字符串 = n2 + Len(t2) - 1 '下一个位置
                    G_Row = G_Row + 1
                Else
                    提炼字符串 = MM + 1
                End If
''          <a class="nav-link page-scroll" href="index.html">Home
''            <span class="sr-only">(current)</span></a>
            ElseIf MM = InStr(MM, yText, "<a class=""nav-link page-scroll"" href=""index.html"">") Then
                If t1 = "<a class=""nav-link page-scroll"" href=""index.html"">" And t2 = "<span class=""sr-only"">" Then '特殊处理，，<a class="nav-link page-scroll" href="index.html">Home <span class="sr-only">(current)</span></a>
                    n1 = InStr(MM, yText, t1)
                    n2 = InStr(n1, yText, t2)
                    yy = Trim(Left(yText, n2 - 1)) '截取 包含目标字符串的 左边大内容
                    n13 = InStrRev(Left(yy, n2 - 1), ">")  '字符串的左边>的位置
                    Mark_Cell.Value = xMark
                    Beg_Cell.Value = Mid(yText, n1, n13 + 1 - n1)
                    End_Cell.Value = Mid(yText, n2, Len(t2))
                    Text_Cell.Value = Mid(yText, n13 + 1, n2 - (n13 + 1))
                    提炼字符串 = n2 + Len(t2) - 1 '下一个位置
                    G_Row = G_Row + 1
                Else
                    提炼字符串 = MM + 1
                End If
            Else
                If t1 = "<!-- " And t2 = "-->" Then '注释语句，忽略。。。<!-- Text Logo - Use this if you don't have a graphic logo -->
                    n1 = InStr(MM, yText, t1)
                    n2 = InStr(n1, yText, t2)
                    提炼字符串 = n2 + Len(t2) - 1 '下一个位置
                    G_Row = G_Row + 1
                ElseIf t1 = "<a class=""nav-link" And t2 = "</a>" Then  '<a class="nav-link page-scroll" href="About.html">About us</a>
                    n1 = InStr(MM, yText, t1)
                    n2 = InStr(n1, yText, t2)
                    yy = Left(yText, n2 - 1) '截取 包含目标字符串的 左边大内容
                    n13 = InStrRev(Left(yy, n2 - 1), ">")  '字符串的左边>的位置
                    Mark_Cell.Value = xMark
                    Beg_Cell.Value = Mid(yText, n1, n13 + 1 - n1)
                    End_Cell.Value = Mid(yText, n2, Len(t2))
                    Text_Cell.Value = Mid(yText, n13 + 1, n2 - (n13 + 1))
                    提炼字符串 = n2 + Len(t2) - 1 '下一个位置
                    G_Row = G_Row + 1
                ElseIf t1 = "<a class=""dropdown-item" And t2 = "</a>" Then  '<a class="dropdown-item page-scroll" href="Stator-Core.html">Stator Core</a>
                    n1 = InStr(MM, yText, t1)
                    n2 = InStr(n1, yText, t2)
                    yy = Left(yText, n2 - 1) '截取 包含目标字符串的 左边大内容
                    n13 = InStrRev(Left(yy, n2 - 1), ">")  '字符串的左边>的位置
                    Mark_Cell.Value = xMark
                    Beg_Cell.Value = Mid(yText, n1, n13 + 1 - n1)
                    End_Cell.Value = Mid(yText, n2, Len(t2))
                    Text_Cell.Value = Mid(yText, n13 + 1, n2 - (n13 + 1))
                    提炼字符串 = n2 + Len(t2) - 1 '下一个位置
                    G_Row = G_Row + 1
                Else
                End If
            End If

    ElseIf xMark = "3）Body部分" Then
            '过滤特定词组

            '
            If MM = InStr(MM, yText, "<a class=""nav-link page-scroll"" href=""index.html"">Home <span class=""sr-only"">(current)</span>") Then
                    提炼字符串 = MM + 1
            ElseIf MM = InStr(MM, yText, "<p class=""mb-4"">+086-18826897469</p>") Then
                    提炼字符串 = MM + 1
            ElseIf MM = InStr(MM, yText, "<p class=""mb-4"">506586589@qq.com</p>") Then
                    提炼字符串 = MM + 1

'<p class='mb-4'><a class="text-indigo-600 font-semibold underline decoration-green" href="../Bonding-varnish-Backlack.html">Backlack</a> - connection technology for perfect laminations! </p>

'<p class="mb-4">There is no best only better.Any need please feel free to <a class="text-indigo-600" href="Contact.html">Contact</a> us, we are confident to meet your needs. Thank you for your support and trust to create a better future.</p>
'<p class="mb-4">There is no best only better.Any need please feel free to <a class="text-indigo-600" href="Contact.html">Contact</a> us, we ...ture.</p>
            ElseIf MM = InStr(MM, yText, "<p class=""mb-4"">There is no best only better.Any need please feel free to <a class") Then
                    n1 = InStr(MM, yText, t1)
                    n2 = InStr(n1, yText, t2)
                    n11 = InStr(n1, yText, ">")
                    n12 = InStr(n11, yText, "<")
                    n13 = InStr(n12, yText, ">")
                    n14 = InStr(n13, yText, "<")
                    n15 = InStr(n14, yText, ">")
                    n16 = InStr(n15, yText, "<")
                    If n16 <> n2 Then MsgBox "There is no best only better.Any need please feel free to <a class=  代码段格式有误"
                    Mark_Cell.Value = xMark
                    Beg_Cell.Value = Mid(yText, n1, n11 + 1 - n1)
                    End_Cell.Value = t2
                    Text_Cell.Value = Mid(yText, n11 + 1, n2 - (n11 + 1))
                    Text_Cell_Optimize.Value = Mid(yText, n11 + 1, n12 - (n11 + 1)) & Mid(yText, n13 + 1, n14 - (n13 + 1)) & Mid(yText, n15 + 1, n16 - (n15 + 1))
                    提炼字符串 = n2 + Len(t2) - 1: G_Row = G_Row + 1
'<p class="mb-4">If you have any questions, please feel free to <a class="text-indigo-600" href="Contact.html">Contact</a> us.</p>
            ElseIf MM = InStr(MM, yText, "<p class=""mb-4"">If you have any questions, please feel free to") Then
                    n1 = InStr(MM, yText, t1)
                    n2 = InStr(n1, yText, t2)
                    n11 = InStr(n1, yText, ">")
                    n12 = InStr(n11, yText, "<")
                    n13 = InStr(n12, yText, ">")
                    n14 = InStr(n13, yText, "<")
                    n15 = InStr(n14, yText, ">")
                    n16 = InStr(n15, yText, "<")
                    If n16 <> n2 Then MsgBox "There is no best only better.Any need please feel free to <a class=  代码段格式有误"
                    Mark_Cell.Value = xMark
                    Beg_Cell.Value = Mid(yText, n1, n11 + 1 - n1)
                    End_Cell.Value = t2
                    Text_Cell.Value = Mid(yText, n11 + 1, n2 - (n11 + 1))
                    Text_Cell_Optimize.Value = Mid(yText, n11 + 1, n12 - (n11 + 1)) & Mid(yText, n13 + 1, n14 - (n13 + 1)) & Mid(yText, n15 + 1, n16 - (n15 + 1))
                    提炼字符串 = n2 + Len(t2) - 1: G_Row = G_Row + 1

'<div class="flex-1 ml-2"><strong>Stator Diameter</strong> : 5-450mm</div>
'<div class="flex-1 ml-2"><strong>Winding service</strong>.........</div>
'<div class="flex-1 ml-2"><strong>Winding service</strong> : Manual Winding for prototype sample and automatic machine winding for our productions.</div>
            ElseIf MM = InStr(MM, yText, "<div class=""flex-1 ml-2""><strong>") Then
                    n1 = InStr(MM, yText, t1)
                    n2 = InStr(n1, yText, t2)
                    n11 = InStr(n1, yText, ">") ''<div class="flex-1 ml-2">的右箭头
                    n12 = InStr(n11, yText, "<") ''<strong>的左箭头
                    n13 = InStr(n12, yText, ">") ''<strong>的右箭头
                    n14 = InStr(n13, yText, "<") ''</strong>的左箭头
                    n15 = InStr(n14, yText, ">") ''</strong>的右箭头
                    n16 = InStr(n15, yText, "<")
                    If n16 <> n2 Then MsgBox "<div class=""flex-1 ml-2""><strong>Stator Diameter</strong> : 5-450mm</div>  代码段格式有误"
                    Mark_Cell.Value = xMark
                    Beg_Cell.Value = Mid(yText, n1, n11 + 1 - n1)
                    End_Cell.Value = t2
                    Text_Cell.Value = Mid(yText, n11 + 1, n2 - (n11 + 1))
                    Text_Cell_Optimize.Value = Mid(yText, n11 + 1, n12 - (n11 + 1)) & Mid(yText, n13 + 1, n14 - (n13 + 1)) & Mid(yText, n15 + 1, n16 - (n15 + 1)) ''优化后的字符串，去掉无关的<..><..>代码
                    提炼字符串 = n2 + Len(t2) - 1: G_Row = G_Row + 1
'<h1 class="xl:ml-24"><span class="yy-title-gradient">30HGSA, 30ChGSA, 30KhGSA, 30CrMnSiA</span> - Structural Alloy Steel</h1>
'<h1 class="xl:ml-24">Revealing the <span class="yy-title-gradient">Laminated Stamping</span> Manufacturing Process of Motor Stator and Rotor Cores</h1>
'<p class="p-large mb-8"><span class="yy-title-gradient">smaller and lighter with higher efficiency</span></p>
            ElseIf MM = InStr(MM, yText, "<span class=""yy-title-gradient"">") Then
            ssssss = Mid(yText, MM - 20, 100)
'            MsgBox "1147【存在  <span class=""yy-title-gradient"">。。。。。。</span>    特征字符串】："   & vbCrLf & vbCrLf & ssssss
                    n1 = InStr(MM, yText, t1)
                    n1R = InStr(n1, yText, t1R)
                    n2 = InStr(n1R + Len(t1R), yText, t2)
                    n11 = InStr(n1, yText, ">") ''<span class="yy-title-gradient">的右箭头
                    n12 = InStr(n11, yText, "<") ''</span>的左箭头
                    n13 = InStr(n12, yText, ">") ''</span>的右箭头
                    n16 = InStr(n13, yText, "<") ''</h1>的左箭头
                    n17 = InStr(n16, yText, ">") ''</h1>的右箭头

                    n01 = InStrRev(yText, ">", n1) ''<h1 class="xl:ml-24">的右箭头
                    n02 = InStrRev(yText, "<", n01) ''<h1 class="xl:ml-24">的左箭头

                    If n16 <> n2 Then MsgBox "ERR_1161" & vbCrLf & "<hnnn class.....  <span class=""yy-title-gradient"">............</span>  ...</hnnn>..代码段格式有误,,, 参数 n16和n2 的位置有误"
                    Mark_Cell.Value = xMark
                    Beg_Cell.Value = Mid(yText, n02, n01 + 1 - n02)
                    End_Cell.Value = Mid(yText, n16, n17 + 1 - n16)  't2
                    Text_Cell.Value = Mid(yText, n01 + 1, n16 - (n01 + 1))
                    Text_Cell_Optimize.Value = Mid(yText, n01 + 1, n1 - (n01 + 1)) & Mid(yText, n11 + 1, n12 - (n11 + 1)) & Mid(yText, n13 + 1, n16 - (n13 + 1)) ''优化后的字符串，去掉无关的<..><..>代码
                    提炼字符串 = n17 + 1: G_Row = G_Row + 1
            Else
                If t1 = "<!-- " And t2 = "-->" Then '注释语句，忽略。。。<!-- Text Logo - Use this if you don't have a graphic logo -->
                    n1 = InStr(MM, yText, t1)
                    n2 = InStr(n1, yText, t2)
                    提炼字符串 = n2 + Len(t2) - 1 '下一个位置
                    G_Row = G_Row + 1

                ElseIf t1 = "<p " And t2 = "</p>" Then
                    n1 = InStr(MM, yText, t1)
                    n2 = InStr(n1, yText, t2):
                    MID_STR = Mid(yText, n1 + Len(t1), n2 - (n1 + Len(t1))) ''除了头尾的中间部分字符串

''存在 "</a>")  或  </mark>
                    If InStr(MID_STR, "</a>") > 0 Or InStr(MID_STR, "</mark>") > 0 Then

'<p class='mb-4'><a class="text-indigo-600 font-semibold underline decoration-green" href="../Bonding-varnish-Backlack.html">Backlack</a> - connection technology for perfect laminations! </p>
'<p class="mb-4">There is no best only better.Any need please feel free to <a class="text-indigo-600" href="Contact.html">Contact</a> us, we ...ture.</p>
                        If InStr(MID_STR, "</a>") > 0 And InStr(MID_STR, "<a ") > 0 And InStr(MID_STR, "</mark>") = 0 Then
                            xxxxTest = MID_STR
                            MsgBox xxxxTest
                            n11 = InStr(n1, yText, ">")
                            n12 = InStr(n11, yText, "<")
                            n13 = InStr(n12, yText, ">")
                            n14 = InStr(n13, yText, "<")
                            n15 = InStr(n14, yText, ">")
                            n16 = InStr(n15, yText, "<")
                            If n16 <> n2 Then MsgBox " ElseIf t1 = ""<p "" And t2 = ""</p>"" Then 的代码段格式 解析时语法命令有误，，， 因为中间字符串为：" & xxxxTest
                            Mark_Cell.Value = xMark
                            Beg_Cell.Value = Mid(yText, n1, n11 + 1 - n1)
                            End_Cell.Value = t2
                            Text_Cell.Value = Mid(yText, n11 + 1, n2 - (n11 + 1))
                            Text_Cell_Optimize.Value = Mid(yText, n11 + 1, n12 - (n11 + 1)) & Mid(yText, n13 + 1, n14 - (n13 + 1)) & Mid(yText, n15 + 1, n16 - (n15 + 1))
                            提炼字符串 = n2 + Len(t2) - 1: G_Row = G_Row + 1
'<p class='mb-4'>AAAA <mark class="px-1 py-1 text-white bg-blue-600 rounded dark:bg-blue-500">BBBB</mark> CCCC </p>
                        ElseIf InStr(MID_STR, "<mark class") > 0 And InStr(MID_STR, "</mark>") > 0 And InStr(MID_STR, "</a>") = 0 Then
                            xxxxTest = MID_STR
                            MsgBox xxxxTest
                            n11 = InStr(n1, yText, ">")
                            n12 = InStr(n11, yText, "<") ''<mark class
                            n13 = InStr(n12, yText, ">")
                            n14 = InStr(n13, yText, "<") ''</mark
                            n15 = InStr(n14, yText, ">")
                            n16 = InStr(n15, yText, "<")
                            If n16 <> n2 Then MsgBox " ElseIf t1 = ""<p "" And t2 = ""</p>"" Then 的代码段格式 解析时语法命令有误，，， 因为中间字符串为：" & xxxxTest
                            Mark_Cell.Value = xMark
                            Beg_Cell.Value = Mid(yText, n1, n11 + 1 - n1)
                            End_Cell.Value = t2
                            Text_Cell.Value = Mid(yText, n11 + 1, n2 - (n11 + 1))
                            Text_Cell_Optimize.Value = Mid(yText, n11 + 1, n12 - (n11 + 1)) & Mid(yText, n13 + 1, n14 - (n13 + 1)) & Mid(yText, n15 + 1, n16 - (n15 + 1))
                            提炼字符串 = n2 + Len(t2) - 1: G_Row = G_Row + 1
'<p class='mb-4'>AAAA <mark class="px-1 py-1 text-white bg-blue-600 rounded dark:bg-blue-500">BBBB</mark> CCCC <a class="text-indigo-600" href="contact.html">Contact</a> our technology.</p>
                        Else
                            xxxxTest = MID_STR
                            MsgBox xxxxTest
                            n11 = InStr(n1, yText, ">")
                            n12 = InStr(n11, yText, "<") ''<mark class
                            n13 = InStr(n12, yText, ">") ''>
                            n14 = InStr(n13, yText, "<") ''</mark
                            n15 = InStr(n14, yText, ">") ''>
                            n16 = InStr(n15, yText, "<") ''<a
                            n17 = InStr(n16, yText, ">") ''>
                            n18 = InStr(n17, yText, "<") ''</a
                            n19 = InStr(n18, yText, ">") ''>
                            n20 = InStr(n19, yText, "<")

                            If n20 <> n2 Then MsgBox " ElseIf t1 = ""<p "" And t2 = ""</p>"" Then 的代码段格式 解析时语法命令有误，，， 因为中间字符串为：" & xxxxTest
                            Mark_Cell.Value = xMark
                            Beg_Cell.Value = Mid(yText, n1, n11 + 1 - n1)
                            End_Cell.Value = t2
                            Text_Cell.Value = Mid(yText, n11 + 1, n2 - (n11 + 1))
                            Text_Cell_Optimize.Value = Mid(yText, n11 + 1, n12 - (n11 + 1)) & Mid(yText, n13 + 1, n14 - (n13 + 1)) & Mid(yText, n15 + 1, n16 - (n15 + 1)) & Mid(yText, n17 + 1, n18 - (n17 + 1)) & Mid(yText, n19 + 1, n20 - (n19 + 1))
                            提炼字符串 = n2 + Len(t2) - 1: G_Row = G_Row + 1
                        End If

'<p class="text-sm font-medium w-full text-gray-800 dark:text-gray-100"><strong>Improve NVH performance</strong></p></div>
                    ElseIf InStr(MID_STR, "class=""text-sm font-medium w-full text-gray-800 dark:text-gray-100") > 0 And InStr(MID_STR, "<strong>") > 0 Then
                            xxxxTest = MID_STR
'                            MsgBox xxxxTest
                            n11 = InStr(n1, yText, ">")
                            n12 = InStr(n11, yText, "<") '<strong
                            n13 = InStr(n12, yText, ">")  '      >
                            n14 = InStr(n13, yText, "<") '</strong
                            n15 = InStr(n14, yText, ">")  '      >
                            n16 = InStr(n15, yText, "<")
                            If n16 <> n2 Then MsgBox " ElseIf t1 = ""<p "" And t2 = ""</p>"" Then 的代码段格式 解析时语法命令有误，，， 因为中间字符串为：" & xxxxTest
                            Mark_Cell.Value = xMark
                            Beg_Cell.Value = Mid(yText, n1, n11 + 1 - n1)
                            End_Cell.Value = t2
                            Text_Cell.Value = Mid(yText, n11 + 1, n2 - (n11 + 1))
                            Text_Cell_Optimize.Value = Mid(yText, n11 + 1, n12 - (n11 + 1)) & Mid(yText, n13 + 1, n14 - (n13 + 1)) & Mid(yText, n15 + 1, n16 - (n15 + 1))
                            提炼字符串 = n2 + Len(t2) - 1: G_Row = G_Row + 1

'<p class="mb-4">If you have any que....</p>
                    Else
                        yy = Left(yText, n2 - 1): n13 = InStrRev(Left(yy, n2 - 1), ">")
                        Mark_Cell.Value = xMark: Beg_Cell.Value = Mid(yText, n1, n13 + 1 - n1): End_Cell.Value = Mid(yText, n2, Len(t2)): Text_Cell.Value = Mid(yText, n13 + 1, n2 - (n13 + 1))
                        提炼字符串 = n2 + Len(t2) - 1: G_Row = G_Row + 1
                    End If

                ' ElseIf t1 = "<p " And t2 = "</p>" Then    '<p class="mb-4">If you have any que....</p>
                    ' n1 = InStr(MM, yText, t1): n2 = InStr(n1, yText, t2): yy = Left(yText, n2 - 1): n13 = InStrRev(Left(yy, n2 - 1), ">")
                    ' Mark_Cell.Value = xMark: Beg_Cell.Value = Mid(yText, n1, n13 + 1 - n1): End_Cell.Value = Mid(yText, n2, Len(t2)): Text_Cell.Value = Mid(yText, n13 + 1, n2 - (n13 + 1))
                    ' 提炼字符串 = n2 + Len(t2) - 1: G_Row = G_Row + 1
                ElseIf t1 = "<p>" And t2 = "</p>" Then    '<p>The laser/stamped single-.....</p>

                    n1 = InStr(MM, yText, t1)
                    n2 = InStr(n1, yText, t2):
                    MID_STR = Mid(yText, n1 + Len(t1), n2 - (n1 + Len(t1))) ''除了头尾的中间部分字符串

'<p>The most .... <mark class="px-1 text-white bg-blue-600 rounded dark:bg-blue-500">10JNEX900</mark> material from Japan's Kawasaki Corporation, with a thickness of 0.1MM.</p>
                        If InStr(MID_STR, "<mark class") > 0 And InStr(MID_STR, "</mark>") > 0 Then
                                xxxxTest = "存在：<mark class=。。。，，</mark>  特征字符串" & vbCrLf & vbCrLf & MID_STR
                                MsgBox xxxxTest
                                n11 = InStr(n1, yText, ">")
                                n12 = InStr(n11, yText, "<") ''<mark class
                                n13 = InStr(n12, yText, ">")
                                n14 = InStr(n13, yText, "<") ''</mark
                                n15 = InStr(n14, yText, ">")
                                n16 = InStr(n15, yText, "<")
                                If n16 <> n2 Then MsgBox " ElseIf t1 = ""<p"" And t2 = ""</p>"" Then 的代码段格式 解析时语法命令有误，，， 因为中间字符串为：" & xxxxTest
                                Mark_Cell.Value = xMark
                                Beg_Cell.Value = Mid(yText, n1, n11 + 1 - n1)
                                End_Cell.Value = t2
                                Text_Cell.Value = Mid(yText, n11 + 1, n2 - (n11 + 1))
                                Text_Cell_Optimize.Value = Mid(yText, n11 + 1, n12 - (n11 + 1)) & Mid(yText, n13 + 1, n14 - (n13 + 1)) & Mid(yText, n15 + 1, n16 - (n15 + 1))
                                提炼字符串 = n2 + Len(t2) - 1: G_Row = G_Row + 1
'<p>..........</p>
                            Else
                                xxxxTest = MID_STR
                                'MsgBox xxxxTest
                                n1 = InStr(MM, yText, t1): n2 = InStr(n1, yText, t2): yy = Left(yText, n2 - 1): n13 = InStrRev(Left(yy, n2 - 1), ">")
                                Mark_Cell.Value = xMark: Beg_Cell.Value = Mid(yText, n1, n13 + 1 - n1): End_Cell.Value = Mid(yText, n2, Len(t2)): Text_Cell.Value = Mid(yText, n13 + 1, n2 - (n13 + 1))
                                提炼字符串 = n2 + Len(t2) - 1: G_Row = G_Row + 1

                            End If

                '<h1>xxxxxxxxxxx</h1>
                '<h2>xxxxxxxxxxx</h2>
                '...
                '<h6>xxxxxxxxxxx</h6>
                ElseIf (t1 = "<h1>" And t2 = "</h1>") Or (t1 = "<h2>" And t2 = "</h2>") Or (t1 = "<h3>" And t2 = "</h3>") Or (t1 = "<h4>" And t2 = "</h4>") Or (t1 = "<h5>" And t2 = "</h5>") Or (t1 = "<h6>" And t2 = "</h6>") Then
                    n1 = InStr(MM, yText, t1): n2 = InStr(n1, yText, t2): yy = Left(yText, n2 - 1): n13 = InStrRev(Left(yy, n2 - 1), ">")
                    Mark_Cell.Value = xMark: Beg_Cell.Value = Mid(yText, n1, n13 + 1 - n1): End_Cell.Value = Mid(yText, n2, Len(t2)): Text_Cell.Value = Mid(yText, n13 + 1, n2 - (n13 + 1))
                    提炼字符串 = n2 + Len(t2) - 1: G_Row = G_Row + 1

'<h1 >xxxxxxxxxxx</h1>
'<h2 >xxxxxxxxxxx</h2>
'...
'<h6 >xxxxxxxxxxx</h6>
'<h3 class='mt-4 mb-3'>Q: What is the difference between <span class="yy-title-gradient">adhesive bonding technology</span> and traditional riveting or welding?</h3>
                ElseIf (t1 = "<h1 " And t2 = "</h1>") Or (t1 = "<h2 " And t2 = "</h2>") Or (t1 = "<h3 " And t2 = "</h3>") Or (t1 = "<h4 " And t2 = "</h4>") Or (t1 = "<h5 " And t2 = "</h5>") Or (t1 = "<h6 " And t2 = "</h6>") Then
                    ssssss = Mid(yText, MM - 20, 100)
'            MsgBox "【存在  <span class=""yy-title-gradient"">。。。。。。</span>    特征字符串】："   & vbCrLf & vbCrLf & ssssss
                    n1 = InStr(MM, yText, t1)
                    n2 = InStr(n1, yText, t2):
                    MID_STR = Mid(yText, n1 + Len(t1), n2 - (n1 + Len(t1))) ''除了头尾的中间部分字符串

'<h3 class='mt-4 mb-3'>Q: What is the difference between <span class="yy-title-gradient">adhesive bonding technology</span> and traditional riveting or welding?</h3>
                    If InStr(MID_STR, "<span class") > 0 And InStr(MID_STR, "</span>") > 0 Then

                    '''【特意说明】
                    '1）因为在以下的代码段，处理了文本，
''''''''<h1 class="xl:ml-24"><span class="yy-title-gradient">30HGSA, 30ChGSA, 30KhGSA, 30CrMnSiA</span> - Structural Alloy Steel</h1>
''''''''<h1 class="xl:ml-24">Revealing the <span class="yy-title-gradient">Laminated Stamping</span> Manufacturing Process of Motor Stator and Rotor Cores</h1>
''''''''<p class="p-large mb-8"><span class="yy-title-gradient">smaller and lighter with higher efficiency</span></p>
'''''''            ElseIf MM = InStr(MM, yText, "<span class=""yy-title-gradient"">") Then
                    '2）就则本地方忽略

                            xxxxTest = MID_STR
                            'MsgBox  "1315" &vbCrLf  &xxxxTest
                            n11 = InStr(n1, yText, ">")
                            n12 = InStr(n11, yText, "<") '<span
                            n13 = InStr(n12, yText, ">")  '      >
                            n14 = InStr(n13, yText, "<") '</span
                            n15 = InStr(n14, yText, ">")  '      >
                            n16 = InStr(n15, yText, "<")
                            If n16 <> n2 Then MsgBox "1322" & vbCrLf & " ElseIf t1 = ""<hnnn "" And t2 = ""</hnnn>"" Then 的代码段格式 解析时语法命令有误，，， 因为中间字符串为：" & xxxxTest
'''                            Mark_Cell.Value = xMark
'''                            Beg_Cell.Value = Mid(yText, n1, n11 + 1 - n1)
'''                            End_Cell.Value = t2
'''                            Text_Cell.Value = Mid(yText, n11 + 1, n2 - (n11 + 1))
'''                            Text_Cell_Optimize.Value = Mid(yText, n11 + 1, n12 - (n11 + 1)) & Mid(yText, n13 + 1, n14 - (n13 + 1)) & Mid(yText, n15 + 1, n16 - (n15 + 1))
                            提炼字符串 = n2 + Len(t2) - 1: G_Row = G_Row + 1

'<h3 class="h3-headline-50 gb_headline_text"><a href="../stator-core.html">Wire EDM lamination</a></h3>
                    ElseIf InStr(MID_STR, "<a href=""") > 0 And InStr(MID_STR, "</a>") > 0 Then

                            xxxxTest = MID_STR
                            MsgBox xxxxTest
                            n11 = InStr(n1, yText, ">")
                            n12 = InStr(n11, yText, "<") '<<a href
                            n13 = InStr(n12, yText, ">")  '        >
                            n14 = InStr(n13, yText, "<") '</a
                            n15 = InStr(n14, yText, ">")  '      >
                            n16 = InStr(n15, yText, "<")
                            If n16 <> n2 Then MsgBox " ElseIf t1 = ""h3 "" And t2 = ""</h3>"" Then 的代码段格式 解析时语法命令有误，，， 因为中间字符串为：" & xxxxTest
                           Mark_Cell.Value = xMark
                           Beg_Cell.Value = Mid(yText, n1, n11 + 1 - n1)
                           End_Cell.Value = t2
                           Text_Cell.Value = Mid(yText, n11 + 1, n2 - (n11 + 1))
                           Text_Cell_Optimize.Value = Mid(yText, n11 + 1, n12 - (n11 + 1)) & Mid(yText, n13 + 1, n14 - (n13 + 1)) & Mid(yText, n15 + 1, n16 - (n15 + 1))
                            提炼字符串 = n2 + Len(t2) - 1: G_Row = G_Row + 1

'<h3 .....>xxxxxxx</h3>
                    Else
'                        yy = Left(yText, n2 - 1): n13 = InStrRev(Left(yy, n2 - 1), ">")
                        yy = Left(yText, n2 - 1): n13 = InStr(n1, yText, ">")
                        Mark_Cell.Value = xMark: Beg_Cell.Value = Mid(yText, n1, n13 + 1 - n1): End_Cell.Value = Mid(yText, n2, Len(t2)): Text_Cell.Value = Mid(yText, n13 + 1, n2 - (n13 + 1))
                        提炼字符串 = n2 + Len(t2) - 1: G_Row = G_Row + 1
                    End If

                ElseIf t1 = "<div class=""li_paragraph"">" And t2 = "</div>" Then    '<div class="li_paragraph">AAAAAAAAAA</div>
                    n1 = InStr(MM, yText, t1): n2 = InStr(n1, yText, t2): yy = Left(yText, n2 - 1): n13 = InStrRev(Left(yy, n2 - 1), ">")
                    Mark_Cell.Value = xMark: Beg_Cell.Value = Mid(yText, n1, n13 + 1 - n1): End_Cell.Value = Mid(yText, n2, Len(t2)): Text_Cell.Value = Mid(yText, n13 + 1, n2 - (n13 + 1))
                    提炼字符串 = n2 + Len(t2) - 1: G_Row = G_Row + 1

'<div class="font-normal text-base contact__feedback"><a href="../electrical-steel-materials.html" target="_blank" rel="noopener noreferrer" title="Electrical Steel Materials" class="contact__button">Electrical Steel Materials</a></div>
                ElseIf t1 = "<div class=""font-normal" And t2 = "</div>" Then
                    ssssss = Mid(yText, MM - 20, 100)
        '            MsgBox ssssss
                    n1 = InStr(MM, yText, t1)
                    n2 = InStr(n1, yText, t2):
                    MID_STR = Mid(yText, n1 + Len(t1), n2 - (n1 + Len(t1))) ''除了头尾的中间部分字符串

'<div class="font-normal text-base contact__feedback"><a href="../electrical-steel-materials.html" target="_blank" rel="noopener noreferrer" title="Electrical Steel Materials" class="contact__button">Electrical Steel Materials</a></div>
                        If InStr(MID_STR, "<a href=""") > 0 And InStr(MID_STR, "</a>") > 0 And InStr(MID_STR, "</svg>") = 0 Then
                            xxxxTest = MID_STR
                            MsgBox xxxxTest
                            n11 = InStr(n1, yText, ">")
                            n12 = InStr(n11, yText, "<")
                            n13 = InStr(n12, yText, ">")
                            n14 = InStr(n13, yText, "<")
                            n15 = InStr(n14, yText, ">")
                            n16 = InStr(n15, yText, "<")
                            If n16 <> n2 Then MsgBox " ElseIf ... Then 的代码段格式 解析时语法命令有误，，， 因为中间字符串为：" & xxxxTest
                            Mark_Cell.Value = xMark
                            Beg_Cell.Value = Mid(yText, n1, n11 + 1 - n1)
                            End_Cell.Value = t2
                            Text_Cell.Value = Mid(yText, n11 + 1, n2 - (n11 + 1))
                            Text_Cell_Optimize.Value = Mid(yText, n11 + 1, n12 - (n11 + 1)) & Mid(yText, n13 + 1, n14 - (n13 + 1)) & Mid(yText, n15 + 1, n16 - (n15 + 1))
                            提炼字符串 = n2 + Len(t2) - 1: G_Row = G_Row + 1

'<div class="font-normal text-base contact__feedback"><a href="../electrical-steel-materials.html" target="_blank" rel="noopener noreferrer" title="Electrical Steel Materials" class="contact__button">Electrical Steel Materials  <svg>...</svg></a></div>
'简化版：<div class="font-normal text-base contact__feedback">...<a href="..">Electrical Steel Materials  <svg>..本处可忽略文字内容..</svg>...</a>...</div>
                        ElseIf InStr(MID_STR, "<a href=""") > 0 And InStr(MID_STR, "</a>") > 0 And InStr(MID_STR, "</svg>") > 0 Then
                            xxxxTest = MID_STR
                            MsgBox xxxxTest
                            n11 = InStr(n1, yText, ">")
                            n12 = InStr(n11, yText, "<") ''<a href=
                            n13 = InStr(n12, yText, ">") ''         >
                            n14 = InStr(n13, yText, "<svg") ''            <svg
                            n15 = InStr(n14, yText, ">") ''                    >
                            n16 = InStr(n15, yText, "</svg") ''                    </svg
                            n17 = InStr(n16, yText, ">") ''                              >
                            n18 = InStr(n17, yText, "</a") ''                            </a
                            n19 = InStr(n18, yText, ">") ''                                   >
                            n20 = InStr(n19, yText, "</div") ''                                 </div

                            If n20 <> n2 Then MsgBox " ERR___</svg>,,, ElseIf ...Then  的代码段格式 解析时语法命令有误，，， 因为中间字符串为：" & xxxxTest
                            Mark_Cell.Value = xMark
                            Beg_Cell.Value = Mid(yText, n1, n11 + 1 - n1)
                            End_Cell.Value = t2
                            Text_Cell.Value = Mid(yText, n11 + 1, n2 - (n11 + 1))
Text_Cell_Optimize.Value = Mid(yText, n11 + 1, n12 - (n11 + 1)) & Mid(yText, n13 + 1, n14 - (n13 + 1)) & Mid(yText, n17 + 1, n18 - (n17 + 1)) & Mid(yText, n19 + 1, n20 - (n19 + 1))
                            提炼字符串 = n2 + Len(t2) - 1: G_Row = G_Row + 1
                        Else
                        End If

'<li class="flex"><div class="">?</div><div class="flex-1 ml-2">AAAAAAAAAAAAAAAAA</div></li>
'<li class="flex"><div class="">?</div><div class="flex-1 ml-2">Features such as a beautiful metallic appearance, high corrosion resistance, wear resistance, low paper friction, scratch resistance and fingerprint resistance, have led to an excellent reputation for this unpainted galvanized steel sheet for many years.</div></li>
                ElseIf t1 = "</div><div class=""flex-1 ml-2"">" And t2 = "</div></li>" Then
                    n1 = InStr(MM, yText, t1): n2 = InStr(n1, yText, t2): yy = Left(yText, n2 - 1): n13 = InStrRev(Left(yy, n2 - 1), ">")
                    Mark_Cell.Value = xMark: Beg_Cell.Value = Mid(yText, n1, n13 + 1 - n1): End_Cell.Value = Mid(yText, n2, Len(t2)): Text_Cell.Value = Mid(yText, n13 + 1, n2 - (n13 + 1))
                    提炼字符串 = n2 + Len(t2) - 1: G_Row = G_Row + 1

                ElseIf t1 = "<td class=" And t2 = "</td>" Then
'                ElseIf t1 = "<td class=""px-2 py-4 text-left"">" And t2 = "</td>" Then
'表格中的字符串段落词组
'                <td class="px-2 py-4 text-left">By reducing the plate thickness, eddy currents can be suppressed and loss can be reduced.</td></tr>
'                <td class="px-2 py-4 text-left">xxxxxxxxxxxxxxxx</td></tr>
                    n1 = InStr(MM, yText, t1): n2 = InStr(n1, yText, t2): yy = Left(yText, n2 - 1): n13 = InStrRev(Left(yy, n2 - 1), ">")
                    Mark_Cell.Value = xMark: Beg_Cell.Value = Mid(yText, n1, n13 + 1 - n1): End_Cell.Value = Mid(yText, n2, Len(t2)): Text_Cell.Value = Mid(yText, n13 + 1, n2 - (n13 + 1))
                    提炼字符串 = n2 + Len(t2) - 1: G_Row = G_Row + 1

                '<a class="hover:bg-indigo-100 hover:text-blue-120" target="_blank" rel="noopener noreferrer" href="motor_core.html">Custom Stator</a> ?
                ElseIf t1 = """ target=""_blank"" rel=""noopener noreferrer"" href=""" And t2 = "</a>" Then
                    n1 = InStr(MM, yText, t1)
                    n2 = InStr(n1, yText, t2)
                    yy = Left(yText, n2 - 1) '截取 包含目标字符串的 左边大内容
                    n13 = InStrRev(Left(yy, n2 - 1), ">")  '字符串的左边>的位置
                    Mark_Cell.Value = xMark
                    Beg_Cell.Value = Mid(yText, n1, n13 + 1 - n1)
                    End_Cell.Value = Mid(yText, n2, Len(t2))
                    Text_Cell.Value = Mid(yText, n13 + 1, n2 - (n13 + 1))
                    提炼字符串 = n2 + Len(t2) - 1 '下一个位置
                    G_Row = G_Row + 1

                ElseIf t1 = "<a class=""dropdown-item" And t2 = "</a>" Then  '<a class="dropdown-item page-scroll" href="Stator-Core.html">Stator Core</a>
                    n1 = InStr(MM, yText, t1)
                    n2 = InStr(n1, yText, t2)
                    yy = Left(yText, n2 - 1) '截取 包含目标字符串的 左边大内容
                    n13 = InStrRev(Left(yy, n2 - 1), ">")  '字符串的左边>的位置
                    Mark_Cell.Value = xMark
                    Beg_Cell.Value = Mid(yText, n1, n13 + 1 - n1)
                    End_Cell.Value = Mid(yText, n2, Len(t2))
                    Text_Cell.Value = Mid(yText, n13 + 1, n2 - (n13 + 1))
                    提炼字符串 = n2 + Len(t2) - 1 '下一个位置
                    G_Row = G_Row + 1
                'src="images/Interlock-Bonding-Welding-lamination-technology.webp" alt="Interlock Bonding Welding lamination technology" title="Interlock Bonding Welding lamination technology"/></div>
                '格式必须是 先 alt 后 title
                '
                ElseIf t1 = """ alt=""" And t2 = """ title=""" Then
                    n1 = InStr(MM, yText, t1)
                    n2 = InStr(n1, yText, t2)
                    If n2 = 0 Then MsgBox "alt= 的后面无 titile= 字符串， 请 增加之。。。"
                    yy = Left(yText, n2 - 1) '截取 包含目标字符串的 左边大内容
                    n03 = InStrRev(Left(yy, n1 - 1), "images/")  '字符串的左边【images/】的起始位置
                    Mark_Cell.Value = xMark
                    Beg_Cell.Value = Mid(yText, n03, n1 + Len(t1) - n03)
                    End_Cell.Value = Mid(yText, n2, Len(t2))
                    Text_Cell.Value = Mid(yText, n1 + Len(t1), n2 - (n1 + Len(t1)))
                    提炼字符串 = n2 + Len(t2) - 1: G_Row = G_Row + 1
                'alt="Interlock Bonding Welding lamination technology" title="Interlock Bonding Welding lamination technology"/></div>
                '格式必须是   " title="...aaaaaaa..."
                ElseIf t1 = """ title=""" And t2 = """" Then
                    n1 = InStr(MM, yText, t1): n2 = InStr(n1 + Len(t1), yText, t2): yy = Left(yText, n2 - 1)
                    Mark_Cell.Value = xMark: Beg_Cell.Value = t1: End_Cell.Value = t2: Text_Cell.Value = Mid(yText, n1 + Len(t1), n2 - (n1 + Len(t1)))
                    提炼字符串 = n2 + Len(t2) - 1: G_Row = G_Row + 1
                Else
                End If

                If Len(Beg_Cell.Value) > 100 Then
                    n1 = n1
                Else
                End If

                If InStr(1, Beg_Cell.Value, "<p class=""pb-2 p-small statement") Then
                    n1 = n1
                Else
                End If

            End If

    ElseIf xMark = "4）Foot部分" Then
            '过滤特定词组
'                                            <div class="copyright">
'                                                <div class="container px-4 sm:px-8 lg:grid lg:grid-cols-3">
'                                                    <ul class="mb-4 list-unstyled p-small">
'                                                        <li class="mb-2"><a href="About.html">About us</a></li>
'                                                        <li class="mb-2"><a href="News.html">News</a></li>
'                                                        <li class="mb-2"><a href="Contact.html">Contact</a></li><li class="mb-2"><a href="sitemap.xml">Sitemap</a></li>
'                                                    </ul>
'                                                    <p class="pb-2 p-small statement">Copyright?<a class="no-underline">DongGuan YouYou Technology Co.,Ltd</a></p>
'                                                </div>
'                                            </div>
            '
            If MM = InStr(MM, yText, "<meta http-equiv=""content-type"" content=""text/html; charset=utf-8"">") Then
                提炼字符串 = MM + 1
            Else
                If t1 = "<li " And t2 = "</li>" Then '<li class="mb-2"><a href="About.html">About us</a></li>
                    n1 = InStr(MM, yText, t1)
                    n2 = InStr(n1, yText, t2)
                    yy = Left(yText, n2 - 1) '截取 包含目标字符串的 左边大内容
                    n14 = InStrRev(yy, "<") '字符串的右边<号的位置
                    n13 = InStrRev(Left(yy, n14 - 1), ">")  '字符串的左边>的位置
                    Mark_Cell.Value = xMark
                    Beg_Cell.Value = Mid(yText, n1, n13 - n1 + 1)
                    End_Cell.Value = Mid(yText, n14, n2 + Len(t2) - n14)
                    Text_Cell.Value = Mid(yText, n13 + 1, n14 - n13 - 1)
                    提炼字符串 = n2 + Len(t2) - 1 '下一个位置
                    G_Row = G_Row + 1
                ElseIf t1 = "<p " And t2 = "Copyright" Then '''特殊字符串   <p class="pb-2 p-small statement">Copyright
                    n1 = InStr(MM, yText, t1)
                    n2 = InStr(n1, yText, t2)
                    yy = Left(yText, n2 - 1) '截取 包含目标字符串的 左边大内容
                    n14 = InStrRev(yy, ">") '字符串的左边>号的位置
                    n13 = InStrRev(Left(yy, n14 - 1), "<")  '字符串的左边>的再左边<号的位置

                    If n1 = n13 Then
                        Mark_Cell.Value = xMark
                        Beg_Cell.Value = Mid(yText, n1, n2 - n1)
                        End_Cell.Value = Mid(yText, n2 + Len(t2), 20)
                        Text_Cell.Value = t2
                    Else
                        Mark_Cell.Value = "AAAAAAAAAAAAAAAAAAA" & t2
                        Beg_Cell.Value = "AAAAAAAAAAAAAAAAAAA" & t2
                        End_Cell.Value = "AAAAAAAAAAAAAAAAAAA" & t2
                        Text_Cell.Value = "AAAAAAAAAAAAAAAAAAA" & t2
                    End If

                    提炼字符串 = n2 + Len(t2) - 1 '下一个位置
                    G_Row = G_Row + 1
                ElseIf t1 = "<span>" And t2 = " : </span>" Then '<span>Language : </span>
                    n1 = InStr(MM, yText, t1)
                    n2 = InStr(n1, yText, t2)
                    Mark_Cell.Value = xMark
                    Beg_Cell.Value = Mid(yText, n1, Len(t1))
                    End_Cell.Value = Mid(yText, n2, Len(t2))
                    Text_Cell.Value = Mid(yText, n1 + Len(t1), n2 - (n1 + Len(t1)))
                    提炼字符串 = n2 + Len(t2) - 1 '下一个位置
                    G_Row = G_Row + 1
                ElseIf t1 = "<p " And t2 = "</p>" Then '<p class="pb-2 p-small statement">DongGuan YouYou Technology Co.,Ltd</a></p>
                    n1 = InStr(MM, yText, t1)
                    n2 = InStr(n1, yText, t2)
                    yy = Left(yText, n2 - 1) '截取 包含目标字符串的 左边大内容
                    n14 = InStrRev(yy, "<") '字符串的右边<号的位置
                    n13 = InStrRev(Left(yy, n14 - 1), ">")  '字符串的左边>的位置
                    Mark_Cell.Value = xMark
                    Beg_Cell.Value = Mid(yText, n1, n13 - n1 + 1)
                    End_Cell.Value = Mid(yText, n14, n2 + Len(t2) - n14 + 1)
                    Text_Cell.Value = Mid(yText, n13 + 1, n14 - n13 - 1)
                    提炼字符串 = n2 + Len(t2) - 1 '下一个位置
                    G_Row = G_Row + 1
                Else
                End If
            End If
    Else
        MsgBox "【标记有误，请检查。。。】"
        提炼字符串 = MM
    End If

    '字体设置
    Columns("E:L").Select
    Range("E49").Activate
    With Selection.Font
        .Name = "Tahoma"
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
    End With
    Columns("E:G").Select
    Range("E49").Activate
    With Selection.Font
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
    End With
    Columns("H:K").Select
    With Selection.Font
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
    End With
'    Range("F53").Select

    'xText = ixText

End Function

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub 手工选择一个网页文件__解析之__提炼词组集合()
 '
    '在以下范围的之间，查找，替换特定的词组后，并写入文件，，，
    '
    '<header class="ex-header bg-gray">
    '
    '<div class="footer">
    '
    '
    Dim text As String
    Dim c As String
    Dim len1, len2, len3, i_JianTou_L, i_JianTou_R, iNeedReplace As Long
    Dim xText2, tt1_L, tt1_R, KKK As String
    Dim n, n0, n1, n2, n3, i, nnn, nKK, ddd, L1, L2, MM, n1_L, n1R, n1_R, n2_L, n2_LL, ppp As Long
    Dim X, a, b, t11, yy, xText, t1, t1R, t2, xMark, yText As String
    Dim xxxFileName, xxxWebName As String
    Dim ifile_name, sss As String
    Dim WebUrl As String
    Dim sheet As Worksheet
    Dim Mark_Cell, Beg_Cell, Beg2_Cell, End_Cell, Text_Cell, Input_Cell, ByteNo_Cell, Text_Cell_Optimize As Range

Application.ScreenUpdating = False 'True '

Cells(31, 1) = ""

    Set sheet = ActiveWorkbook.Sheets("解析网页，提炼词组，翻译词组，写入文件")

    '清空
    Range("E1:K600").Select
    Range("K600").Activate
    Selection.ClearContents
    Selection.Interior.ColorIndex = xlNone '''底色  白色
    Range("K2").Select

    G_Row = 1
    G_Col = 4 'D列

    '打开文件对话框，选择某个文件，，，
    '
    ifile_name = UseFileDialogOpen() '打开文件对话框，选择某个文件，，，
    If ifile_name = "" Then ''为空，没有选择文件，则直接退出
        MsgBox "为空，没有选择文件，则直接退出"
        Exit Sub
    Else
    End If

    '列出当前选择的文件名和路径
    '
    Cells(1, 3) = ifile_name ''E:\, G-0501\www.10JNEX900.com\10JNEX900.html
    Cells(1, 2) = FILE_NAME_1 ''10JNEX900.html
    Cells(1, 1) = FILE_PATH_1 ''E:\, G-0501\www.10JNEX900.com

            '读文件内容，准备提取词组集合
                                                            Dim Ii
                                                            Dim AD As Object: Set AD = CreateObject("ADODB.Stream")
                                                            AD.Charset = "utf-8"
                                                            AD.Open
                                                            AD.LoadFromFile ifile_name
                                                            xText = AD.readText
                                                            AD.Close

' 1）头部
Cells(31, 1) = "头部"
'                                            <meta http-equiv="content-type" content="text/html; charset=utf-8">
'                                            <meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no" />
'
'                                            <title>High Speed Stator and Rotor Lamination Production Stamping manufacturer</title>
'                                            <meta name="description" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer" />
'                                            <meta name="keywords" content="Lamination Production, Stamping manufacturer, Stator and Rotor Lamination">
'                                            <meta name="author" content="DongGuan YouYou Technology, 506586589@qq.com" />
'
'                                            <meta itemprop="name" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer"/>
'                                            <meta itemprop="image" content="https://www.istator.com/images/Bonding-varnish-Backlack.jpg" />
'                                            <meta name="description" itemprop="High Speed Stator and Rotor Lamination Production Stamping manufacturer" />
'
'                                            <meta name="format-detection" content="telephone=no,email=no,date=no,address=no">
'                                            <meta http-equiv="X-UA-Compatible" content="IE=edge" />
'                                            <meta name="application-name" content="DongGuan YouYou Technology Co.,Ltd">
'
'                                            <meta property="og:site_name" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer" />
'                                            <meta property="og:type" content="product">
'                                            <meta property="og:site" content="https://www.istator.com" />
'                                            <meta property="og:title" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer" />
'                                            <meta property="og:description" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer" />
'                                            <meta property="og:image" content="https://www.istator.com/images/Bonding-varnish-Backlack.jpg" />
'                                            <meta property="og:image:alt" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer">
'                                            <meta property="og:url" content="https://www.istator.com" />
'                                            <meta name="twitter:card" content="summary_large_image">
'                                            <meta name="twitter:title" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer">
'                                            <meta name="twitter:description" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer">
'                                            <meta name="twitter:image" content="https://www.istator.com/images/Bonding-varnish-Backlack.jpg">
<!-- BEG OF YOUYOU-schema-graph -->
<script type="application/ld+json" class="YOUYOU-schema-graph">{
	"@context": "http://schema.org",
	"@graph": [
	{
		"@type": "WebSite",
		"name": "YOUYOU TECH",
		"url": "https://www.istator.com" />
'                                            <meta property="og:title" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer" />
'                                            <meta property="og:description" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer" />
'                                            <meta property="og:image" content="https://www.istator.com/images/Bonding-varnish-Backlack.jpg" />
'                                            <meta property="og:image:alt" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer">
'                                            <meta property="og:url" content="https://www.istator.com" />
'                                            <meta name="twitter:card" content="summary_large_image">
'                                            <meta name="twitter:title" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer">
'                                            <meta name="twitter:description" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer">
'                                            <meta name="twitter:image" content="https://www.istator.com/images/Bonding-varnish-Backlack.jpg">

    n = 1
    nKK = n '''指名位置，，
    L1 = InStr(IIf(nKK > 0, nKK, 1), xText, "<head>")
    L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "</head>")
    yText = Left(xText, L2) '有效数据加以限制

    If L1 > 0 And L2 > 0 Then
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<title>": t1R = "": t2 = "</title>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("1）头部", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<meta ": t1R = "": t2 = ">"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("1）头部", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

            'MsgBox yText
    Else
        MsgBox "找不到Body的 起始代码<header ，或，footer代码<div class=""footer""... 请检查代码先。。。"
    End If

' 2）导航部分
Cells(31, 1) = "导航部分"
'                                            <!-- Navigation -->
'                                            <nav class="navbar fixed-top">
'                                                <div class="container flex flex-wrap items-center justify-between sm:px-4 lg:flex-nowrap lg:px-8">
'
'                                                    <!-- Text Logo - Use this if you don't have a graphic logo -->
'                                                    <!--<a class="text-gray-800 font-semibold text-3xl leading-4 no-underline page-scroll" href="index.html">Pavo</a>-->
'
'                                                    <!-- Image Logo -->
'                                                    <a class="inline-block mr-4 py-0.5 text-xl whitespace-nowrap hover:no-underline focus:no-underline" href="index.html">
'                                                        <svg viewBo e"y="-7.76772">i</text></g></svg>
'                                                    </a>
'
'                                                    <button class="background-transparent rounded text-xl leading-none hover:no-underline focus:no-underline lg:hidden lg:text-gray-400" type="button" data-toggle="offcanvas">
'                                                        <span class="navbar-toggler-icon inline-block w-8 h-8 align-middle"></span>
'                                                    </button>
'
'                                                    <div class="navbar-collapse offcanvas-collapse lg:flex lg:flex-grow lg:items-center" id="navbarsExampleDefault">
'                                                        <ul class="pl-0 mt-3 mb-2 ml-auto flex flex-col list-none lg:mt-0 lg:mb-0 lg:flex-row">
'                                                            <li>
'                                                                <a class="nav-link page-scroll" href="index.html">Home <span class="sr-only">(current)</span></a>
'                                                            </li>
'                                                            <li>
'                                                                <a class="nav-link page-scroll" href="About.html">About us</a>
'                                                            </li>
'                                                            <li class="dropdown">
'                                                                <a class="nav-link dropdown-toggle" id="dropdown01" data-toggle="dropdown" aria-haspopup="true" aria-expanded="false">Products</a>
'                                                                <div class="dropdown-menu" aria-labelledby="dropdown01">
'                                                                    <a class="dropdown-item page-scroll" href="Stator-Core.html">Stator Core</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Rotor-Core.html">Rotor Core</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Stator-and-Rotor-Lamination.html">Stator and Rotor Lamination</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Axial-Flux-Stator.html">Axial Flux Stator</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Stator-Coil-Winding.html">Stator Coil Winding</a>
'                                                                </div>
'                                                            </li>
'                                                            <li class="dropdown">
'                                                                <a class="nav-link dropdown-toggle" id="dropdown02" data-toggle="dropdown" aria-haspopup="true" aria-expanded="false">Services</a>
'                                                                <div class="dropdown-menu" aria-labelledby="dropdown01">
'                                                                    <a class="dropdown-item page-scroll" href="Bonding-varnish-Backlack.html">Bonding varnish/Backlack</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Stamping.html">Stamping</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Coil-Winding.html">Coil Winding</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Electrical-Steel-Materials.html">Electrical Steel Materials</a>
'                                                                </div>
'                                                            </li>
'                                                            <li>
'                                                                 <a class="nav-link page-scroll" href="ready_made_stator_core_stamping_molds.html">Ready Molds</a></li><li><a class="nav-link page-scroll" href="news.html">News</a>
'                                                            </li>
'                                                            <li>
'                                                                <a class="nav-link page-scroll" href="Contact.html">Contact</a>
'                                                            </li>
'                                                        </ul>
'                                                        <span class="block lg:ml-3.5">
'                                                            <a class="no-underline" href="#your-link">
'                                                                <i class="fab fa-appleaaaa text-indigo-600 hover:text-pink-500 text-xl transition-all duration-200 mr-1.5"></i>
'                                                            </a>
'                                                            <a class="no-underline" href="#your-link">
'                                                                <i class="fab fa-androidaaaa text-indigo-600 hover:text-pink-500 text-xl transition-all duration-200"></i>
'                                                            </a>
'                                                        </span>
'                                                    </div>
'                                                </div>
'                                            </nav>
    n = 1
    nKK = n '''指名位置，，
    L1 = InStr(IIf(nKK > 0, nKK, 1), xText, "<nav class=""navbar fixed-top"">")
    L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "</nav>")
    yText = Left(xText, L2) '有效数据加以限制

    If L1 > 0 And L2 > 0 Then
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<!-- ": t1R = "": t2 = "-->" '注释语句，忽略。。。<!-- Text Logo - Use this if you don't have a graphic logo -->
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""nav-link page-scroll"" href=""../index.html"">": t1R = "": t2 = "<span class=""sr-only"">" '特殊处理，，，<a class="nav-link page-scroll" href="../index.html">Home <span class="sr-only">(current)</span></a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

''          <a class="nav-link page-scroll" href="index.html">Home
''            <span class="sr-only">(current)</span></a>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""nav-link page-scroll"" href=""index.html"">": t1R = "": t2 = "<span class=""sr-only"">" '特殊处理，，，<a class="nav-link page-scroll" href="index.html">Home <span class="sr-only">(current)</span></a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""nav-link": t1R = "": t2 = "</a>" '<a class="nav-link page-scroll" href="About.html">About us</a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""dropdown-item": t1R = "": t2 = "</a>" '<a class="dropdown-item page-scroll" href="Stator-Core.html">Stator Core</a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

    Else
        MsgBox "找不到【导航部分】的 起始代码 或 结束代码  ... 请检查代码先。。。"
    End If

'
' 3）Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分
    Cells(31, 1) = "Body部分"
'                                            <!-- Navigation -->
'                                            <nav class="navbar fixed-top">
'                                                <div class="container flex flex-wrap items-center justify-between sm:px-4 lg:flex-nowrap lg:px-8">
'
'                                                    <!-- Text Logo - Use this if you don't have a graphic logo -->
'                                                    <!--<a class="text-gray-800 font-semibold text-3xl leading-4 no-underline page-scroll" href="index.html">Pavo</a>-->
'
'                                            </nav>
    n = 1
    nKK = n '''指名位置，，
    L1 = InStr(IIf(nKK > 0, nKK, 1), xText, "<header")
    'L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "<!-- Footer QianMianBuFen -->") '<div class="footer">
    L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "<div class=""footer"">") '
    yText = Left(xText, L2) '有效数据加以限制

    If L1 > 0 And L2 > 0 Then
                ' n = L1: nKK = n   '''更新位置，，
                ' Do While n < L2
                        ' t1 = "<!-- ": t1R = "": t2 = "-->" '注释语句，忽略。。。<!-- Text Logo - Use this if you don't have a graphic logo -->
                                ' MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    ' If MM > 0 Then n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        ' n = n + 1: nKK = n
                ' Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""nav-link page-scroll"" href=""index.html"">": t1R = "": t2 = "<span class=""sr-only"">" '特殊处理，，，<a class="nav-link page-scroll" href="index.html">Home <span class="sr-only">(current)</span></a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

'<div class="flex-1 ml-2"><strong>Stator Diameter</strong> : 5-450mm</div>
'<div class="flex-1 ml-2"><strong>Winding service</strong>.........</div>
'<div class="flex-1 ml-2"><strong>Winding service</strong> : Manual Winding for prototype sample and automatic machine winding for our productions.</div>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<div class=""flex-1 ml-2""><strong>": t1R = "": t2 = "</div>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

'<h1 class="xl:ml-24">Revealing the <span class="yy-title-gradient">Laminated Stamping</span> Manufacturing Process of Motor Stator and Rotor Cores</h1>
'<p class="p-large mb-8"><span class="yy-title-gradient">smaller and lighter with higher efficiency</span></p>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<span class=""yy-title-gradient"">": t1R = "</span>": t2 = "</"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<p ": t1R = "": t2 = "</p>"  '<p class="mb-4">If you have any que....</p>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<p>": t1R = "": t2 = "</p>"  '<p>..............</p>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h1>": t1R = "": t2 = "</h1>" '<h1>xxxxxxxxxxxxxxxx</h1>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h2>": t1R = "": t2 = "</h2>" '<h2>xxxxxxxxxxxxxxxx</h2>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h3>": t1R = "": t2 = "</h3>" '<h3>xxxxxxxxxxxxxxxx</h3>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h4>": t1R = "": t2 = "</h4>" '<h4>xxxxxxxxxxxxxxxx</h4>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h5>": t1R = "": t2 = "</h5>" '<h5>xxxxxxxxxxxxxxxx</h5>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h6>": t1R = "": t2 = "</h6>" '<h6>xxxxxxxxxxxxxxxx</h6>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h1 ": t1R = "": t2 = "</h1>" '<h1 class="xl:ml-24">Electrical Steel Materials</h1>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h2 ": t1R = "": t2 = "</h2>" '<h2 class="mb-4">Electrical Steel Materials in stock</h2>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h3 ": t1R = "": t2 = "</h3>" '<h3 class="mb-4">Electrical Steel Materials in stock</h3>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h4 ": t1R = "": t2 = "</h4>" '<h4 class="mb-4">Electrical Steel Materials in stock</h4>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h5 ": t1R = "": t2 = "</h5>" '<h5 class="mb-4">Electrical Steel Materials in stock</h5>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h6 ": t1R = "": t2 = "</h6>" '<h6 class="mb-4">Electrical Steel Materials in stock</h6>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<div class=""li_paragraph"">": t1R = "": t2 = "</div>" '<div class="li_paragraph">AAAAAAAAAA</div>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

'<li class="flex"><div class="">?</div><div class="flex-1 ml-2">AAAAAAAAAAAAAAAAA</div></li>
'<li class="flex"><div class="">?</div><div class="flex-1 ml-2">Features such as a beautiful metallic appearance, high corrosion resistance, wear resistance, low paper friction, scratch resistance and fingerprint resistance, have led to an excellent reputation for this unpainted galvanized steel sheet for many years.</div></li>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "</div><div class=""flex-1 ml-2"">": t1R = "": t2 = "</div></li>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

'<div class="font-normal text-base contact__feedback"><a href="../electrical-steel-materials.html" target="_blank" rel="noopener noreferrer" title="Electrical Steel Materials" class="contact__button">Electrical Steel Materials</a></div>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<div class=""font-normal": t1R = "": t2 = "</div>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<td class=": t1R = "": t2 = "</td>"
'                        t1 = "<td class=""px-2 py-4 text-left"">": t1R = "": t2 = "</td>"
'表格中的字符串段落词组
'                <td class="px-2 py-4 text-left">
'            By reducing the plate thickness, eddy currents can be suppressed and loss can be reduced.</td></tr>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                '<a class="hover:bg-indigo-100 hover:text-blue-120" target="_blank" rel="noopener noreferrer" href="motor_core.html">Custom Stator</a>
                        t1 = """ target=""_blank"" rel=""noopener noreferrer"" href=""": t1R = "": t2 = "</a>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""dropdown-item": t1R = "": t2 = "</a>" '<a class="dropdown-item page-scroll" href="Stator-Core.html">Stator Core</a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                'src="images/Interlock-Bonding-Welding-lamination-technology.webp" alt="Interlock Bonding Welding lamination technology" title="Interlock Bonding Welding lamination technology",
		"potentialAction": {
			"@type": "SearchAction",
			"target": "https://www.backlack.com/css/Option Explicit.html{search_term_string}",
			"query-input": "required name=search_term_string"
		}
	},
	{
		"@type": "Article",
		"mainEntityOfPage": {
			"@type": "WebPage",
			"@id": "https://www.backlack.com/css/Option Explicit.html"
		},
		"headline": "" And t2 = "",
		"description": "High Speed Stator and Rotor Lamination Production Stamping manufacturer" />
'                                            <meta name="keywords" content="Lamination Production, Stamping manufacturer, Stator and Rotor Lamination">
'                                            <meta name="author" content="DongGuan YouYou Technology, 506586589@qq.com" />
'
'                                            <meta itemprop="name" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer",
		"image": "https://www.istator.com/images/Bonding-varnish-Backlack.jpg" />
'                                            <meta name="description" itemprop="High Speed Stator and Rotor Lamination Production Stamping manufacturer" />
'
'                                            <meta name="format-detection" content="telephone=no,email=no,date=no,address=no">
'                                            <meta http-equiv="X-UA-Compatible" content="IE=edge" />
'                                            <meta name="application-name" content="DongGuan YouYou Technology Co.,Ltd">
'
'                                            <meta property="og:site_name" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer" />
'                                            <meta property="og:type" content="product">
'                                            <meta property="og:site" content="https://www.istator.com" />
'                                            <meta property="og:title" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer" />
'                                            <meta property="og:description" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer" />
'                                            <meta property="og:image" content="https://www.istator.com/images/Bonding-varnish-Backlack.jpg" />
'                                            <meta property="og:image:alt" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer">
'                                            <meta property="og:url" content="https://www.istator.com" />
'                                            <meta name="twitter:card" content="summary_large_image">
'                                            <meta name="twitter:title" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer">
'                                            <meta name="twitter:description" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer">
'                                            <meta name="twitter:image" content="https://www.istator.com/images/Bonding-varnish-Backlack.jpg">

    n = 1
    nKK = n '''指名位置，，
    L1 = InStr(IIf(nKK > 0, nKK, 1), xText, "<head>")
    L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "</head>")
    yText = Left(xText, L2) '有效数据加以限制

    If L1 > 0 And L2 > 0 Then
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<title>": t1R = "": t2 = "</title>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("1）头部", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<meta ": t1R = "": t2 = ">"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("1）头部", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

            'MsgBox yText
    Else
        MsgBox "找不到Body的 起始代码<header ，或，footer代码<div class=""footer""... 请检查代码先。。。"
    End If

' 2）导航部分
Cells(31, 1) = "导航部分"
'                                            <!-- Navigation -->
'                                            <nav class="navbar fixed-top">
'                                                <div class="container flex flex-wrap items-center justify-between sm:px-4 lg:flex-nowrap lg:px-8">
'
'                                                    <!-- Text Logo - Use this if you don't have a graphic logo -->
'                                                    <!--<a class="text-gray-800 font-semibold text-3xl leading-4 no-underline page-scroll" href="index.html">Pavo</a>-->
'
'                                                    <!-- Image Logo -->
'                                                    <a class="inline-block mr-4 py-0.5 text-xl whitespace-nowrap hover:no-underline focus:no-underline" href="index.html">
'                                                        <svg viewBo e"y="-7.76772">i</text></g></svg>
'                                                    </a>
'
'                                                    <button class="background-transparent rounded text-xl leading-none hover:no-underline focus:no-underline lg:hidden lg:text-gray-400" type="button" data-toggle="offcanvas">
'                                                        <span class="navbar-toggler-icon inline-block w-8 h-8 align-middle"></span>
'                                                    </button>
'
'                                                    <div class="navbar-collapse offcanvas-collapse lg:flex lg:flex-grow lg:items-center" id="navbarsExampleDefault">
'                                                        <ul class="pl-0 mt-3 mb-2 ml-auto flex flex-col list-none lg:mt-0 lg:mb-0 lg:flex-row">
'                                                            <li>
'                                                                <a class="nav-link page-scroll" href="index.html">Home <span class="sr-only">(current)</span></a>
'                                                            </li>
'                                                            <li>
'                                                                <a class="nav-link page-scroll" href="About.html">About us</a>
'                                                            </li>
'                                                            <li class="dropdown">
'                                                                <a class="nav-link dropdown-toggle" id="dropdown01" data-toggle="dropdown" aria-haspopup="true" aria-expanded="false">Products</a>
'                                                                <div class="dropdown-menu" aria-labelledby="dropdown01">
'                                                                    <a class="dropdown-item page-scroll" href="Stator-Core.html">Stator Core</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Rotor-Core.html">Rotor Core</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Stator-and-Rotor-Lamination.html">Stator and Rotor Lamination</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Axial-Flux-Stator.html">Axial Flux Stator</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Stator-Coil-Winding.html">Stator Coil Winding</a>
'                                                                </div>
'                                                            </li>
'                                                            <li class="dropdown">
'                                                                <a class="nav-link dropdown-toggle" id="dropdown02" data-toggle="dropdown" aria-haspopup="true" aria-expanded="false">Services</a>
'                                                                <div class="dropdown-menu" aria-labelledby="dropdown01">
'                                                                    <a class="dropdown-item page-scroll" href="Bonding-varnish-Backlack.html">Bonding varnish/Backlack</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Stamping.html">Stamping</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Coil-Winding.html">Coil Winding</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Electrical-Steel-Materials.html">Electrical Steel Materials</a>
'                                                                </div>
'                                                            </li>
'                                                            <li>
'                                                                 <a class="nav-link page-scroll" href="ready_made_stator_core_stamping_molds.html">Ready Molds</a></li><li><a class="nav-link page-scroll" href="news.html">News</a>
'                                                            </li>
'                                                            <li>
'                                                                <a class="nav-link page-scroll" href="Contact.html">Contact</a>
'                                                            </li>
'                                                        </ul>
'                                                        <span class="block lg:ml-3.5">
'                                                            <a class="no-underline" href="#your-link">
'                                                                <i class="fab fa-appleaaaa text-indigo-600 hover:text-pink-500 text-xl transition-all duration-200 mr-1.5"></i>
'                                                            </a>
'                                                            <a class="no-underline" href="#your-link">
'                                                                <i class="fab fa-androidaaaa text-indigo-600 hover:text-pink-500 text-xl transition-all duration-200"></i>
'                                                            </a>
'                                                        </span>
'                                                    </div>
'                                                </div>
'                                            </nav>
    n = 1
    nKK = n '''指名位置，，
    L1 = InStr(IIf(nKK > 0, nKK, 1), xText, "<nav class=""navbar fixed-top"">")
    L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "</nav>")
    yText = Left(xText, L2) '有效数据加以限制

    If L1 > 0 And L2 > 0 Then
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<!-- ": t1R = "": t2 = "-->" '注释语句，忽略。。。<!-- Text Logo - Use this if you don't have a graphic logo -->
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""nav-link page-scroll"" href=""../index.html"">": t1R = "": t2 = "<span class=""sr-only"">" '特殊处理，，，<a class="nav-link page-scroll" href="../index.html">Home <span class="sr-only">(current)</span></a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

''          <a class="nav-link page-scroll" href="index.html">Home
''            <span class="sr-only">(current)</span></a>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""nav-link page-scroll"" href=""index.html"">": t1R = "": t2 = "<span class=""sr-only"">" '特殊处理，，，<a class="nav-link page-scroll" href="index.html">Home <span class="sr-only">(current)</span></a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""nav-link": t1R = "": t2 = "</a>" '<a class="nav-link page-scroll" href="About.html">About us</a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""dropdown-item": t1R = "": t2 = "</a>" '<a class="dropdown-item page-scroll" href="Stator-Core.html">Stator Core</a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

    Else
        MsgBox "找不到【导航部分】的 起始代码 或 结束代码  ... 请检查代码先。。。"
    End If

'
' 3）Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分
    Cells(31, 1) = "Body部分"
'                                            <!-- Navigation -->
'                                            <nav class="navbar fixed-top">
'                                                <div class="container flex flex-wrap items-center justify-between sm:px-4 lg:flex-nowrap lg:px-8">
'
'                                                    <!-- Text Logo - Use this if you don't have a graphic logo -->
'                                                    <!--<a class="text-gray-800 font-semibold text-3xl leading-4 no-underline page-scroll" href="index.html">Pavo</a>-->
'
'                                            </nav>
    n = 1
    nKK = n '''指名位置，，
    L1 = InStr(IIf(nKK > 0, nKK, 1), xText, "<header")
    'L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "<!-- Footer QianMianBuFen -->") '<div class="footer">
    L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "<div class=""footer"">") '
    yText = Left(xText, L2) '有效数据加以限制

    If L1 > 0 And L2 > 0 Then
                ' n = L1: nKK = n   '''更新位置，，
                ' Do While n < L2
                        ' t1 = "<!-- ": t1R = "": t2 = "-->" '注释语句，忽略。。。<!-- Text Logo - Use this if you don't have a graphic logo -->
                                ' MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    ' If MM > 0 Then n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        ' n = n + 1: nKK = n
                ' Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""nav-link page-scroll"" href=""index.html"">": t1R = "": t2 = "<span class=""sr-only"">" '特殊处理，，，<a class="nav-link page-scroll" href="index.html">Home <span class="sr-only">(current)</span></a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

'<div class="flex-1 ml-2"><strong>Stator Diameter</strong> : 5-450mm</div>
'<div class="flex-1 ml-2"><strong>Winding service</strong>.........</div>
'<div class="flex-1 ml-2"><strong>Winding service</strong> : Manual Winding for prototype sample and automatic machine winding for our productions.</div>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<div class=""flex-1 ml-2""><strong>": t1R = "": t2 = "</div>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

'<h1 class="xl:ml-24">Revealing the <span class="yy-title-gradient">Laminated Stamping</span> Manufacturing Process of Motor Stator and Rotor Cores</h1>
'<p class="p-large mb-8"><span class="yy-title-gradient">smaller and lighter with higher efficiency</span></p>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<span class=""yy-title-gradient"">": t1R = "</span>": t2 = "</"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<p ": t1R = "": t2 = "</p>"  '<p class="mb-4">If you have any que....</p>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<p>": t1R = "": t2 = "</p>"  '<p>..............</p>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h1>": t1R = "": t2 = "</h1>" '<h1>xxxxxxxxxxxxxxxx</h1>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h2>": t1R = "": t2 = "</h2>" '<h2>xxxxxxxxxxxxxxxx</h2>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h3>": t1R = "": t2 = "</h3>" '<h3>xxxxxxxxxxxxxxxx</h3>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h4>": t1R = "": t2 = "</h4>" '<h4>xxxxxxxxxxxxxxxx</h4>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h5>": t1R = "": t2 = "</h5>" '<h5>xxxxxxxxxxxxxxxx</h5>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h6>": t1R = "": t2 = "</h6>" '<h6>xxxxxxxxxxxxxxxx</h6>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h1 ": t1R = "": t2 = "</h1>" '<h1 class="xl:ml-24">Electrical Steel Materials</h1>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h2 ": t1R = "": t2 = "</h2>" '<h2 class="mb-4">Electrical Steel Materials in stock</h2>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h3 ": t1R = "": t2 = "</h3>" '<h3 class="mb-4">Electrical Steel Materials in stock</h3>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h4 ": t1R = "": t2 = "</h4>" '<h4 class="mb-4">Electrical Steel Materials in stock</h4>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h5 ": t1R = "": t2 = "</h5>" '<h5 class="mb-4">Electrical Steel Materials in stock</h5>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h6 ": t1R = "": t2 = "</h6>" '<h6 class="mb-4">Electrical Steel Materials in stock</h6>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<div class=""li_paragraph"">": t1R = "": t2 = "</div>" '<div class="li_paragraph">AAAAAAAAAA</div>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

'<li class="flex"><div class="">?</div><div class="flex-1 ml-2">AAAAAAAAAAAAAAAAA</div></li>
'<li class="flex"><div class="">?</div><div class="flex-1 ml-2">Features such as a beautiful metallic appearance, high corrosion resistance, wear resistance, low paper friction, scratch resistance and fingerprint resistance, have led to an excellent reputation for this unpainted galvanized steel sheet for many years.</div></li>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "</div><div class=""flex-1 ml-2"">": t1R = "": t2 = "</div></li>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

'<div class="font-normal text-base contact__feedback"><a href="../electrical-steel-materials.html" target="_blank" rel="noopener noreferrer" title="Electrical Steel Materials" class="contact__button">Electrical Steel Materials</a></div>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<div class=""font-normal": t1R = "": t2 = "</div>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<td class=": t1R = "": t2 = "</td>"
'                        t1 = "<td class=""px-2 py-4 text-left"">": t1R = "": t2 = "</td>"
'表格中的字符串段落词组
'                <td class="px-2 py-4 text-left">
'            By reducing the plate thickness, eddy currents can be suppressed and loss can be reduced.</td></tr>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                '<a class="hover:bg-indigo-100 hover:text-blue-120" target="_blank" rel="noopener noreferrer" href="motor_core.html">Custom Stator</a>
                        t1 = """ target=""_blank"" rel=""noopener noreferrer"" href=""": t1R = "": t2 = "</a>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""dropdown-item": t1R = "": t2 = "</a>" '<a class="dropdown-item page-scroll" href="Stator-Core.html">Stator Core</a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                'src="images/Interlock-Bonding-Welding-lamination-technology.webp" alt="Interlock Bonding Welding lamination technology" title="Interlock Bonding Welding lamination technology",
		"author": {
			"@type": "Person",
			"name": "YOUYOU TECH",
			"url": "https://www.istator.com" />
'                                            <meta property="og:title" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer" />
'                                            <meta property="og:description" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer" />
'                                            <meta property="og:image" content="https://www.istator.com/images/Bonding-varnish-Backlack.jpg" />
'                                            <meta property="og:image:alt" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer">
'                                            <meta property="og:url" content="https://www.istator.com" />
'                                            <meta name="twitter:card" content="summary_large_image">
'                                            <meta name="twitter:title" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer">
'                                            <meta name="twitter:description" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer">
'                                            <meta name="twitter:image" content="https://www.istator.com/images/Bonding-varnish-Backlack.jpg">

    n = 1
    nKK = n '''指名位置，，
    L1 = InStr(IIf(nKK > 0, nKK, 1), xText, "<head>")
    L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "</head>")
    yText = Left(xText, L2) '有效数据加以限制

    If L1 > 0 And L2 > 0 Then
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<title>": t1R = "": t2 = "</title>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("1）头部", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<meta ": t1R = "": t2 = ">"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("1）头部", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

            'MsgBox yText
    Else
        MsgBox "找不到Body的 起始代码<header ，或，footer代码<div class=""footer""... 请检查代码先。。。"
    End If

' 2）导航部分
Cells(31, 1) = "导航部分"
'                                            <!-- Navigation -->
'                                            <nav class="navbar fixed-top">
'                                                <div class="container flex flex-wrap items-center justify-between sm:px-4 lg:flex-nowrap lg:px-8">
'
'                                                    <!-- Text Logo - Use this if you don't have a graphic logo -->
'                                                    <!--<a class="text-gray-800 font-semibold text-3xl leading-4 no-underline page-scroll" href="index.html">Pavo</a>-->
'
'                                                    <!-- Image Logo -->
'                                                    <a class="inline-block mr-4 py-0.5 text-xl whitespace-nowrap hover:no-underline focus:no-underline" href="index.html">
'                                                        <svg viewBo e"y="-7.76772">i</text></g></svg>
'                                                    </a>
'
'                                                    <button class="background-transparent rounded text-xl leading-none hover:no-underline focus:no-underline lg:hidden lg:text-gray-400" type="button" data-toggle="offcanvas">
'                                                        <span class="navbar-toggler-icon inline-block w-8 h-8 align-middle"></span>
'                                                    </button>
'
'                                                    <div class="navbar-collapse offcanvas-collapse lg:flex lg:flex-grow lg:items-center" id="navbarsExampleDefault">
'                                                        <ul class="pl-0 mt-3 mb-2 ml-auto flex flex-col list-none lg:mt-0 lg:mb-0 lg:flex-row">
'                                                            <li>
'                                                                <a class="nav-link page-scroll" href="index.html">Home <span class="sr-only">(current)</span></a>
'                                                            </li>
'                                                            <li>
'                                                                <a class="nav-link page-scroll" href="About.html">About us</a>
'                                                            </li>
'                                                            <li class="dropdown">
'                                                                <a class="nav-link dropdown-toggle" id="dropdown01" data-toggle="dropdown" aria-haspopup="true" aria-expanded="false">Products</a>
'                                                                <div class="dropdown-menu" aria-labelledby="dropdown01">
'                                                                    <a class="dropdown-item page-scroll" href="Stator-Core.html">Stator Core</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Rotor-Core.html">Rotor Core</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Stator-and-Rotor-Lamination.html">Stator and Rotor Lamination</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Axial-Flux-Stator.html">Axial Flux Stator</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Stator-Coil-Winding.html">Stator Coil Winding</a>
'                                                                </div>
'                                                            </li>
'                                                            <li class="dropdown">
'                                                                <a class="nav-link dropdown-toggle" id="dropdown02" data-toggle="dropdown" aria-haspopup="true" aria-expanded="false">Services</a>
'                                                                <div class="dropdown-menu" aria-labelledby="dropdown01">
'                                                                    <a class="dropdown-item page-scroll" href="Bonding-varnish-Backlack.html">Bonding varnish/Backlack</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Stamping.html">Stamping</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Coil-Winding.html">Coil Winding</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Electrical-Steel-Materials.html">Electrical Steel Materials</a>
'                                                                </div>
'                                                            </li>
'                                                            <li>
'                                                                 <a class="nav-link page-scroll" href="ready_made_stator_core_stamping_molds.html">Ready Molds</a></li><li><a class="nav-link page-scroll" href="news.html">News</a>
'                                                            </li>
'                                                            <li>
'                                                                <a class="nav-link page-scroll" href="Contact.html">Contact</a>
'                                                            </li>
'                                                        </ul>
'                                                        <span class="block lg:ml-3.5">
'                                                            <a class="no-underline" href="#your-link">
'                                                                <i class="fab fa-appleaaaa text-indigo-600 hover:text-pink-500 text-xl transition-all duration-200 mr-1.5"></i>
'                                                            </a>
'                                                            <a class="no-underline" href="#your-link">
'                                                                <i class="fab fa-androidaaaa text-indigo-600 hover:text-pink-500 text-xl transition-all duration-200"></i>
'                                                            </a>
'                                                        </span>
'                                                    </div>
'                                                </div>
'                                            </nav>
    n = 1
    nKK = n '''指名位置，，
    L1 = InStr(IIf(nKK > 0, nKK, 1), xText, "<nav class=""navbar fixed-top"">")
    L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "</nav>")
    yText = Left(xText, L2) '有效数据加以限制

    If L1 > 0 And L2 > 0 Then
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<!-- ": t1R = "": t2 = "-->" '注释语句，忽略。。。<!-- Text Logo - Use this if you don't have a graphic logo -->
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""nav-link page-scroll"" href=""../index.html"">": t1R = "": t2 = "<span class=""sr-only"">" '特殊处理，，，<a class="nav-link page-scroll" href="../index.html">Home <span class="sr-only">(current)</span></a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

''          <a class="nav-link page-scroll" href="index.html">Home
''            <span class="sr-only">(current)</span></a>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""nav-link page-scroll"" href=""index.html"">": t1R = "": t2 = "<span class=""sr-only"">" '特殊处理，，，<a class="nav-link page-scroll" href="index.html">Home <span class="sr-only">(current)</span></a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""nav-link": t1R = "": t2 = "</a>" '<a class="nav-link page-scroll" href="About.html">About us</a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""dropdown-item": t1R = "": t2 = "</a>" '<a class="dropdown-item page-scroll" href="Stator-Core.html">Stator Core</a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

    Else
        MsgBox "找不到【导航部分】的 起始代码 或 结束代码  ... 请检查代码先。。。"
    End If

'
' 3）Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分
    Cells(31, 1) = "Body部分"
'                                            <!-- Navigation -->
'                                            <nav class="navbar fixed-top">
'                                                <div class="container flex flex-wrap items-center justify-between sm:px-4 lg:flex-nowrap lg:px-8">
'
'                                                    <!-- Text Logo - Use this if you don't have a graphic logo -->
'                                                    <!--<a class="text-gray-800 font-semibold text-3xl leading-4 no-underline page-scroll" href="index.html">Pavo</a>-->
'
'                                            </nav>
    n = 1
    nKK = n '''指名位置，，
    L1 = InStr(IIf(nKK > 0, nKK, 1), xText, "<header")
    'L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "<!-- Footer QianMianBuFen -->") '<div class="footer">
    L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "<div class=""footer"">") '
    yText = Left(xText, L2) '有效数据加以限制

    If L1 > 0 And L2 > 0 Then
                ' n = L1: nKK = n   '''更新位置，，
                ' Do While n < L2
                        ' t1 = "<!-- ": t1R = "": t2 = "-->" '注释语句，忽略。。。<!-- Text Logo - Use this if you don't have a graphic logo -->
                                ' MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    ' If MM > 0 Then n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        ' n = n + 1: nKK = n
                ' Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""nav-link page-scroll"" href=""index.html"">": t1R = "": t2 = "<span class=""sr-only"">" '特殊处理，，，<a class="nav-link page-scroll" href="index.html">Home <span class="sr-only">(current)</span></a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

'<div class="flex-1 ml-2"><strong>Stator Diameter</strong> : 5-450mm</div>
'<div class="flex-1 ml-2"><strong>Winding service</strong>.........</div>
'<div class="flex-1 ml-2"><strong>Winding service</strong> : Manual Winding for prototype sample and automatic machine winding for our productions.</div>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<div class=""flex-1 ml-2""><strong>": t1R = "": t2 = "</div>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

'<h1 class="xl:ml-24">Revealing the <span class="yy-title-gradient">Laminated Stamping</span> Manufacturing Process of Motor Stator and Rotor Cores</h1>
'<p class="p-large mb-8"><span class="yy-title-gradient">smaller and lighter with higher efficiency</span></p>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<span class=""yy-title-gradient"">": t1R = "</span>": t2 = "</"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<p ": t1R = "": t2 = "</p>"  '<p class="mb-4">If you have any que....</p>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<p>": t1R = "": t2 = "</p>"  '<p>..............</p>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h1>": t1R = "": t2 = "</h1>" '<h1>xxxxxxxxxxxxxxxx</h1>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h2>": t1R = "": t2 = "</h2>" '<h2>xxxxxxxxxxxxxxxx</h2>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h3>": t1R = "": t2 = "</h3>" '<h3>xxxxxxxxxxxxxxxx</h3>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h4>": t1R = "": t2 = "</h4>" '<h4>xxxxxxxxxxxxxxxx</h4>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h5>": t1R = "": t2 = "</h5>" '<h5>xxxxxxxxxxxxxxxx</h5>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h6>": t1R = "": t2 = "</h6>" '<h6>xxxxxxxxxxxxxxxx</h6>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h1 ": t1R = "": t2 = "</h1>" '<h1 class="xl:ml-24">Electrical Steel Materials</h1>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h2 ": t1R = "": t2 = "</h2>" '<h2 class="mb-4">Electrical Steel Materials in stock</h2>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h3 ": t1R = "": t2 = "</h3>" '<h3 class="mb-4">Electrical Steel Materials in stock</h3>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h4 ": t1R = "": t2 = "</h4>" '<h4 class="mb-4">Electrical Steel Materials in stock</h4>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h5 ": t1R = "": t2 = "</h5>" '<h5 class="mb-4">Electrical Steel Materials in stock</h5>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h6 ": t1R = "": t2 = "</h6>" '<h6 class="mb-4">Electrical Steel Materials in stock</h6>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<div class=""li_paragraph"">": t1R = "": t2 = "</div>" '<div class="li_paragraph">AAAAAAAAAA</div>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

'<li class="flex"><div class="">?</div><div class="flex-1 ml-2">AAAAAAAAAAAAAAAAA</div></li>
'<li class="flex"><div class="">?</div><div class="flex-1 ml-2">Features such as a beautiful metallic appearance, high corrosion resistance, wear resistance, low paper friction, scratch resistance and fingerprint resistance, have led to an excellent reputation for this unpainted galvanized steel sheet for many years.</div></li>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "</div><div class=""flex-1 ml-2"">": t1R = "": t2 = "</div></li>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

'<div class="font-normal text-base contact__feedback"><a href="../electrical-steel-materials.html" target="_blank" rel="noopener noreferrer" title="Electrical Steel Materials" class="contact__button">Electrical Steel Materials</a></div>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<div class=""font-normal": t1R = "": t2 = "</div>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<td class=": t1R = "": t2 = "</td>"
'                        t1 = "<td class=""px-2 py-4 text-left"">": t1R = "": t2 = "</td>"
'表格中的字符串段落词组
'                <td class="px-2 py-4 text-left">
'            By reducing the plate thickness, eddy currents can be suppressed and loss can be reduced.</td></tr>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                '<a class="hover:bg-indigo-100 hover:text-blue-120" target="_blank" rel="noopener noreferrer" href="motor_core.html">Custom Stator</a>
                        t1 = """ target=""_blank"" rel=""noopener noreferrer"" href=""": t1R = "": t2 = "</a>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""dropdown-item": t1R = "": t2 = "</a>" '<a class="dropdown-item page-scroll" href="Stator-Core.html">Stator Core</a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                'src="images/Interlock-Bonding-Welding-lamination-technology.webp" alt="Interlock Bonding Welding lamination technology" title="Interlock Bonding Welding lamination technology"
		},
		"publisher": {
			"@type": "Organization",
			"name": "YOUYOU TECH",
			"logo": {
				"@type": "ImageObject",
				"url": "https://www.istator.com" />
'                                            <meta property="og:title" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer" />
'                                            <meta property="og:description" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer" />
'                                            <meta property="og:image" content="https://www.istator.com/images/Bonding-varnish-Backlack.jpg" />
'                                            <meta property="og:image:alt" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer">
'                                            <meta property="og:url" content="https://www.istator.com" />
'                                            <meta name="twitter:card" content="summary_large_image">
'                                            <meta name="twitter:title" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer">
'                                            <meta name="twitter:description" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer">
'                                            <meta name="twitter:image" content="https://www.istator.com/images/Bonding-varnish-Backlack.jpg">

    n = 1
    nKK = n '''指名位置，，
    L1 = InStr(IIf(nKK > 0, nKK, 1), xText, "<head>")
    L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "</head>")
    yText = Left(xText, L2) '有效数据加以限制

    If L1 > 0 And L2 > 0 Then
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<title>": t1R = "": t2 = "</title>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("1）头部", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<meta ": t1R = "": t2 = ">"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("1）头部", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

            'MsgBox yText
    Else
        MsgBox "找不到Body的 起始代码<header ，或，footer代码<div class=""footer""... 请检查代码先。。。"
    End If

' 2）导航部分
Cells(31, 1) = "导航部分"
'                                            <!-- Navigation -->
'                                            <nav class="navbar fixed-top">
'                                                <div class="container flex flex-wrap items-center justify-between sm:px-4 lg:flex-nowrap lg:px-8">
'
'                                                    <!-- Text Logo - Use this if you don't have a graphic logo -->
'                                                    <!--<a class="text-gray-800 font-semibold text-3xl leading-4 no-underline page-scroll" href="index.html">Pavo</a>-->
'
'                                                    <!-- Image Logo -->
'                                                    <a class="inline-block mr-4 py-0.5 text-xl whitespace-nowrap hover:no-underline focus:no-underline" href="index.html">
'                                                        <svg viewBo e"y="-7.76772">i</text></g></svg>
'                                                    </a>
'
'                                                    <button class="background-transparent rounded text-xl leading-none hover:no-underline focus:no-underline lg:hidden lg:text-gray-400" type="button" data-toggle="offcanvas">
'                                                        <span class="navbar-toggler-icon inline-block w-8 h-8 align-middle"></span>
'                                                    </button>
'
'                                                    <div class="navbar-collapse offcanvas-collapse lg:flex lg:flex-grow lg:items-center" id="navbarsExampleDefault">
'                                                        <ul class="pl-0 mt-3 mb-2 ml-auto flex flex-col list-none lg:mt-0 lg:mb-0 lg:flex-row">
'                                                            <li>
'                                                                <a class="nav-link page-scroll" href="index.html">Home <span class="sr-only">(current)</span></a>
'                                                            </li>
'                                                            <li>
'                                                                <a class="nav-link page-scroll" href="About.html">About us</a>
'                                                            </li>
'                                                            <li class="dropdown">
'                                                                <a class="nav-link dropdown-toggle" id="dropdown01" data-toggle="dropdown" aria-haspopup="true" aria-expanded="false">Products</a>
'                                                                <div class="dropdown-menu" aria-labelledby="dropdown01">
'                                                                    <a class="dropdown-item page-scroll" href="Stator-Core.html">Stator Core</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Rotor-Core.html">Rotor Core</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Stator-and-Rotor-Lamination.html">Stator and Rotor Lamination</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Axial-Flux-Stator.html">Axial Flux Stator</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Stator-Coil-Winding.html">Stator Coil Winding</a>
'                                                                </div>
'                                                            </li>
'                                                            <li class="dropdown">
'                                                                <a class="nav-link dropdown-toggle" id="dropdown02" data-toggle="dropdown" aria-haspopup="true" aria-expanded="false">Services</a>
'                                                                <div class="dropdown-menu" aria-labelledby="dropdown01">
'                                                                    <a class="dropdown-item page-scroll" href="Bonding-varnish-Backlack.html">Bonding varnish/Backlack</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Stamping.html">Stamping</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Coil-Winding.html">Coil Winding</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Electrical-Steel-Materials.html">Electrical Steel Materials</a>
'                                                                </div>
'                                                            </li>
'                                                            <li>
'                                                                 <a class="nav-link page-scroll" href="ready_made_stator_core_stamping_molds.html">Ready Molds</a></li><li><a class="nav-link page-scroll" href="news.html">News</a>
'                                                            </li>
'                                                            <li>
'                                                                <a class="nav-link page-scroll" href="Contact.html">Contact</a>
'                                                            </li>
'                                                        </ul>
'                                                        <span class="block lg:ml-3.5">
'                                                            <a class="no-underline" href="#your-link">
'                                                                <i class="fab fa-appleaaaa text-indigo-600 hover:text-pink-500 text-xl transition-all duration-200 mr-1.5"></i>
'                                                            </a>
'                                                            <a class="no-underline" href="#your-link">
'                                                                <i class="fab fa-androidaaaa text-indigo-600 hover:text-pink-500 text-xl transition-all duration-200"></i>
'                                                            </a>
'                                                        </span>
'                                                    </div>
'                                                </div>
'                                            </nav>
    n = 1
    nKK = n '''指名位置，，
    L1 = InStr(IIf(nKK > 0, nKK, 1), xText, "<nav class=""navbar fixed-top"">")
    L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "</nav>")
    yText = Left(xText, L2) '有效数据加以限制

    If L1 > 0 And L2 > 0 Then
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<!-- ": t1R = "": t2 = "-->" '注释语句，忽略。。。<!-- Text Logo - Use this if you don't have a graphic logo -->
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""nav-link page-scroll"" href=""../index.html"">": t1R = "": t2 = "<span class=""sr-only"">" '特殊处理，，，<a class="nav-link page-scroll" href="../index.html">Home <span class="sr-only">(current)</span></a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

''          <a class="nav-link page-scroll" href="index.html">Home
''            <span class="sr-only">(current)</span></a>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""nav-link page-scroll"" href=""index.html"">": t1R = "": t2 = "<span class=""sr-only"">" '特殊处理，，，<a class="nav-link page-scroll" href="index.html">Home <span class="sr-only">(current)</span></a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""nav-link": t1R = "": t2 = "</a>" '<a class="nav-link page-scroll" href="About.html">About us</a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""dropdown-item": t1R = "": t2 = "</a>" '<a class="dropdown-item page-scroll" href="Stator-Core.html">Stator Core</a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

    Else
        MsgBox "找不到【导航部分】的 起始代码 或 结束代码  ... 请检查代码先。。。"
    End If

'
' 3）Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分
    Cells(31, 1) = "Body部分"
'                                            <!-- Navigation -->
'                                            <nav class="navbar fixed-top">
'                                                <div class="container flex flex-wrap items-center justify-between sm:px-4 lg:flex-nowrap lg:px-8">
'
'                                                    <!-- Text Logo - Use this if you don't have a graphic logo -->
'                                                    <!--<a class="text-gray-800 font-semibold text-3xl leading-4 no-underline page-scroll" href="index.html">Pavo</a>-->
'
'                                            </nav>
    n = 1
    nKK = n '''指名位置，，
    L1 = InStr(IIf(nKK > 0, nKK, 1), xText, "<header")
    'L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "<!-- Footer QianMianBuFen -->") '<div class="footer">
    L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "<div class=""footer"">") '
    yText = Left(xText, L2) '有效数据加以限制

    If L1 > 0 And L2 > 0 Then
                ' n = L1: nKK = n   '''更新位置，，
                ' Do While n < L2
                        ' t1 = "<!-- ": t1R = "": t2 = "-->" '注释语句，忽略。。。<!-- Text Logo - Use this if you don't have a graphic logo -->
                                ' MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    ' If MM > 0 Then n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        ' n = n + 1: nKK = n
                ' Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""nav-link page-scroll"" href=""index.html"">": t1R = "": t2 = "<span class=""sr-only"">" '特殊处理，，，<a class="nav-link page-scroll" href="index.html">Home <span class="sr-only">(current)</span></a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

'<div class="flex-1 ml-2"><strong>Stator Diameter</strong> : 5-450mm</div>
'<div class="flex-1 ml-2"><strong>Winding service</strong>.........</div>
'<div class="flex-1 ml-2"><strong>Winding service</strong> : Manual Winding for prototype sample and automatic machine winding for our productions.</div>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<div class=""flex-1 ml-2""><strong>": t1R = "": t2 = "</div>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

'<h1 class="xl:ml-24">Revealing the <span class="yy-title-gradient">Laminated Stamping</span> Manufacturing Process of Motor Stator and Rotor Cores</h1>
'<p class="p-large mb-8"><span class="yy-title-gradient">smaller and lighter with higher efficiency</span></p>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<span class=""yy-title-gradient"">": t1R = "</span>": t2 = "</"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<p ": t1R = "": t2 = "</p>"  '<p class="mb-4">If you have any que....</p>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<p>": t1R = "": t2 = "</p>"  '<p>..............</p>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h1>": t1R = "": t2 = "</h1>" '<h1>xxxxxxxxxxxxxxxx</h1>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h2>": t1R = "": t2 = "</h2>" '<h2>xxxxxxxxxxxxxxxx</h2>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h3>": t1R = "": t2 = "</h3>" '<h3>xxxxxxxxxxxxxxxx</h3>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h4>": t1R = "": t2 = "</h4>" '<h4>xxxxxxxxxxxxxxxx</h4>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h5>": t1R = "": t2 = "</h5>" '<h5>xxxxxxxxxxxxxxxx</h5>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h6>": t1R = "": t2 = "</h6>" '<h6>xxxxxxxxxxxxxxxx</h6>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h1 ": t1R = "": t2 = "</h1>" '<h1 class="xl:ml-24">Electrical Steel Materials</h1>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h2 ": t1R = "": t2 = "</h2>" '<h2 class="mb-4">Electrical Steel Materials in stock</h2>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h3 ": t1R = "": t2 = "</h3>" '<h3 class="mb-4">Electrical Steel Materials in stock</h3>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h4 ": t1R = "": t2 = "</h4>" '<h4 class="mb-4">Electrical Steel Materials in stock</h4>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h5 ": t1R = "": t2 = "</h5>" '<h5 class="mb-4">Electrical Steel Materials in stock</h5>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h6 ": t1R = "": t2 = "</h6>" '<h6 class="mb-4">Electrical Steel Materials in stock</h6>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<div class=""li_paragraph"">": t1R = "": t2 = "</div>" '<div class="li_paragraph">AAAAAAAAAA</div>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

'<li class="flex"><div class="">?</div><div class="flex-1 ml-2">AAAAAAAAAAAAAAAAA</div></li>
'<li class="flex"><div class="">?</div><div class="flex-1 ml-2">Features such as a beautiful metallic appearance, high corrosion resistance, wear resistance, low paper friction, scratch resistance and fingerprint resistance, have led to an excellent reputation for this unpainted galvanized steel sheet for many years.</div></li>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "</div><div class=""flex-1 ml-2"">": t1R = "": t2 = "</div></li>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

'<div class="font-normal text-base contact__feedback"><a href="../electrical-steel-materials.html" target="_blank" rel="noopener noreferrer" title="Electrical Steel Materials" class="contact__button">Electrical Steel Materials</a></div>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<div class=""font-normal": t1R = "": t2 = "</div>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<td class=": t1R = "": t2 = "</td>"
'                        t1 = "<td class=""px-2 py-4 text-left"">": t1R = "": t2 = "</td>"
'表格中的字符串段落词组
'                <td class="px-2 py-4 text-left">
'            By reducing the plate thickness, eddy currents can be suppressed and loss can be reduced.</td></tr>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                '<a class="hover:bg-indigo-100 hover:text-blue-120" target="_blank" rel="noopener noreferrer" href="motor_core.html">Custom Stator</a>
                        t1 = """ target=""_blank"" rel=""noopener noreferrer"" href=""": t1R = "": t2 = "</a>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""dropdown-item": t1R = "": t2 = "</a>" '<a class="dropdown-item page-scroll" href="Stator-Core.html">Stator Core</a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                'src="images/Interlock-Bonding-Welding-lamination-technology.webp" alt="Interlock Bonding Welding lamination technology" title="Interlock Bonding Welding lamination technology/images/logo.png"
			}
		},
		"datePublished": "2025-04-05T17:35:21+00:00",
		"dateModified": "2025-04-05T17:35:21+00:00"
	},
	{
		"@type": "Organization",
		"name": "YOUYOU",
		"alternateName": "YOUYOU-TECH",
		"url": "https://www.istator.com" />
'                                            <meta property="og:title" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer" />
'                                            <meta property="og:description" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer" />
'                                            <meta property="og:image" content="https://www.istator.com/images/Bonding-varnish-Backlack.jpg" />
'                                            <meta property="og:image:alt" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer">
'                                            <meta property="og:url" content="https://www.istator.com" />
'                                            <meta name="twitter:card" content="summary_large_image">
'                                            <meta name="twitter:title" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer">
'                                            <meta name="twitter:description" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer">
'                                            <meta name="twitter:image" content="https://www.istator.com/images/Bonding-varnish-Backlack.jpg">

    n = 1
    nKK = n '''指名位置，，
    L1 = InStr(IIf(nKK > 0, nKK, 1), xText, "<head>")
    L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "</head>")
    yText = Left(xText, L2) '有效数据加以限制

    If L1 > 0 And L2 > 0 Then
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<title>": t1R = "": t2 = "</title>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("1）头部", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<meta ": t1R = "": t2 = ">"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("1）头部", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

            'MsgBox yText
    Else
        MsgBox "找不到Body的 起始代码<header ，或，footer代码<div class=""footer""... 请检查代码先。。。"
    End If

' 2）导航部分
Cells(31, 1) = "导航部分"
'                                            <!-- Navigation -->
'                                            <nav class="navbar fixed-top">
'                                                <div class="container flex flex-wrap items-center justify-between sm:px-4 lg:flex-nowrap lg:px-8">
'
'                                                    <!-- Text Logo - Use this if you don't have a graphic logo -->
'                                                    <!--<a class="text-gray-800 font-semibold text-3xl leading-4 no-underline page-scroll" href="index.html">Pavo</a>-->
'
'                                                    <!-- Image Logo -->
'                                                    <a class="inline-block mr-4 py-0.5 text-xl whitespace-nowrap hover:no-underline focus:no-underline" href="index.html">
'                                                        <svg viewBo e"y="-7.76772">i</text></g></svg>
'                                                    </a>
'
'                                                    <button class="background-transparent rounded text-xl leading-none hover:no-underline focus:no-underline lg:hidden lg:text-gray-400" type="button" data-toggle="offcanvas">
'                                                        <span class="navbar-toggler-icon inline-block w-8 h-8 align-middle"></span>
'                                                    </button>
'
'                                                    <div class="navbar-collapse offcanvas-collapse lg:flex lg:flex-grow lg:items-center" id="navbarsExampleDefault">
'                                                        <ul class="pl-0 mt-3 mb-2 ml-auto flex flex-col list-none lg:mt-0 lg:mb-0 lg:flex-row">
'                                                            <li>
'                                                                <a class="nav-link page-scroll" href="index.html">Home <span class="sr-only">(current)</span></a>
'                                                            </li>
'                                                            <li>
'                                                                <a class="nav-link page-scroll" href="About.html">About us</a>
'                                                            </li>
'                                                            <li class="dropdown">
'                                                                <a class="nav-link dropdown-toggle" id="dropdown01" data-toggle="dropdown" aria-haspopup="true" aria-expanded="false">Products</a>
'                                                                <div class="dropdown-menu" aria-labelledby="dropdown01">
'                                                                    <a class="dropdown-item page-scroll" href="Stator-Core.html">Stator Core</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Rotor-Core.html">Rotor Core</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Stator-and-Rotor-Lamination.html">Stator and Rotor Lamination</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Axial-Flux-Stator.html">Axial Flux Stator</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Stator-Coil-Winding.html">Stator Coil Winding</a>
'                                                                </div>
'                                                            </li>
'                                                            <li class="dropdown">
'                                                                <a class="nav-link dropdown-toggle" id="dropdown02" data-toggle="dropdown" aria-haspopup="true" aria-expanded="false">Services</a>
'                                                                <div class="dropdown-menu" aria-labelledby="dropdown01">
'                                                                    <a class="dropdown-item page-scroll" href="Bonding-varnish-Backlack.html">Bonding varnish/Backlack</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Stamping.html">Stamping</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Coil-Winding.html">Coil Winding</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Electrical-Steel-Materials.html">Electrical Steel Materials</a>
'                                                                </div>
'                                                            </li>
'                                                            <li>
'                                                                 <a class="nav-link page-scroll" href="ready_made_stator_core_stamping_molds.html">Ready Molds</a></li><li><a class="nav-link page-scroll" href="news.html">News</a>
'                                                            </li>
'                                                            <li>
'                                                                <a class="nav-link page-scroll" href="Contact.html">Contact</a>
'                                                            </li>
'                                                        </ul>
'                                                        <span class="block lg:ml-3.5">
'                                                            <a class="no-underline" href="#your-link">
'                                                                <i class="fab fa-appleaaaa text-indigo-600 hover:text-pink-500 text-xl transition-all duration-200 mr-1.5"></i>
'                                                            </a>
'                                                            <a class="no-underline" href="#your-link">
'                                                                <i class="fab fa-androidaaaa text-indigo-600 hover:text-pink-500 text-xl transition-all duration-200"></i>
'                                                            </a>
'                                                        </span>
'                                                    </div>
'                                                </div>
'                                            </nav>
    n = 1
    nKK = n '''指名位置，，
    L1 = InStr(IIf(nKK > 0, nKK, 1), xText, "<nav class=""navbar fixed-top"">")
    L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "</nav>")
    yText = Left(xText, L2) '有效数据加以限制

    If L1 > 0 And L2 > 0 Then
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<!-- ": t1R = "": t2 = "-->" '注释语句，忽略。。。<!-- Text Logo - Use this if you don't have a graphic logo -->
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""nav-link page-scroll"" href=""../index.html"">": t1R = "": t2 = "<span class=""sr-only"">" '特殊处理，，，<a class="nav-link page-scroll" href="../index.html">Home <span class="sr-only">(current)</span></a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

''          <a class="nav-link page-scroll" href="index.html">Home
''            <span class="sr-only">(current)</span></a>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""nav-link page-scroll"" href=""index.html"">": t1R = "": t2 = "<span class=""sr-only"">" '特殊处理，，，<a class="nav-link page-scroll" href="index.html">Home <span class="sr-only">(current)</span></a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""nav-link": t1R = "": t2 = "</a>" '<a class="nav-link page-scroll" href="About.html">About us</a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""dropdown-item": t1R = "": t2 = "</a>" '<a class="dropdown-item page-scroll" href="Stator-Core.html">Stator Core</a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

    Else
        MsgBox "找不到【导航部分】的 起始代码 或 结束代码  ... 请检查代码先。。。"
    End If

'
' 3）Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分
    Cells(31, 1) = "Body部分"
'                                            <!-- Navigation -->
'                                            <nav class="navbar fixed-top">
'                                                <div class="container flex flex-wrap items-center justify-between sm:px-4 lg:flex-nowrap lg:px-8">
'
'                                                    <!-- Text Logo - Use this if you don't have a graphic logo -->
'                                                    <!--<a class="text-gray-800 font-semibold text-3xl leading-4 no-underline page-scroll" href="index.html">Pavo</a>-->
'
'                                            </nav>
    n = 1
    nKK = n '''指名位置，，
    L1 = InStr(IIf(nKK > 0, nKK, 1), xText, "<header")
    'L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "<!-- Footer QianMianBuFen -->") '<div class="footer">
    L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "<div class=""footer"">") '
    yText = Left(xText, L2) '有效数据加以限制

    If L1 > 0 And L2 > 0 Then
                ' n = L1: nKK = n   '''更新位置，，
                ' Do While n < L2
                        ' t1 = "<!-- ": t1R = "": t2 = "-->" '注释语句，忽略。。。<!-- Text Logo - Use this if you don't have a graphic logo -->
                                ' MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    ' If MM > 0 Then n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        ' n = n + 1: nKK = n
                ' Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""nav-link page-scroll"" href=""index.html"">": t1R = "": t2 = "<span class=""sr-only"">" '特殊处理，，，<a class="nav-link page-scroll" href="index.html">Home <span class="sr-only">(current)</span></a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

'<div class="flex-1 ml-2"><strong>Stator Diameter</strong> : 5-450mm</div>
'<div class="flex-1 ml-2"><strong>Winding service</strong>.........</div>
'<div class="flex-1 ml-2"><strong>Winding service</strong> : Manual Winding for prototype sample and automatic machine winding for our productions.</div>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<div class=""flex-1 ml-2""><strong>": t1R = "": t2 = "</div>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

'<h1 class="xl:ml-24">Revealing the <span class="yy-title-gradient">Laminated Stamping</span> Manufacturing Process of Motor Stator and Rotor Cores</h1>
'<p class="p-large mb-8"><span class="yy-title-gradient">smaller and lighter with higher efficiency</span></p>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<span class=""yy-title-gradient"">": t1R = "</span>": t2 = "</"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<p ": t1R = "": t2 = "</p>"  '<p class="mb-4">If you have any que....</p>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<p>": t1R = "": t2 = "</p>"  '<p>..............</p>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h1>": t1R = "": t2 = "</h1>" '<h1>xxxxxxxxxxxxxxxx</h1>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h2>": t1R = "": t2 = "</h2>" '<h2>xxxxxxxxxxxxxxxx</h2>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h3>": t1R = "": t2 = "</h3>" '<h3>xxxxxxxxxxxxxxxx</h3>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h4>": t1R = "": t2 = "</h4>" '<h4>xxxxxxxxxxxxxxxx</h4>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h5>": t1R = "": t2 = "</h5>" '<h5>xxxxxxxxxxxxxxxx</h5>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h6>": t1R = "": t2 = "</h6>" '<h6>xxxxxxxxxxxxxxxx</h6>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h1 ": t1R = "": t2 = "</h1>" '<h1 class="xl:ml-24">Electrical Steel Materials</h1>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h2 ": t1R = "": t2 = "</h2>" '<h2 class="mb-4">Electrical Steel Materials in stock</h2>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h3 ": t1R = "": t2 = "</h3>" '<h3 class="mb-4">Electrical Steel Materials in stock</h3>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h4 ": t1R = "": t2 = "</h4>" '<h4 class="mb-4">Electrical Steel Materials in stock</h4>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h5 ": t1R = "": t2 = "</h5>" '<h5 class="mb-4">Electrical Steel Materials in stock</h5>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h6 ": t1R = "": t2 = "</h6>" '<h6 class="mb-4">Electrical Steel Materials in stock</h6>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<div class=""li_paragraph"">": t1R = "": t2 = "</div>" '<div class="li_paragraph">AAAAAAAAAA</div>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

'<li class="flex"><div class="">?</div><div class="flex-1 ml-2">AAAAAAAAAAAAAAAAA</div></li>
'<li class="flex"><div class="">?</div><div class="flex-1 ml-2">Features such as a beautiful metallic appearance, high corrosion resistance, wear resistance, low paper friction, scratch resistance and fingerprint resistance, have led to an excellent reputation for this unpainted galvanized steel sheet for many years.</div></li>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "</div><div class=""flex-1 ml-2"">": t1R = "": t2 = "</div></li>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

'<div class="font-normal text-base contact__feedback"><a href="../electrical-steel-materials.html" target="_blank" rel="noopener noreferrer" title="Electrical Steel Materials" class="contact__button">Electrical Steel Materials</a></div>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<div class=""font-normal": t1R = "": t2 = "</div>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<td class=": t1R = "": t2 = "</td>"
'                        t1 = "<td class=""px-2 py-4 text-left"">": t1R = "": t2 = "</td>"
'表格中的字符串段落词组
'                <td class="px-2 py-4 text-left">
'            By reducing the plate thickness, eddy currents can be suppressed and loss can be reduced.</td></tr>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                '<a class="hover:bg-indigo-100 hover:text-blue-120" target="_blank" rel="noopener noreferrer" href="motor_core.html">Custom Stator</a>
                        t1 = """ target=""_blank"" rel=""noopener noreferrer"" href=""": t1R = "": t2 = "</a>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""dropdown-item": t1R = "": t2 = "</a>" '<a class="dropdown-item page-scroll" href="Stator-Core.html">Stator Core</a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                'src="images/Interlock-Bonding-Welding-lamination-technology.webp" alt="Interlock Bonding Welding lamination technology" title="Interlock Bonding Welding lamination technology",
		"logo": "https://www.istator.com" />
'                                            <meta property="og:title" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer" />
'                                            <meta property="og:description" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer" />
'                                            <meta property="og:image" content="https://www.istator.com/images/Bonding-varnish-Backlack.jpg" />
'                                            <meta property="og:image:alt" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer">
'                                            <meta property="og:url" content="https://www.istator.com" />
'                                            <meta name="twitter:card" content="summary_large_image">
'                                            <meta name="twitter:title" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer">
'                                            <meta name="twitter:description" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer">
'                                            <meta name="twitter:image" content="https://www.istator.com/images/Bonding-varnish-Backlack.jpg">

    n = 1
    nKK = n '''指名位置，，
    L1 = InStr(IIf(nKK > 0, nKK, 1), xText, "<head>")
    L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "</head>")
    yText = Left(xText, L2) '有效数据加以限制

    If L1 > 0 And L2 > 0 Then
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<title>": t1R = "": t2 = "</title>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("1）头部", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<meta ": t1R = "": t2 = ">"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("1）头部", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

            'MsgBox yText
    Else
        MsgBox "找不到Body的 起始代码<header ，或，footer代码<div class=""footer""... 请检查代码先。。。"
    End If

' 2）导航部分
Cells(31, 1) = "导航部分"
'                                            <!-- Navigation -->
'                                            <nav class="navbar fixed-top">
'                                                <div class="container flex flex-wrap items-center justify-between sm:px-4 lg:flex-nowrap lg:px-8">
'
'                                                    <!-- Text Logo - Use this if you don't have a graphic logo -->
'                                                    <!--<a class="text-gray-800 font-semibold text-3xl leading-4 no-underline page-scroll" href="index.html">Pavo</a>-->
'
'                                                    <!-- Image Logo -->
'                                                    <a class="inline-block mr-4 py-0.5 text-xl whitespace-nowrap hover:no-underline focus:no-underline" href="index.html">
'                                                        <svg viewBo e"y="-7.76772">i</text></g></svg>
'                                                    </a>
'
'                                                    <button class="background-transparent rounded text-xl leading-none hover:no-underline focus:no-underline lg:hidden lg:text-gray-400" type="button" data-toggle="offcanvas">
'                                                        <span class="navbar-toggler-icon inline-block w-8 h-8 align-middle"></span>
'                                                    </button>
'
'                                                    <div class="navbar-collapse offcanvas-collapse lg:flex lg:flex-grow lg:items-center" id="navbarsExampleDefault">
'                                                        <ul class="pl-0 mt-3 mb-2 ml-auto flex flex-col list-none lg:mt-0 lg:mb-0 lg:flex-row">
'                                                            <li>
'                                                                <a class="nav-link page-scroll" href="index.html">Home <span class="sr-only">(current)</span></a>
'                                                            </li>
'                                                            <li>
'                                                                <a class="nav-link page-scroll" href="About.html">About us</a>
'                                                            </li>
'                                                            <li class="dropdown">
'                                                                <a class="nav-link dropdown-toggle" id="dropdown01" data-toggle="dropdown" aria-haspopup="true" aria-expanded="false">Products</a>
'                                                                <div class="dropdown-menu" aria-labelledby="dropdown01">
'                                                                    <a class="dropdown-item page-scroll" href="Stator-Core.html">Stator Core</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Rotor-Core.html">Rotor Core</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Stator-and-Rotor-Lamination.html">Stator and Rotor Lamination</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Axial-Flux-Stator.html">Axial Flux Stator</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Stator-Coil-Winding.html">Stator Coil Winding</a>
'                                                                </div>
'                                                            </li>
'                                                            <li class="dropdown">
'                                                                <a class="nav-link dropdown-toggle" id="dropdown02" data-toggle="dropdown" aria-haspopup="true" aria-expanded="false">Services</a>
'                                                                <div class="dropdown-menu" aria-labelledby="dropdown01">
'                                                                    <a class="dropdown-item page-scroll" href="Bonding-varnish-Backlack.html">Bonding varnish/Backlack</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Stamping.html">Stamping</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Coil-Winding.html">Coil Winding</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Electrical-Steel-Materials.html">Electrical Steel Materials</a>
'                                                                </div>
'                                                            </li>
'                                                            <li>
'                                                                 <a class="nav-link page-scroll" href="ready_made_stator_core_stamping_molds.html">Ready Molds</a></li><li><a class="nav-link page-scroll" href="news.html">News</a>
'                                                            </li>
'                                                            <li>
'                                                                <a class="nav-link page-scroll" href="Contact.html">Contact</a>
'                                                            </li>
'                                                        </ul>
'                                                        <span class="block lg:ml-3.5">
'                                                            <a class="no-underline" href="#your-link">
'                                                                <i class="fab fa-appleaaaa text-indigo-600 hover:text-pink-500 text-xl transition-all duration-200 mr-1.5"></i>
'                                                            </a>
'                                                            <a class="no-underline" href="#your-link">
'                                                                <i class="fab fa-androidaaaa text-indigo-600 hover:text-pink-500 text-xl transition-all duration-200"></i>
'                                                            </a>
'                                                        </span>
'                                                    </div>
'                                                </div>
'                                            </nav>
    n = 1
    nKK = n '''指名位置，，
    L1 = InStr(IIf(nKK > 0, nKK, 1), xText, "<nav class=""navbar fixed-top"">")
    L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "</nav>")
    yText = Left(xText, L2) '有效数据加以限制

    If L1 > 0 And L2 > 0 Then
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<!-- ": t1R = "": t2 = "-->" '注释语句，忽略。。。<!-- Text Logo - Use this if you don't have a graphic logo -->
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""nav-link page-scroll"" href=""../index.html"">": t1R = "": t2 = "<span class=""sr-only"">" '特殊处理，，，<a class="nav-link page-scroll" href="../index.html">Home <span class="sr-only">(current)</span></a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

''          <a class="nav-link page-scroll" href="index.html">Home
''            <span class="sr-only">(current)</span></a>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""nav-link page-scroll"" href=""index.html"">": t1R = "": t2 = "<span class=""sr-only"">" '特殊处理，，，<a class="nav-link page-scroll" href="index.html">Home <span class="sr-only">(current)</span></a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""nav-link": t1R = "": t2 = "</a>" '<a class="nav-link page-scroll" href="About.html">About us</a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""dropdown-item": t1R = "": t2 = "</a>" '<a class="dropdown-item page-scroll" href="Stator-Core.html">Stator Core</a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

    Else
        MsgBox "找不到【导航部分】的 起始代码 或 结束代码  ... 请检查代码先。。。"
    End If

'
' 3）Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分
    Cells(31, 1) = "Body部分"
'                                            <!-- Navigation -->
'                                            <nav class="navbar fixed-top">
'                                                <div class="container flex flex-wrap items-center justify-between sm:px-4 lg:flex-nowrap lg:px-8">
'
'                                                    <!-- Text Logo - Use this if you don't have a graphic logo -->
'                                                    <!--<a class="text-gray-800 font-semibold text-3xl leading-4 no-underline page-scroll" href="index.html">Pavo</a>-->
'
'                                            </nav>
    n = 1
    nKK = n '''指名位置，，
    L1 = InStr(IIf(nKK > 0, nKK, 1), xText, "<header")
    'L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "<!-- Footer QianMianBuFen -->") '<div class="footer">
    L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "<div class=""footer"">") '
    yText = Left(xText, L2) '有效数据加以限制

    If L1 > 0 And L2 > 0 Then
                ' n = L1: nKK = n   '''更新位置，，
                ' Do While n < L2
                        ' t1 = "<!-- ": t1R = "": t2 = "-->" '注释语句，忽略。。。<!-- Text Logo - Use this if you don't have a graphic logo -->
                                ' MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    ' If MM > 0 Then n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        ' n = n + 1: nKK = n
                ' Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""nav-link page-scroll"" href=""index.html"">": t1R = "": t2 = "<span class=""sr-only"">" '特殊处理，，，<a class="nav-link page-scroll" href="index.html">Home <span class="sr-only">(current)</span></a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

'<div class="flex-1 ml-2"><strong>Stator Diameter</strong> : 5-450mm</div>
'<div class="flex-1 ml-2"><strong>Winding service</strong>.........</div>
'<div class="flex-1 ml-2"><strong>Winding service</strong> : Manual Winding for prototype sample and automatic machine winding for our productions.</div>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<div class=""flex-1 ml-2""><strong>": t1R = "": t2 = "</div>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

'<h1 class="xl:ml-24">Revealing the <span class="yy-title-gradient">Laminated Stamping</span> Manufacturing Process of Motor Stator and Rotor Cores</h1>
'<p class="p-large mb-8"><span class="yy-title-gradient">smaller and lighter with higher efficiency</span></p>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<span class=""yy-title-gradient"">": t1R = "</span>": t2 = "</"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<p ": t1R = "": t2 = "</p>"  '<p class="mb-4">If you have any que....</p>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<p>": t1R = "": t2 = "</p>"  '<p>..............</p>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h1>": t1R = "": t2 = "</h1>" '<h1>xxxxxxxxxxxxxxxx</h1>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h2>": t1R = "": t2 = "</h2>" '<h2>xxxxxxxxxxxxxxxx</h2>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h3>": t1R = "": t2 = "</h3>" '<h3>xxxxxxxxxxxxxxxx</h3>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h4>": t1R = "": t2 = "</h4>" '<h4>xxxxxxxxxxxxxxxx</h4>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h5>": t1R = "": t2 = "</h5>" '<h5>xxxxxxxxxxxxxxxx</h5>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h6>": t1R = "": t2 = "</h6>" '<h6>xxxxxxxxxxxxxxxx</h6>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h1 ": t1R = "": t2 = "</h1>" '<h1 class="xl:ml-24">Electrical Steel Materials</h1>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h2 ": t1R = "": t2 = "</h2>" '<h2 class="mb-4">Electrical Steel Materials in stock</h2>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h3 ": t1R = "": t2 = "</h3>" '<h3 class="mb-4">Electrical Steel Materials in stock</h3>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h4 ": t1R = "": t2 = "</h4>" '<h4 class="mb-4">Electrical Steel Materials in stock</h4>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h5 ": t1R = "": t2 = "</h5>" '<h5 class="mb-4">Electrical Steel Materials in stock</h5>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h6 ": t1R = "": t2 = "</h6>" '<h6 class="mb-4">Electrical Steel Materials in stock</h6>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<div class=""li_paragraph"">": t1R = "": t2 = "</div>" '<div class="li_paragraph">AAAAAAAAAA</div>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

'<li class="flex"><div class="">?</div><div class="flex-1 ml-2">AAAAAAAAAAAAAAAAA</div></li>
'<li class="flex"><div class="">?</div><div class="flex-1 ml-2">Features such as a beautiful metallic appearance, high corrosion resistance, wear resistance, low paper friction, scratch resistance and fingerprint resistance, have led to an excellent reputation for this unpainted galvanized steel sheet for many years.</div></li>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "</div><div class=""flex-1 ml-2"">": t1R = "": t2 = "</div></li>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

'<div class="font-normal text-base contact__feedback"><a href="../electrical-steel-materials.html" target="_blank" rel="noopener noreferrer" title="Electrical Steel Materials" class="contact__button">Electrical Steel Materials</a></div>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<div class=""font-normal": t1R = "": t2 = "</div>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<td class=": t1R = "": t2 = "</td>"
'                        t1 = "<td class=""px-2 py-4 text-left"">": t1R = "": t2 = "</td>"
'表格中的字符串段落词组
'                <td class="px-2 py-4 text-left">
'            By reducing the plate thickness, eddy currents can be suppressed and loss can be reduced.</td></tr>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                '<a class="hover:bg-indigo-100 hover:text-blue-120" target="_blank" rel="noopener noreferrer" href="motor_core.html">Custom Stator</a>
                        t1 = """ target=""_blank"" rel=""noopener noreferrer"" href=""": t1R = "": t2 = "</a>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""dropdown-item": t1R = "": t2 = "</a>" '<a class="dropdown-item page-scroll" href="Stator-Core.html">Stator Core</a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                'src="images/Interlock-Bonding-Welding-lamination-technology.webp" alt="Interlock Bonding Welding lamination technology" title="Interlock Bonding Welding lamination technology/images/logo.png",
		"sameAs": "https://www.youtube.com/@YOUYOU-tech"
	},
	{
		"@type": "BreadcrumbList",
		"itemListElement": [{
			"@type": "ListItem",
			"position": 1,
			"name": "css",
			"item": "https://www.istator.com" />
'                                            <meta property="og:title" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer" />
'                                            <meta property="og:description" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer" />
'                                            <meta property="og:image" content="https://www.istator.com/images/Bonding-varnish-Backlack.jpg" />
'                                            <meta property="og:image:alt" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer">
'                                            <meta property="og:url" content="https://www.istator.com" />
'                                            <meta name="twitter:card" content="summary_large_image">
'                                            <meta name="twitter:title" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer">
'                                            <meta name="twitter:description" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer">
'                                            <meta name="twitter:image" content="https://www.istator.com/images/Bonding-varnish-Backlack.jpg">

    n = 1
    nKK = n '''指名位置，，
    L1 = InStr(IIf(nKK > 0, nKK, 1), xText, "<head>")
    L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "</head>")
    yText = Left(xText, L2) '有效数据加以限制

    If L1 > 0 And L2 > 0 Then
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<title>": t1R = "": t2 = "</title>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("1）头部", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<meta ": t1R = "": t2 = ">"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("1）头部", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

            'MsgBox yText
    Else
        MsgBox "找不到Body的 起始代码<header ，或，footer代码<div class=""footer""... 请检查代码先。。。"
    End If

' 2）导航部分
Cells(31, 1) = "导航部分"
'                                            <!-- Navigation -->
'                                            <nav class="navbar fixed-top">
'                                                <div class="container flex flex-wrap items-center justify-between sm:px-4 lg:flex-nowrap lg:px-8">
'
'                                                    <!-- Text Logo - Use this if you don't have a graphic logo -->
'                                                    <!--<a class="text-gray-800 font-semibold text-3xl leading-4 no-underline page-scroll" href="index.html">Pavo</a>-->
'
'                                                    <!-- Image Logo -->
'                                                    <a class="inline-block mr-4 py-0.5 text-xl whitespace-nowrap hover:no-underline focus:no-underline" href="index.html">
'                                                        <svg viewBo e"y="-7.76772">i</text></g></svg>
'                                                    </a>
'
'                                                    <button class="background-transparent rounded text-xl leading-none hover:no-underline focus:no-underline lg:hidden lg:text-gray-400" type="button" data-toggle="offcanvas">
'                                                        <span class="navbar-toggler-icon inline-block w-8 h-8 align-middle"></span>
'                                                    </button>
'
'                                                    <div class="navbar-collapse offcanvas-collapse lg:flex lg:flex-grow lg:items-center" id="navbarsExampleDefault">
'                                                        <ul class="pl-0 mt-3 mb-2 ml-auto flex flex-col list-none lg:mt-0 lg:mb-0 lg:flex-row">
'                                                            <li>
'                                                                <a class="nav-link page-scroll" href="index.html">Home <span class="sr-only">(current)</span></a>
'                                                            </li>
'                                                            <li>
'                                                                <a class="nav-link page-scroll" href="About.html">About us</a>
'                                                            </li>
'                                                            <li class="dropdown">
'                                                                <a class="nav-link dropdown-toggle" id="dropdown01" data-toggle="dropdown" aria-haspopup="true" aria-expanded="false">Products</a>
'                                                                <div class="dropdown-menu" aria-labelledby="dropdown01">
'                                                                    <a class="dropdown-item page-scroll" href="Stator-Core.html">Stator Core</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Rotor-Core.html">Rotor Core</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Stator-and-Rotor-Lamination.html">Stator and Rotor Lamination</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Axial-Flux-Stator.html">Axial Flux Stator</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Stator-Coil-Winding.html">Stator Coil Winding</a>
'                                                                </div>
'                                                            </li>
'                                                            <li class="dropdown">
'                                                                <a class="nav-link dropdown-toggle" id="dropdown02" data-toggle="dropdown" aria-haspopup="true" aria-expanded="false">Services</a>
'                                                                <div class="dropdown-menu" aria-labelledby="dropdown01">
'                                                                    <a class="dropdown-item page-scroll" href="Bonding-varnish-Backlack.html">Bonding varnish/Backlack</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Stamping.html">Stamping</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Coil-Winding.html">Coil Winding</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Electrical-Steel-Materials.html">Electrical Steel Materials</a>
'                                                                </div>
'                                                            </li>
'                                                            <li>
'                                                                 <a class="nav-link page-scroll" href="ready_made_stator_core_stamping_molds.html">Ready Molds</a></li><li><a class="nav-link page-scroll" href="news.html">News</a>
'                                                            </li>
'                                                            <li>
'                                                                <a class="nav-link page-scroll" href="Contact.html">Contact</a>
'                                                            </li>
'                                                        </ul>
'                                                        <span class="block lg:ml-3.5">
'                                                            <a class="no-underline" href="#your-link">
'                                                                <i class="fab fa-appleaaaa text-indigo-600 hover:text-pink-500 text-xl transition-all duration-200 mr-1.5"></i>
'                                                            </a>
'                                                            <a class="no-underline" href="#your-link">
'                                                                <i class="fab fa-androidaaaa text-indigo-600 hover:text-pink-500 text-xl transition-all duration-200"></i>
'                                                            </a>
'                                                        </span>
'                                                    </div>
'                                                </div>
'                                            </nav>
    n = 1
    nKK = n '''指名位置，，
    L1 = InStr(IIf(nKK > 0, nKK, 1), xText, "<nav class=""navbar fixed-top"">")
    L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "</nav>")
    yText = Left(xText, L2) '有效数据加以限制

    If L1 > 0 And L2 > 0 Then
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<!-- ": t1R = "": t2 = "-->" '注释语句，忽略。。。<!-- Text Logo - Use this if you don't have a graphic logo -->
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""nav-link page-scroll"" href=""../index.html"">": t1R = "": t2 = "<span class=""sr-only"">" '特殊处理，，，<a class="nav-link page-scroll" href="../index.html">Home <span class="sr-only">(current)</span></a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

''          <a class="nav-link page-scroll" href="index.html">Home
''            <span class="sr-only">(current)</span></a>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""nav-link page-scroll"" href=""index.html"">": t1R = "": t2 = "<span class=""sr-only"">" '特殊处理，，，<a class="nav-link page-scroll" href="index.html">Home <span class="sr-only">(current)</span></a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""nav-link": t1R = "": t2 = "</a>" '<a class="nav-link page-scroll" href="About.html">About us</a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""dropdown-item": t1R = "": t2 = "</a>" '<a class="dropdown-item page-scroll" href="Stator-Core.html">Stator Core</a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

    Else
        MsgBox "找不到【导航部分】的 起始代码 或 结束代码  ... 请检查代码先。。。"
    End If

'
' 3）Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分
    Cells(31, 1) = "Body部分"
'                                            <!-- Navigation -->
'                                            <nav class="navbar fixed-top">
'                                                <div class="container flex flex-wrap items-center justify-between sm:px-4 lg:flex-nowrap lg:px-8">
'
'                                                    <!-- Text Logo - Use this if you don't have a graphic logo -->
'                                                    <!--<a class="text-gray-800 font-semibold text-3xl leading-4 no-underline page-scroll" href="index.html">Pavo</a>-->
'
'                                            </nav>
    n = 1
    nKK = n '''指名位置，，
    L1 = InStr(IIf(nKK > 0, nKK, 1), xText, "<header")
    'L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "<!-- Footer QianMianBuFen -->") '<div class="footer">
    L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "<div class=""footer"">") '
    yText = Left(xText, L2) '有效数据加以限制

    If L1 > 0 And L2 > 0 Then
                ' n = L1: nKK = n   '''更新位置，，
                ' Do While n < L2
                        ' t1 = "<!-- ": t1R = "": t2 = "-->" '注释语句，忽略。。。<!-- Text Logo - Use this if you don't have a graphic logo -->
                                ' MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    ' If MM > 0 Then n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        ' n = n + 1: nKK = n
                ' Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""nav-link page-scroll"" href=""index.html"">": t1R = "": t2 = "<span class=""sr-only"">" '特殊处理，，，<a class="nav-link page-scroll" href="index.html">Home <span class="sr-only">(current)</span></a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

'<div class="flex-1 ml-2"><strong>Stator Diameter</strong> : 5-450mm</div>
'<div class="flex-1 ml-2"><strong>Winding service</strong>.........</div>
'<div class="flex-1 ml-2"><strong>Winding service</strong> : Manual Winding for prototype sample and automatic machine winding for our productions.</div>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<div class=""flex-1 ml-2""><strong>": t1R = "": t2 = "</div>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

'<h1 class="xl:ml-24">Revealing the <span class="yy-title-gradient">Laminated Stamping</span> Manufacturing Process of Motor Stator and Rotor Cores</h1>
'<p class="p-large mb-8"><span class="yy-title-gradient">smaller and lighter with higher efficiency</span></p>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<span class=""yy-title-gradient"">": t1R = "</span>": t2 = "</"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<p ": t1R = "": t2 = "</p>"  '<p class="mb-4">If you have any que....</p>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<p>": t1R = "": t2 = "</p>"  '<p>..............</p>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h1>": t1R = "": t2 = "</h1>" '<h1>xxxxxxxxxxxxxxxx</h1>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h2>": t1R = "": t2 = "</h2>" '<h2>xxxxxxxxxxxxxxxx</h2>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h3>": t1R = "": t2 = "</h3>" '<h3>xxxxxxxxxxxxxxxx</h3>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h4>": t1R = "": t2 = "</h4>" '<h4>xxxxxxxxxxxxxxxx</h4>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h5>": t1R = "": t2 = "</h5>" '<h5>xxxxxxxxxxxxxxxx</h5>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h6>": t1R = "": t2 = "</h6>" '<h6>xxxxxxxxxxxxxxxx</h6>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h1 ": t1R = "": t2 = "</h1>" '<h1 class="xl:ml-24">Electrical Steel Materials</h1>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h2 ": t1R = "": t2 = "</h2>" '<h2 class="mb-4">Electrical Steel Materials in stock</h2>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h3 ": t1R = "": t2 = "</h3>" '<h3 class="mb-4">Electrical Steel Materials in stock</h3>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h4 ": t1R = "": t2 = "</h4>" '<h4 class="mb-4">Electrical Steel Materials in stock</h4>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h5 ": t1R = "": t2 = "</h5>" '<h5 class="mb-4">Electrical Steel Materials in stock</h5>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h6 ": t1R = "": t2 = "</h6>" '<h6 class="mb-4">Electrical Steel Materials in stock</h6>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<div class=""li_paragraph"">": t1R = "": t2 = "</div>" '<div class="li_paragraph">AAAAAAAAAA</div>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

'<li class="flex"><div class="">?</div><div class="flex-1 ml-2">AAAAAAAAAAAAAAAAA</div></li>
'<li class="flex"><div class="">?</div><div class="flex-1 ml-2">Features such as a beautiful metallic appearance, high corrosion resistance, wear resistance, low paper friction, scratch resistance and fingerprint resistance, have led to an excellent reputation for this unpainted galvanized steel sheet for many years.</div></li>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "</div><div class=""flex-1 ml-2"">": t1R = "": t2 = "</div></li>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

'<div class="font-normal text-base contact__feedback"><a href="../electrical-steel-materials.html" target="_blank" rel="noopener noreferrer" title="Electrical Steel Materials" class="contact__button">Electrical Steel Materials</a></div>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<div class=""font-normal": t1R = "": t2 = "</div>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<td class=": t1R = "": t2 = "</td>"
'                        t1 = "<td class=""px-2 py-4 text-left"">": t1R = "": t2 = "</td>"
'表格中的字符串段落词组
'                <td class="px-2 py-4 text-left">
'            By reducing the plate thickness, eddy currents can be suppressed and loss can be reduced.</td></tr>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                '<a class="hover:bg-indigo-100 hover:text-blue-120" target="_blank" rel="noopener noreferrer" href="motor_core.html">Custom Stator</a>
                        t1 = """ target=""_blank"" rel=""noopener noreferrer"" href=""": t1R = "": t2 = "</a>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""dropdown-item": t1R = "": t2 = "</a>" '<a class="dropdown-item page-scroll" href="Stator-Core.html">Stator Core</a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                'src="images/Interlock-Bonding-Welding-lamination-technology.webp" alt="Interlock Bonding Welding lamination technology" title="Interlock Bonding Welding lamination technology/css"
		},
		{
			"@type": "ListItem",
			"position": 2,
			"name": "Option Explicit.html",
			"item": "https://www.istator.com" />
'                                            <meta property="og:title" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer" />
'                                            <meta property="og:description" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer" />
'                                            <meta property="og:image" content="https://www.istator.com/images/Bonding-varnish-Backlack.jpg" />
'                                            <meta property="og:image:alt" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer">
'                                            <meta property="og:url" content="https://www.istator.com" />
'                                            <meta name="twitter:card" content="summary_large_image">
'                                            <meta name="twitter:title" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer">
'                                            <meta name="twitter:description" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer">
'                                            <meta name="twitter:image" content="https://www.istator.com/images/Bonding-varnish-Backlack.jpg">

    n = 1
    nKK = n '''指名位置，，
    L1 = InStr(IIf(nKK > 0, nKK, 1), xText, "<head>")
    L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "</head>")
    yText = Left(xText, L2) '有效数据加以限制

    If L1 > 0 And L2 > 0 Then
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<title>": t1R = "": t2 = "</title>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("1）头部", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<meta ": t1R = "": t2 = ">"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("1）头部", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

            'MsgBox yText
    Else
        MsgBox "找不到Body的 起始代码<header ，或，footer代码<div class=""footer""... 请检查代码先。。。"
    End If

' 2）导航部分
Cells(31, 1) = "导航部分"
'                                            <!-- Navigation -->
'                                            <nav class="navbar fixed-top">
'                                                <div class="container flex flex-wrap items-center justify-between sm:px-4 lg:flex-nowrap lg:px-8">
'
'                                                    <!-- Text Logo - Use this if you don't have a graphic logo -->
'                                                    <!--<a class="text-gray-800 font-semibold text-3xl leading-4 no-underline page-scroll" href="index.html">Pavo</a>-->
'
'                                                    <!-- Image Logo -->
'                                                    <a class="inline-block mr-4 py-0.5 text-xl whitespace-nowrap hover:no-underline focus:no-underline" href="index.html">
'                                                        <svg viewBo e"y="-7.76772">i</text></g></svg>
'                                                    </a>
'
'                                                    <button class="background-transparent rounded text-xl leading-none hover:no-underline focus:no-underline lg:hidden lg:text-gray-400" type="button" data-toggle="offcanvas">
'                                                        <span class="navbar-toggler-icon inline-block w-8 h-8 align-middle"></span>
'                                                    </button>
'
'                                                    <div class="navbar-collapse offcanvas-collapse lg:flex lg:flex-grow lg:items-center" id="navbarsExampleDefault">
'                                                        <ul class="pl-0 mt-3 mb-2 ml-auto flex flex-col list-none lg:mt-0 lg:mb-0 lg:flex-row">
'                                                            <li>
'                                                                <a class="nav-link page-scroll" href="index.html">Home <span class="sr-only">(current)</span></a>
'                                                            </li>
'                                                            <li>
'                                                                <a class="nav-link page-scroll" href="About.html">About us</a>
'                                                            </li>
'                                                            <li class="dropdown">
'                                                                <a class="nav-link dropdown-toggle" id="dropdown01" data-toggle="dropdown" aria-haspopup="true" aria-expanded="false">Products</a>
'                                                                <div class="dropdown-menu" aria-labelledby="dropdown01">
'                                                                    <a class="dropdown-item page-scroll" href="Stator-Core.html">Stator Core</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Rotor-Core.html">Rotor Core</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Stator-and-Rotor-Lamination.html">Stator and Rotor Lamination</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Axial-Flux-Stator.html">Axial Flux Stator</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Stator-Coil-Winding.html">Stator Coil Winding</a>
'                                                                </div>
'                                                            </li>
'                                                            <li class="dropdown">
'                                                                <a class="nav-link dropdown-toggle" id="dropdown02" data-toggle="dropdown" aria-haspopup="true" aria-expanded="false">Services</a>
'                                                                <div class="dropdown-menu" aria-labelledby="dropdown01">
'                                                                    <a class="dropdown-item page-scroll" href="Bonding-varnish-Backlack.html">Bonding varnish/Backlack</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Stamping.html">Stamping</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Coil-Winding.html">Coil Winding</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Electrical-Steel-Materials.html">Electrical Steel Materials</a>
'                                                                </div>
'                                                            </li>
'                                                            <li>
'                                                                 <a class="nav-link page-scroll" href="ready_made_stator_core_stamping_molds.html">Ready Molds</a></li><li><a class="nav-link page-scroll" href="news.html">News</a>
'                                                            </li>
'                                                            <li>
'                                                                <a class="nav-link page-scroll" href="Contact.html">Contact</a>
'                                                            </li>
'                                                        </ul>
'                                                        <span class="block lg:ml-3.5">
'                                                            <a class="no-underline" href="#your-link">
'                                                                <i class="fab fa-appleaaaa text-indigo-600 hover:text-pink-500 text-xl transition-all duration-200 mr-1.5"></i>
'                                                            </a>
'                                                            <a class="no-underline" href="#your-link">
'                                                                <i class="fab fa-androidaaaa text-indigo-600 hover:text-pink-500 text-xl transition-all duration-200"></i>
'                                                            </a>
'                                                        </span>
'                                                    </div>
'                                                </div>
'                                            </nav>
    n = 1
    nKK = n '''指名位置，，
    L1 = InStr(IIf(nKK > 0, nKK, 1), xText, "<nav class=""navbar fixed-top"">")
    L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "</nav>")
    yText = Left(xText, L2) '有效数据加以限制

    If L1 > 0 And L2 > 0 Then
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<!-- ": t1R = "": t2 = "-->" '注释语句，忽略。。。<!-- Text Logo - Use this if you don't have a graphic logo -->
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""nav-link page-scroll"" href=""../index.html"">": t1R = "": t2 = "<span class=""sr-only"">" '特殊处理，，，<a class="nav-link page-scroll" href="../index.html">Home <span class="sr-only">(current)</span></a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

''          <a class="nav-link page-scroll" href="index.html">Home
''            <span class="sr-only">(current)</span></a>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""nav-link page-scroll"" href=""index.html"">": t1R = "": t2 = "<span class=""sr-only"">" '特殊处理，，，<a class="nav-link page-scroll" href="index.html">Home <span class="sr-only">(current)</span></a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""nav-link": t1R = "": t2 = "</a>" '<a class="nav-link page-scroll" href="About.html">About us</a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""dropdown-item": t1R = "": t2 = "</a>" '<a class="dropdown-item page-scroll" href="Stator-Core.html">Stator Core</a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

    Else
        MsgBox "找不到【导航部分】的 起始代码 或 结束代码  ... 请检查代码先。。。"
    End If

'
' 3）Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分
    Cells(31, 1) = "Body部分"
'                                            <!-- Navigation -->
'                                            <nav class="navbar fixed-top">
'                                                <div class="container flex flex-wrap items-center justify-between sm:px-4 lg:flex-nowrap lg:px-8">
'
'                                                    <!-- Text Logo - Use this if you don't have a graphic logo -->
'                                                    <!--<a class="text-gray-800 font-semibold text-3xl leading-4 no-underline page-scroll" href="index.html">Pavo</a>-->
'
'                                            </nav>
    n = 1
    nKK = n '''指名位置，，
    L1 = InStr(IIf(nKK > 0, nKK, 1), xText, "<header")
    'L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "<!-- Footer QianMianBuFen -->") '<div class="footer">
    L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "<div class=""footer"">") '
    yText = Left(xText, L2) '有效数据加以限制

    If L1 > 0 And L2 > 0 Then
                ' n = L1: nKK = n   '''更新位置，，
                ' Do While n < L2
                        ' t1 = "<!-- ": t1R = "": t2 = "-->" '注释语句，忽略。。。<!-- Text Logo - Use this if you don't have a graphic logo -->
                                ' MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    ' If MM > 0 Then n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        ' n = n + 1: nKK = n
                ' Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""nav-link page-scroll"" href=""index.html"">": t1R = "": t2 = "<span class=""sr-only"">" '特殊处理，，，<a class="nav-link page-scroll" href="index.html">Home <span class="sr-only">(current)</span></a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

'<div class="flex-1 ml-2"><strong>Stator Diameter</strong> : 5-450mm</div>
'<div class="flex-1 ml-2"><strong>Winding service</strong>.........</div>
'<div class="flex-1 ml-2"><strong>Winding service</strong> : Manual Winding for prototype sample and automatic machine winding for our productions.</div>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<div class=""flex-1 ml-2""><strong>": t1R = "": t2 = "</div>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

'<h1 class="xl:ml-24">Revealing the <span class="yy-title-gradient">Laminated Stamping</span> Manufacturing Process of Motor Stator and Rotor Cores</h1>
'<p class="p-large mb-8"><span class="yy-title-gradient">smaller and lighter with higher efficiency</span></p>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<span class=""yy-title-gradient"">": t1R = "</span>": t2 = "</"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<p ": t1R = "": t2 = "</p>"  '<p class="mb-4">If you have any que....</p>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<p>": t1R = "": t2 = "</p>"  '<p>..............</p>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h1>": t1R = "": t2 = "</h1>" '<h1>xxxxxxxxxxxxxxxx</h1>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h2>": t1R = "": t2 = "</h2>" '<h2>xxxxxxxxxxxxxxxx</h2>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h3>": t1R = "": t2 = "</h3>" '<h3>xxxxxxxxxxxxxxxx</h3>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h4>": t1R = "": t2 = "</h4>" '<h4>xxxxxxxxxxxxxxxx</h4>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h5>": t1R = "": t2 = "</h5>" '<h5>xxxxxxxxxxxxxxxx</h5>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h6>": t1R = "": t2 = "</h6>" '<h6>xxxxxxxxxxxxxxxx</h6>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h1 ": t1R = "": t2 = "</h1>" '<h1 class="xl:ml-24">Electrical Steel Materials</h1>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h2 ": t1R = "": t2 = "</h2>" '<h2 class="mb-4">Electrical Steel Materials in stock</h2>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h3 ": t1R = "": t2 = "</h3>" '<h3 class="mb-4">Electrical Steel Materials in stock</h3>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h4 ": t1R = "": t2 = "</h4>" '<h4 class="mb-4">Electrical Steel Materials in stock</h4>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h5 ": t1R = "": t2 = "</h5>" '<h5 class="mb-4">Electrical Steel Materials in stock</h5>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h6 ": t1R = "": t2 = "</h6>" '<h6 class="mb-4">Electrical Steel Materials in stock</h6>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<div class=""li_paragraph"">": t1R = "": t2 = "</div>" '<div class="li_paragraph">AAAAAAAAAA</div>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

'<li class="flex"><div class="">?</div><div class="flex-1 ml-2">AAAAAAAAAAAAAAAAA</div></li>
'<li class="flex"><div class="">?</div><div class="flex-1 ml-2">Features such as a beautiful metallic appearance, high corrosion resistance, wear resistance, low paper friction, scratch resistance and fingerprint resistance, have led to an excellent reputation for this unpainted galvanized steel sheet for many years.</div></li>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "</div><div class=""flex-1 ml-2"">": t1R = "": t2 = "</div></li>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

'<div class="font-normal text-base contact__feedback"><a href="../electrical-steel-materials.html" target="_blank" rel="noopener noreferrer" title="Electrical Steel Materials" class="contact__button">Electrical Steel Materials</a></div>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<div class=""font-normal": t1R = "": t2 = "</div>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<td class=": t1R = "": t2 = "</td>"
'                        t1 = "<td class=""px-2 py-4 text-left"">": t1R = "": t2 = "</td>"
'表格中的字符串段落词组
'                <td class="px-2 py-4 text-left">
'            By reducing the plate thickness, eddy currents can be suppressed and loss can be reduced.</td></tr>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                '<a class="hover:bg-indigo-100 hover:text-blue-120" target="_blank" rel="noopener noreferrer" href="motor_core.html">Custom Stator</a>
                        t1 = """ target=""_blank"" rel=""noopener noreferrer"" href=""": t1R = "": t2 = "</a>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""dropdown-item": t1R = "": t2 = "</a>" '<a class="dropdown-item page-scroll" href="Stator-Core.html">Stator Core</a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                'src="images/Interlock-Bonding-Welding-lamination-technology.webp" alt="Interlock Bonding Welding lamination technology" title="Interlock Bonding Welding lamination technology/css/Option Explicit.html"
		}]
	},
	{
		"@type": "ImageObject",
		"license": "https://www.istator.com" />
'                                            <meta property="og:title" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer" />
'                                            <meta property="og:description" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer" />
'                                            <meta property="og:image" content="https://www.istator.com/images/Bonding-varnish-Backlack.jpg" />
'                                            <meta property="og:image:alt" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer">
'                                            <meta property="og:url" content="https://www.istator.com" />
'                                            <meta name="twitter:card" content="summary_large_image">
'                                            <meta name="twitter:title" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer">
'                                            <meta name="twitter:description" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer">
'                                            <meta name="twitter:image" content="https://www.istator.com/images/Bonding-varnish-Backlack.jpg">

    n = 1
    nKK = n '''指名位置，，
    L1 = InStr(IIf(nKK > 0, nKK, 1), xText, "<head>")
    L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "</head>")
    yText = Left(xText, L2) '有效数据加以限制

    If L1 > 0 And L2 > 0 Then
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<title>": t1R = "": t2 = "</title>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("1）头部", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<meta ": t1R = "": t2 = ">"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("1）头部", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

            'MsgBox yText
    Else
        MsgBox "找不到Body的 起始代码<header ，或，footer代码<div class=""footer""... 请检查代码先。。。"
    End If

' 2）导航部分
Cells(31, 1) = "导航部分"
'                                            <!-- Navigation -->
'                                            <nav class="navbar fixed-top">
'                                                <div class="container flex flex-wrap items-center justify-between sm:px-4 lg:flex-nowrap lg:px-8">
'
'                                                    <!-- Text Logo - Use this if you don't have a graphic logo -->
'                                                    <!--<a class="text-gray-800 font-semibold text-3xl leading-4 no-underline page-scroll" href="index.html">Pavo</a>-->
'
'                                                    <!-- Image Logo -->
'                                                    <a class="inline-block mr-4 py-0.5 text-xl whitespace-nowrap hover:no-underline focus:no-underline" href="index.html">
'                                                        <svg viewBo e"y="-7.76772">i</text></g></svg>
'                                                    </a>
'
'                                                    <button class="background-transparent rounded text-xl leading-none hover:no-underline focus:no-underline lg:hidden lg:text-gray-400" type="button" data-toggle="offcanvas">
'                                                        <span class="navbar-toggler-icon inline-block w-8 h-8 align-middle"></span>
'                                                    </button>
'
'                                                    <div class="navbar-collapse offcanvas-collapse lg:flex lg:flex-grow lg:items-center" id="navbarsExampleDefault">
'                                                        <ul class="pl-0 mt-3 mb-2 ml-auto flex flex-col list-none lg:mt-0 lg:mb-0 lg:flex-row">
'                                                            <li>
'                                                                <a class="nav-link page-scroll" href="index.html">Home <span class="sr-only">(current)</span></a>
'                                                            </li>
'                                                            <li>
'                                                                <a class="nav-link page-scroll" href="About.html">About us</a>
'                                                            </li>
'                                                            <li class="dropdown">
'                                                                <a class="nav-link dropdown-toggle" id="dropdown01" data-toggle="dropdown" aria-haspopup="true" aria-expanded="false">Products</a>
'                                                                <div class="dropdown-menu" aria-labelledby="dropdown01">
'                                                                    <a class="dropdown-item page-scroll" href="Stator-Core.html">Stator Core</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Rotor-Core.html">Rotor Core</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Stator-and-Rotor-Lamination.html">Stator and Rotor Lamination</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Axial-Flux-Stator.html">Axial Flux Stator</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Stator-Coil-Winding.html">Stator Coil Winding</a>
'                                                                </div>
'                                                            </li>
'                                                            <li class="dropdown">
'                                                                <a class="nav-link dropdown-toggle" id="dropdown02" data-toggle="dropdown" aria-haspopup="true" aria-expanded="false">Services</a>
'                                                                <div class="dropdown-menu" aria-labelledby="dropdown01">
'                                                                    <a class="dropdown-item page-scroll" href="Bonding-varnish-Backlack.html">Bonding varnish/Backlack</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Stamping.html">Stamping</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Coil-Winding.html">Coil Winding</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Electrical-Steel-Materials.html">Electrical Steel Materials</a>
'                                                                </div>
'                                                            </li>
'                                                            <li>
'                                                                 <a class="nav-link page-scroll" href="ready_made_stator_core_stamping_molds.html">Ready Molds</a></li><li><a class="nav-link page-scroll" href="news.html">News</a>
'                                                            </li>
'                                                            <li>
'                                                                <a class="nav-link page-scroll" href="Contact.html">Contact</a>
'                                                            </li>
'                                                        </ul>
'                                                        <span class="block lg:ml-3.5">
'                                                            <a class="no-underline" href="#your-link">
'                                                                <i class="fab fa-appleaaaa text-indigo-600 hover:text-pink-500 text-xl transition-all duration-200 mr-1.5"></i>
'                                                            </a>
'                                                            <a class="no-underline" href="#your-link">
'                                                                <i class="fab fa-androidaaaa text-indigo-600 hover:text-pink-500 text-xl transition-all duration-200"></i>
'                                                            </a>
'                                                        </span>
'                                                    </div>
'                                                </div>
'                                            </nav>
    n = 1
    nKK = n '''指名位置，，
    L1 = InStr(IIf(nKK > 0, nKK, 1), xText, "<nav class=""navbar fixed-top"">")
    L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "</nav>")
    yText = Left(xText, L2) '有效数据加以限制

    If L1 > 0 And L2 > 0 Then
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<!-- ": t1R = "": t2 = "-->" '注释语句，忽略。。。<!-- Text Logo - Use this if you don't have a graphic logo -->
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""nav-link page-scroll"" href=""../index.html"">": t1R = "": t2 = "<span class=""sr-only"">" '特殊处理，，，<a class="nav-link page-scroll" href="../index.html">Home <span class="sr-only">(current)</span></a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

''          <a class="nav-link page-scroll" href="index.html">Home
''            <span class="sr-only">(current)</span></a>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""nav-link page-scroll"" href=""index.html"">": t1R = "": t2 = "<span class=""sr-only"">" '特殊处理，，，<a class="nav-link page-scroll" href="index.html">Home <span class="sr-only">(current)</span></a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""nav-link": t1R = "": t2 = "</a>" '<a class="nav-link page-scroll" href="About.html">About us</a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""dropdown-item": t1R = "": t2 = "</a>" '<a class="dropdown-item page-scroll" href="Stator-Core.html">Stator Core</a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

    Else
        MsgBox "找不到【导航部分】的 起始代码 或 结束代码  ... 请检查代码先。。。"
    End If

'
' 3）Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分
    Cells(31, 1) = "Body部分"
'                                            <!-- Navigation -->
'                                            <nav class="navbar fixed-top">
'                                                <div class="container flex flex-wrap items-center justify-between sm:px-4 lg:flex-nowrap lg:px-8">
'
'                                                    <!-- Text Logo - Use this if you don't have a graphic logo -->
'                                                    <!--<a class="text-gray-800 font-semibold text-3xl leading-4 no-underline page-scroll" href="index.html">Pavo</a>-->
'
'                                            </nav>
    n = 1
    nKK = n '''指名位置，，
    L1 = InStr(IIf(nKK > 0, nKK, 1), xText, "<header")
    'L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "<!-- Footer QianMianBuFen -->") '<div class="footer">
    L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "<div class=""footer"">") '
    yText = Left(xText, L2) '有效数据加以限制

    If L1 > 0 And L2 > 0 Then
                ' n = L1: nKK = n   '''更新位置，，
                ' Do While n < L2
                        ' t1 = "<!-- ": t1R = "": t2 = "-->" '注释语句，忽略。。。<!-- Text Logo - Use this if you don't have a graphic logo -->
                                ' MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    ' If MM > 0 Then n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        ' n = n + 1: nKK = n
                ' Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""nav-link page-scroll"" href=""index.html"">": t1R = "": t2 = "<span class=""sr-only"">" '特殊处理，，，<a class="nav-link page-scroll" href="index.html">Home <span class="sr-only">(current)</span></a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

'<div class="flex-1 ml-2"><strong>Stator Diameter</strong> : 5-450mm</div>
'<div class="flex-1 ml-2"><strong>Winding service</strong>.........</div>
'<div class="flex-1 ml-2"><strong>Winding service</strong> : Manual Winding for prototype sample and automatic machine winding for our productions.</div>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<div class=""flex-1 ml-2""><strong>": t1R = "": t2 = "</div>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

'<h1 class="xl:ml-24">Revealing the <span class="yy-title-gradient">Laminated Stamping</span> Manufacturing Process of Motor Stator and Rotor Cores</h1>
'<p class="p-large mb-8"><span class="yy-title-gradient">smaller and lighter with higher efficiency</span></p>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<span class=""yy-title-gradient"">": t1R = "</span>": t2 = "</"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<p ": t1R = "": t2 = "</p>"  '<p class="mb-4">If you have any que....</p>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<p>": t1R = "": t2 = "</p>"  '<p>..............</p>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h1>": t1R = "": t2 = "</h1>" '<h1>xxxxxxxxxxxxxxxx</h1>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h2>": t1R = "": t2 = "</h2>" '<h2>xxxxxxxxxxxxxxxx</h2>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h3>": t1R = "": t2 = "</h3>" '<h3>xxxxxxxxxxxxxxxx</h3>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h4>": t1R = "": t2 = "</h4>" '<h4>xxxxxxxxxxxxxxxx</h4>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h5>": t1R = "": t2 = "</h5>" '<h5>xxxxxxxxxxxxxxxx</h5>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h6>": t1R = "": t2 = "</h6>" '<h6>xxxxxxxxxxxxxxxx</h6>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h1 ": t1R = "": t2 = "</h1>" '<h1 class="xl:ml-24">Electrical Steel Materials</h1>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h2 ": t1R = "": t2 = "</h2>" '<h2 class="mb-4">Electrical Steel Materials in stock</h2>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h3 ": t1R = "": t2 = "</h3>" '<h3 class="mb-4">Electrical Steel Materials in stock</h3>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h4 ": t1R = "": t2 = "</h4>" '<h4 class="mb-4">Electrical Steel Materials in stock</h4>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h5 ": t1R = "": t2 = "</h5>" '<h5 class="mb-4">Electrical Steel Materials in stock</h5>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h6 ": t1R = "": t2 = "</h6>" '<h6 class="mb-4">Electrical Steel Materials in stock</h6>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<div class=""li_paragraph"">": t1R = "": t2 = "</div>" '<div class="li_paragraph">AAAAAAAAAA</div>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

'<li class="flex"><div class="">?</div><div class="flex-1 ml-2">AAAAAAAAAAAAAAAAA</div></li>
'<li class="flex"><div class="">?</div><div class="flex-1 ml-2">Features such as a beautiful metallic appearance, high corrosion resistance, wear resistance, low paper friction, scratch resistance and fingerprint resistance, have led to an excellent reputation for this unpainted galvanized steel sheet for many years.</div></li>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "</div><div class=""flex-1 ml-2"">": t1R = "": t2 = "</div></li>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

'<div class="font-normal text-base contact__feedback"><a href="../electrical-steel-materials.html" target="_blank" rel="noopener noreferrer" title="Electrical Steel Materials" class="contact__button">Electrical Steel Materials</a></div>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<div class=""font-normal": t1R = "": t2 = "</div>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<td class=": t1R = "": t2 = "</td>"
'                        t1 = "<td class=""px-2 py-4 text-left"">": t1R = "": t2 = "</td>"
'表格中的字符串段落词组
'                <td class="px-2 py-4 text-left">
'            By reducing the plate thickness, eddy currents can be suppressed and loss can be reduced.</td></tr>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                '<a class="hover:bg-indigo-100 hover:text-blue-120" target="_blank" rel="noopener noreferrer" href="motor_core.html">Custom Stator</a>
                        t1 = """ target=""_blank"" rel=""noopener noreferrer"" href=""": t1R = "": t2 = "</a>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""dropdown-item": t1R = "": t2 = "</a>" '<a class="dropdown-item page-scroll" href="Stator-Core.html">Stator Core</a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                'src="images/Interlock-Bonding-Welding-lamination-technology.webp" alt="Interlock Bonding Welding lamination technology" title="Interlock Bonding Welding lamination technology/license.html",
		"caption": "" And t2 = "",
		"description": "High Speed Stator and Rotor Lamination Production Stamping manufacturer" />
'                                            <meta name="keywords" content="Lamination Production, Stamping manufacturer, Stator and Rotor Lamination">
'                                            <meta name="author" content="DongGuan YouYou Technology, 506586589@qq.com" />
'
'                                            <meta itemprop="name" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer",
		"contentUrl": "https://www.istator.com/images/Bonding-varnish-Backlack.jpg" />
'                                            <meta name="description" itemprop="High Speed Stator and Rotor Lamination Production Stamping manufacturer" />
'
'                                            <meta name="format-detection" content="telephone=no,email=no,date=no,address=no">
'                                            <meta http-equiv="X-UA-Compatible" content="IE=edge" />
'                                            <meta name="application-name" content="DongGuan YouYou Technology Co.,Ltd">
'
'                                            <meta property="og:site_name" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer" />
'                                            <meta property="og:type" content="product">
'                                            <meta property="og:site" content="https://www.istator.com" />
'                                            <meta property="og:title" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer" />
'                                            <meta property="og:description" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer" />
'                                            <meta property="og:image" content="https://www.istator.com/images/Bonding-varnish-Backlack.jpg" />
'                                            <meta property="og:image:alt" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer">
'                                            <meta property="og:url" content="https://www.istator.com" />
'                                            <meta name="twitter:card" content="summary_large_image">
'                                            <meta name="twitter:title" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer">
'                                            <meta name="twitter:description" content="High Speed Stator and Rotor Lamination Production Stamping manufacturer">
'                                            <meta name="twitter:image" content="https://www.istator.com/images/Bonding-varnish-Backlack.jpg">

    n = 1
    nKK = n '''指名位置，，
    L1 = InStr(IIf(nKK > 0, nKK, 1), xText, "<head>")
    L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "</head>")
    yText = Left(xText, L2) '有效数据加以限制

    If L1 > 0 And L2 > 0 Then
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<title>": t1R = "": t2 = "</title>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("1）头部", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<meta ": t1R = "": t2 = ">"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("1）头部", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

            'MsgBox yText
    Else
        MsgBox "找不到Body的 起始代码<header ，或，footer代码<div class=""footer""... 请检查代码先。。。"
    End If

' 2）导航部分
Cells(31, 1) = "导航部分"
'                                            <!-- Navigation -->
'                                            <nav class="navbar fixed-top">
'                                                <div class="container flex flex-wrap items-center justify-between sm:px-4 lg:flex-nowrap lg:px-8">
'
'                                                    <!-- Text Logo - Use this if you don't have a graphic logo -->
'                                                    <!--<a class="text-gray-800 font-semibold text-3xl leading-4 no-underline page-scroll" href="index.html">Pavo</a>-->
'
'                                                    <!-- Image Logo -->
'                                                    <a class="inline-block mr-4 py-0.5 text-xl whitespace-nowrap hover:no-underline focus:no-underline" href="index.html">
'                                                        <svg viewBo e"y="-7.76772">i</text></g></svg>
'                                                    </a>
'
'                                                    <button class="background-transparent rounded text-xl leading-none hover:no-underline focus:no-underline lg:hidden lg:text-gray-400" type="button" data-toggle="offcanvas">
'                                                        <span class="navbar-toggler-icon inline-block w-8 h-8 align-middle"></span>
'                                                    </button>
'
'                                                    <div class="navbar-collapse offcanvas-collapse lg:flex lg:flex-grow lg:items-center" id="navbarsExampleDefault">
'                                                        <ul class="pl-0 mt-3 mb-2 ml-auto flex flex-col list-none lg:mt-0 lg:mb-0 lg:flex-row">
'                                                            <li>
'                                                                <a class="nav-link page-scroll" href="index.html">Home <span class="sr-only">(current)</span></a>
'                                                            </li>
'                                                            <li>
'                                                                <a class="nav-link page-scroll" href="About.html">About us</a>
'                                                            </li>
'                                                            <li class="dropdown">
'                                                                <a class="nav-link dropdown-toggle" id="dropdown01" data-toggle="dropdown" aria-haspopup="true" aria-expanded="false">Products</a>
'                                                                <div class="dropdown-menu" aria-labelledby="dropdown01">
'                                                                    <a class="dropdown-item page-scroll" href="Stator-Core.html">Stator Core</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Rotor-Core.html">Rotor Core</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Stator-and-Rotor-Lamination.html">Stator and Rotor Lamination</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Axial-Flux-Stator.html">Axial Flux Stator</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Stator-Coil-Winding.html">Stator Coil Winding</a>
'                                                                </div>
'                                                            </li>
'                                                            <li class="dropdown">
'                                                                <a class="nav-link dropdown-toggle" id="dropdown02" data-toggle="dropdown" aria-haspopup="true" aria-expanded="false">Services</a>
'                                                                <div class="dropdown-menu" aria-labelledby="dropdown01">
'                                                                    <a class="dropdown-item page-scroll" href="Bonding-varnish-Backlack.html">Bonding varnish/Backlack</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Stamping.html">Stamping</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Coil-Winding.html">Coil Winding</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Electrical-Steel-Materials.html">Electrical Steel Materials</a>
'                                                                </div>
'                                                            </li>
'                                                            <li>
'                                                                 <a class="nav-link page-scroll" href="ready_made_stator_core_stamping_molds.html">Ready Molds</a></li><li><a class="nav-link page-scroll" href="news.html">News</a>
'                                                            </li>
'                                                            <li>
'                                                                <a class="nav-link page-scroll" href="Contact.html">Contact</a>
'                                                            </li>
'                                                        </ul>
'                                                        <span class="block lg:ml-3.5">
'                                                            <a class="no-underline" href="#your-link">
'                                                                <i class="fab fa-appleaaaa text-indigo-600 hover:text-pink-500 text-xl transition-all duration-200 mr-1.5"></i>
'                                                            </a>
'                                                            <a class="no-underline" href="#your-link">
'                                                                <i class="fab fa-androidaaaa text-indigo-600 hover:text-pink-500 text-xl transition-all duration-200"></i>
'                                                            </a>
'                                                        </span>
'                                                    </div>
'                                                </div>
'                                            </nav>
    n = 1
    nKK = n '''指名位置，，
    L1 = InStr(IIf(nKK > 0, nKK, 1), xText, "<nav class=""navbar fixed-top"">")
    L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "</nav>")
    yText = Left(xText, L2) '有效数据加以限制

    If L1 > 0 And L2 > 0 Then
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<!-- ": t1R = "": t2 = "-->" '注释语句，忽略。。。<!-- Text Logo - Use this if you don't have a graphic logo -->
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""nav-link page-scroll"" href=""../index.html"">": t1R = "": t2 = "<span class=""sr-only"">" '特殊处理，，，<a class="nav-link page-scroll" href="../index.html">Home <span class="sr-only">(current)</span></a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

''          <a class="nav-link page-scroll" href="index.html">Home
''            <span class="sr-only">(current)</span></a>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""nav-link page-scroll"" href=""index.html"">": t1R = "": t2 = "<span class=""sr-only"">" '特殊处理，，，<a class="nav-link page-scroll" href="index.html">Home <span class="sr-only">(current)</span></a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""nav-link": t1R = "": t2 = "</a>" '<a class="nav-link page-scroll" href="About.html">About us</a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""dropdown-item": t1R = "": t2 = "</a>" '<a class="dropdown-item page-scroll" href="Stator-Core.html">Stator Core</a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

    Else
        MsgBox "找不到【导航部分】的 起始代码 或 结束代码  ... 请检查代码先。。。"
    End If

'
' 3）Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分
    Cells(31, 1) = "Body部分"
'                                            <!-- Navigation -->
'                                            <nav class="navbar fixed-top">
'                                                <div class="container flex flex-wrap items-center justify-between sm:px-4 lg:flex-nowrap lg:px-8">
'
'                                                    <!-- Text Logo - Use this if you don't have a graphic logo -->
'                                                    <!--<a class="text-gray-800 font-semibold text-3xl leading-4 no-underline page-scroll" href="index.html">Pavo</a>-->
'
'                                            </nav>
    n = 1
    nKK = n '''指名位置，，
    L1 = InStr(IIf(nKK > 0, nKK, 1), xText, "<header")
    'L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "<!-- Footer QianMianBuFen -->") '<div class="footer">
    L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "<div class=""footer"">") '
    yText = Left(xText, L2) '有效数据加以限制

    If L1 > 0 And L2 > 0 Then
                ' n = L1: nKK = n   '''更新位置，，
                ' Do While n < L2
                        ' t1 = "<!-- ": t1R = "": t2 = "-->" '注释语句，忽略。。。<!-- Text Logo - Use this if you don't have a graphic logo -->
                                ' MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    ' If MM > 0 Then n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        ' n = n + 1: nKK = n
                ' Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""nav-link page-scroll"" href=""index.html"">": t1R = "": t2 = "<span class=""sr-only"">" '特殊处理，，，<a class="nav-link page-scroll" href="index.html">Home <span class="sr-only">(current)</span></a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

'<div class="flex-1 ml-2"><strong>Stator Diameter</strong> : 5-450mm</div>
'<div class="flex-1 ml-2"><strong>Winding service</strong>.........</div>
'<div class="flex-1 ml-2"><strong>Winding service</strong> : Manual Winding for prototype sample and automatic machine winding for our productions.</div>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<div class=""flex-1 ml-2""><strong>": t1R = "": t2 = "</div>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

'<h1 class="xl:ml-24">Revealing the <span class="yy-title-gradient">Laminated Stamping</span> Manufacturing Process of Motor Stator and Rotor Cores</h1>
'<p class="p-large mb-8"><span class="yy-title-gradient">smaller and lighter with higher efficiency</span></p>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<span class=""yy-title-gradient"">": t1R = "</span>": t2 = "</"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<p ": t1R = "": t2 = "</p>"  '<p class="mb-4">If you have any que....</p>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<p>": t1R = "": t2 = "</p>"  '<p>..............</p>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h1>": t1R = "": t2 = "</h1>" '<h1>xxxxxxxxxxxxxxxx</h1>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h2>": t1R = "": t2 = "</h2>" '<h2>xxxxxxxxxxxxxxxx</h2>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h3>": t1R = "": t2 = "</h3>" '<h3>xxxxxxxxxxxxxxxx</h3>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h4>": t1R = "": t2 = "</h4>" '<h4>xxxxxxxxxxxxxxxx</h4>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h5>": t1R = "": t2 = "</h5>" '<h5>xxxxxxxxxxxxxxxx</h5>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h6>": t1R = "": t2 = "</h6>" '<h6>xxxxxxxxxxxxxxxx</h6>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h1 ": t1R = "": t2 = "</h1>" '<h1 class="xl:ml-24">Electrical Steel Materials</h1>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h2 ": t1R = "": t2 = "</h2>" '<h2 class="mb-4">Electrical Steel Materials in stock</h2>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h3 ": t1R = "": t2 = "</h3>" '<h3 class="mb-4">Electrical Steel Materials in stock</h3>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h4 ": t1R = "": t2 = "</h4>" '<h4 class="mb-4">Electrical Steel Materials in stock</h4>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h5 ": t1R = "": t2 = "</h5>" '<h5 class="mb-4">Electrical Steel Materials in stock</h5>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h6 ": t1R = "": t2 = "</h6>" '<h6 class="mb-4">Electrical Steel Materials in stock</h6>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<div class=""li_paragraph"">": t1R = "": t2 = "</div>" '<div class="li_paragraph">AAAAAAAAAA</div>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

'<li class="flex"><div class="">?</div><div class="flex-1 ml-2">AAAAAAAAAAAAAAAAA</div></li>
'<li class="flex"><div class="">?</div><div class="flex-1 ml-2">Features such as a beautiful metallic appearance, high corrosion resistance, wear resistance, low paper friction, scratch resistance and fingerprint resistance, have led to an excellent reputation for this unpainted galvanized steel sheet for many years.</div></li>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "</div><div class=""flex-1 ml-2"">": t1R = "": t2 = "</div></li>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

'<div class="font-normal text-base contact__feedback"><a href="../electrical-steel-materials.html" target="_blank" rel="noopener noreferrer" title="Electrical Steel Materials" class="contact__button">Electrical Steel Materials</a></div>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<div class=""font-normal": t1R = "": t2 = "</div>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<td class=": t1R = "": t2 = "</td>"
'                        t1 = "<td class=""px-2 py-4 text-left"">": t1R = "": t2 = "</td>"
'表格中的字符串段落词组
'                <td class="px-2 py-4 text-left">
'            By reducing the plate thickness, eddy currents can be suppressed and loss can be reduced.</td></tr>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                '<a class="hover:bg-indigo-100 hover:text-blue-120" target="_blank" rel="noopener noreferrer" href="motor_core.html">Custom Stator</a>
                        t1 = """ target=""_blank"" rel=""noopener noreferrer"" href=""": t1R = "": t2 = "</a>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""dropdown-item": t1R = "": t2 = "</a>" '<a class="dropdown-item page-scroll" href="Stator-Core.html">Stator Core</a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                'src="images/Interlock-Bonding-Welding-lamination-technology.webp" alt="Interlock Bonding Welding lamination technology" title="Interlock Bonding Welding lamination technology",
		"acquireLicensePage": "https://www.backlack.com/css/Option Explicit.html",
		"creditText": "YOUYOU",
		"creator": {
			"@type": "Person",
			"name": "YOUYOU-TECH"
		},
		"copyrightNotice": "YOUYOU"
	}
	]
}</script>
<!-- END OF YOUYOU-schema-graph -->

    n = 1
    nKK = n '''指名位置，，
    L1 = InStr(IIf(nKK > 0, nKK, 1), xText, "<head>")
    L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "</head>")
    yText = Left(xText, L2) '有效数据加以限制

    If L1 > 0 And L2 > 0 Then
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<title>": t1R = "": t2 = "</title>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("1）头部", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<meta ": t1R = "": t2 = ">"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("1）头部", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

            'MsgBox yText
    Else
        MsgBox "找不到Body的 起始代码<header ，或，footer代码<div class=""footer""... 请检查代码先。。。"
    End If

' 2）导航部分
Cells(31, 1) = "导航部分"
'                                            <!-- Navigation -->
'                                            <nav class="navbar fixed-top">
'                                                <div class="container flex flex-wrap items-center justify-between sm:px-4 lg:flex-nowrap lg:px-8">
'
'                                                    <!-- Text Logo - Use this if you don't have a graphic logo -->
'                                                    <!--<a class="text-gray-800 font-semibold text-3xl leading-4 no-underline page-scroll" href="index.html">Pavo</a>-->
'
'                                                    <!-- Image Logo -->
'                                                    <a class="inline-block mr-4 py-0.5 text-xl whitespace-nowrap hover:no-underline focus:no-underline" href="index.html">
'                                                        <svg viewBo e"y="-7.76772">i</text></g></svg>
'                                                    </a>
'
'                                                    <button class="background-transparent rounded text-xl leading-none hover:no-underline focus:no-underline lg:hidden lg:text-gray-400" type="button" data-toggle="offcanvas">
'                                                        <span class="navbar-toggler-icon inline-block w-8 h-8 align-middle"></span>
'                                                    </button>
'
'                                                    <div class="navbar-collapse offcanvas-collapse lg:flex lg:flex-grow lg:items-center" id="navbarsExampleDefault">
'                                                        <ul class="pl-0 mt-3 mb-2 ml-auto flex flex-col list-none lg:mt-0 lg:mb-0 lg:flex-row">
'                                                            <li>
'                                                                <a class="nav-link page-scroll" href="index.html">Home <span class="sr-only">(current)</span></a>
'                                                            </li>
'                                                            <li>
'                                                                <a class="nav-link page-scroll" href="About.html">About us</a>
'                                                            </li>
'                                                            <li class="dropdown">
'                                                                <a class="nav-link dropdown-toggle" id="dropdown01" data-toggle="dropdown" aria-haspopup="true" aria-expanded="false">Products</a>
'                                                                <div class="dropdown-menu" aria-labelledby="dropdown01">
'                                                                    <a class="dropdown-item page-scroll" href="Stator-Core.html">Stator Core</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Rotor-Core.html">Rotor Core</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Stator-and-Rotor-Lamination.html">Stator and Rotor Lamination</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Axial-Flux-Stator.html">Axial Flux Stator</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Stator-Coil-Winding.html">Stator Coil Winding</a>
'                                                                </div>
'                                                            </li>
'                                                            <li class="dropdown">
'                                                                <a class="nav-link dropdown-toggle" id="dropdown02" data-toggle="dropdown" aria-haspopup="true" aria-expanded="false">Services</a>
'                                                                <div class="dropdown-menu" aria-labelledby="dropdown01">
'                                                                    <a class="dropdown-item page-scroll" href="Bonding-varnish-Backlack.html">Bonding varnish/Backlack</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Stamping.html">Stamping</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Coil-Winding.html">Coil Winding</a>
'                                                                    <div class="dropdown-divider"></div>
'                                                                    <a class="dropdown-item page-scroll" href="Electrical-Steel-Materials.html">Electrical Steel Materials</a>
'                                                                </div>
'                                                            </li>
'                                                            <li>
'                                                                 <a class="nav-link page-scroll" href="ready_made_stator_core_stamping_molds.html">Ready Molds</a></li><li><a class="nav-link page-scroll" href="news.html">News</a>
'                                                            </li>
'                                                            <li>
'                                                                <a class="nav-link page-scroll" href="Contact.html">Contact</a>
'                                                            </li>
'                                                        </ul>
'                                                        <span class="block lg:ml-3.5">
'                                                            <a class="no-underline" href="#your-link">
'                                                                <i class="fab fa-appleaaaa text-indigo-600 hover:text-pink-500 text-xl transition-all duration-200 mr-1.5"></i>
'                                                            </a>
'                                                            <a class="no-underline" href="#your-link">
'                                                                <i class="fab fa-androidaaaa text-indigo-600 hover:text-pink-500 text-xl transition-all duration-200"></i>
'                                                            </a>
'                                                        </span>
'                                                    </div>
'                                                </div>
'                                            </nav>
    n = 1
    nKK = n '''指名位置，，
    L1 = InStr(IIf(nKK > 0, nKK, 1), xText, "<nav class=""navbar fixed-top"">")
    L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "</nav>")
    yText = Left(xText, L2) '有效数据加以限制

    If L1 > 0 And L2 > 0 Then
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<!-- ": t1R = "": t2 = "-->" '注释语句，忽略。。。<!-- Text Logo - Use this if you don't have a graphic logo -->
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""nav-link page-scroll"" href=""../index.html"">": t1R = "": t2 = "<span class=""sr-only"">" '特殊处理，，，<a class="nav-link page-scroll" href="../index.html">Home <span class="sr-only">(current)</span></a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

''          <a class="nav-link page-scroll" href="index.html">Home
''            <span class="sr-only">(current)</span></a>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""nav-link page-scroll"" href=""index.html"">": t1R = "": t2 = "<span class=""sr-only"">" '特殊处理，，，<a class="nav-link page-scroll" href="index.html">Home <span class="sr-only">(current)</span></a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""nav-link": t1R = "": t2 = "</a>" '<a class="nav-link page-scroll" href="About.html">About us</a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""dropdown-item": t1R = "": t2 = "</a>" '<a class="dropdown-item page-scroll" href="Stator-Core.html">Stator Core</a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("2）导航部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

    Else
        MsgBox "找不到【导航部分】的 起始代码 或 结束代码  ... 请检查代码先。。。"
    End If

'
' 3）Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分         Body部分
    Cells(31, 1) = "Body部分"
'                                            <!-- Navigation -->
'                                            <nav class="navbar fixed-top">
'                                                <div class="container flex flex-wrap items-center justify-between sm:px-4 lg:flex-nowrap lg:px-8">
'
'                                                    <!-- Text Logo - Use this if you don't have a graphic logo -->
'                                                    <!--<a class="text-gray-800 font-semibold text-3xl leading-4 no-underline page-scroll" href="index.html">Pavo</a>-->
'
'                                            </nav>
    n = 1
    nKK = n '''指名位置，，
    L1 = InStr(IIf(nKK > 0, nKK, 1), xText, "<header")
    'L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "<!-- Footer QianMianBuFen -->") '<div class="footer">
    L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "<div class=""footer"">") '
    yText = Left(xText, L2) '有效数据加以限制

    If L1 > 0 And L2 > 0 Then
                ' n = L1: nKK = n   '''更新位置，，
                ' Do While n < L2
                        ' t1 = "<!-- ": t1R = "": t2 = "-->" '注释语句，忽略。。。<!-- Text Logo - Use this if you don't have a graphic logo -->
                                ' MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    ' If MM > 0 Then n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        ' n = n + 1: nKK = n
                ' Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""nav-link page-scroll"" href=""index.html"">": t1R = "": t2 = "<span class=""sr-only"">" '特殊处理，，，<a class="nav-link page-scroll" href="index.html">Home <span class="sr-only">(current)</span></a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

'<div class="flex-1 ml-2"><strong>Stator Diameter</strong> : 5-450mm</div>
'<div class="flex-1 ml-2"><strong>Winding service</strong>.........</div>
'<div class="flex-1 ml-2"><strong>Winding service</strong> : Manual Winding for prototype sample and automatic machine winding for our productions.</div>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<div class=""flex-1 ml-2""><strong>": t1R = "": t2 = "</div>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

'<h1 class="xl:ml-24">Revealing the <span class="yy-title-gradient">Laminated Stamping</span> Manufacturing Process of Motor Stator and Rotor Cores</h1>
'<p class="p-large mb-8"><span class="yy-title-gradient">smaller and lighter with higher efficiency</span></p>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<span class=""yy-title-gradient"">": t1R = "</span>": t2 = "</"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<p ": t1R = "": t2 = "</p>"  '<p class="mb-4">If you have any que....</p>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<p>": t1R = "": t2 = "</p>"  '<p>..............</p>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h1>": t1R = "": t2 = "</h1>" '<h1>xxxxxxxxxxxxxxxx</h1>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h2>": t1R = "": t2 = "</h2>" '<h2>xxxxxxxxxxxxxxxx</h2>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h3>": t1R = "": t2 = "</h3>" '<h3>xxxxxxxxxxxxxxxx</h3>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h4>": t1R = "": t2 = "</h4>" '<h4>xxxxxxxxxxxxxxxx</h4>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h5>": t1R = "": t2 = "</h5>" '<h5>xxxxxxxxxxxxxxxx</h5>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h6>": t1R = "": t2 = "</h6>" '<h6>xxxxxxxxxxxxxxxx</h6>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h1 ": t1R = "": t2 = "</h1>" '<h1 class="xl:ml-24">Electrical Steel Materials</h1>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h2 ": t1R = "": t2 = "</h2>" '<h2 class="mb-4">Electrical Steel Materials in stock</h2>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h3 ": t1R = "": t2 = "</h3>" '<h3 class="mb-4">Electrical Steel Materials in stock</h3>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h4 ": t1R = "": t2 = "</h4>" '<h4 class="mb-4">Electrical Steel Materials in stock</h4>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h5 ": t1R = "": t2 = "</h5>" '<h5 class="mb-4">Electrical Steel Materials in stock</h5>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<h6 ": t1R = "": t2 = "</h6>" '<h6 class="mb-4">Electrical Steel Materials in stock</h6>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<div class=""li_paragraph"">": t1R = "": t2 = "</div>" '<div class="li_paragraph">AAAAAAAAAA</div>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

'<li class="flex"><div class="">?</div><div class="flex-1 ml-2">AAAAAAAAAAAAAAAAA</div></li>
'<li class="flex"><div class="">?</div><div class="flex-1 ml-2">Features such as a beautiful metallic appearance, high corrosion resistance, wear resistance, low paper friction, scratch resistance and fingerprint resistance, have led to an excellent reputation for this unpainted galvanized steel sheet for many years.</div></li>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "</div><div class=""flex-1 ml-2"">": t1R = "": t2 = "</div></li>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

'<div class="font-normal text-base contact__feedback"><a href="../electrical-steel-materials.html" target="_blank" rel="noopener noreferrer" title="Electrical Steel Materials" class="contact__button">Electrical Steel Materials</a></div>
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<div class=""font-normal": t1R = "": t2 = "</div>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<td class=": t1R = "": t2 = "</td>"
'                        t1 = "<td class=""px-2 py-4 text-left"">": t1R = "": t2 = "</td>"
'表格中的字符串段落词组
'                <td class="px-2 py-4 text-left">
'            By reducing the plate thickness, eddy currents can be suppressed and loss can be reduced.</td></tr>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                '<a class="hover:bg-indigo-100 hover:text-blue-120" target="_blank" rel="noopener noreferrer" href="motor_core.html">Custom Stator</a>
                        t1 = """ target=""_blank"" rel=""noopener noreferrer"" href=""": t1R = "": t2 = "</a>"
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<a class=""dropdown-item": t1R = "": t2 = "</a>" '<a class="dropdown-item page-scroll" href="Stator-Core.html">Stator Core</a>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                'src="images/Interlock-Bonding-Welding-lamination-technology.webp" alt="Interlock Bonding Welding lamination technology" title="Interlock Bonding Welding lamination technology"/></div>
                '格式必须是 先 alt 后 title
                '
                        t1 = """ alt=""": t1R = "": t2 = """ title="""
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                'alt="Interlock Bonding Welding lamination technology" title="Interlock Bonding Welding lamination technology"/></div>
                '格式必须是   " title="......"
                '
                        t1 = """ title=""": t1R = "": t2 = """"
                                                        sss = Mid(yText, nKK, 60)
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then
                                        n = 提炼字符串("3）Body部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                                    Else
                                        Exit Do
                                    End If
                        n = n + 1: nKK = n
                Loop

    Else
        MsgBox "找不到Body部分的 起始代码 或 结束代码  ... 请检查代码先。。。"
    End If

' 4）Foot部分
    Cells(31, 1) = "Foot部分"
'
'                                            <!-- Footer QianMianBuFen --><!-- Footer -->
'                                            <div class="footer">
'                                                <div class="container px-4 sm:px-8">
'                                                    <div class="social-container">
'                                                        <span class="fa-stack">
'                                                            <a href="#your-link">'
'                                                                <svg t="1 7"></path></svg>
'                                                            </a>
'                                                        </span>
'                                                    </div>
'                                                </div>
'                                            </div>
'
'                                            <!-- Copyright -->
'                                            <div class="copyright">
'                                                <div class="container px-4 sm:px-8 lg:grid lg:grid-cols-3">
'                                                    <ul class="mb-4 list-unstyled p-small">
'                                                        <li class="mb-2"><a href="About.html">About us</a></li>
'                                                        <li class="mb-2"><a href="News.html">News</a></li>
'                                                        <li class="mb-2"><a href="Contact.html">Contact</a></li><li class="mb-2"><a href="../sitemap.xml">Sitemap</a></li>
'                                                    </ul>
'                                                    <p class="pb-2 p-small statement">Copyright?<a class="no-underline">DongGuan YouYou Technology Co.,Ltd</a></p>
'                                                </div>
'                                            </div>
    n = 1
    nKK = n '''指名位置，，
    L1 = InStr(IIf(nKK > 0, nKK, 1), xText, "<div class=""footer"">")
    ''''L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "<script src=""https://cdnjs.cloudflare.com/ajax/libs/jquery/3.5.")
    L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "<!-- Copyright   END -->")
    yText = Left(xText, L2) '有效数据加以限制

    If L1 > 0 And L2 > 0 Then
                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<li ": t1R = "": t2 = "</li>" '<li class="mb-2"><a href="About.html">About us</a></li>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("4）Foot部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<span>": t1R = "": t2 = " : </span>"   '<span>Language : </span>
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("4）Foot部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop

                n = L1: nKK = n   '''更新位置，，
                Do While n < L2
                        t1 = "<p ": t1R = "": t2 = "Copyright" '<p class="pb-2 p-small statement">Copyright
                                MM = InStr(nKK, yText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                                    If MM > 0 Then n = 提炼字符串("4）Foot部分", yText, t1, t1R, t2, MM, L1, L2, nKK, G_Row, G_Col, ifile_name, FILE_NAME_1, FILE_PATH_1)  '提炼字符串
                        n = n + 1: nKK = n
                Loop
    Else
        MsgBox "找不到Foot部分的 起始代码 或 结束代码  ... 请检查代码先。。。" & vbCrLf & "L1:" & L1 & vbCrLf & "L2:" & L2
        L1 = L1
    End If

'复制词组到优化后的词组的区域
'
    Cells(31, 1) = "复制词组到优化后的词组的区域"
    For Each Input_Cell In sheet.UsedRange.Columns("E:E").Cells
        Set Mark_Cell = sheet.Range("E" & Input_Cell.Row)
        Set Text_Cell = sheet.Range("H" & Input_Cell.Row)
        Set Text_Cell_Optimize = sheet.Range("J" & Input_Cell.Row) '优化后的词组，  如：1）超链接contact us ,  2)粗体strong
        If Text_Cell_Optimize.text = "" Then
            Text_Cell_Optimize.Value = Text_Cell.Value
                                                                    Range("J" & Trim(str(Input_Cell.Row)) & ":J" & Trim(str(Input_Cell.Row))).Select
                                                                    Selection.Interior.ColorIndex = xlNone '''底色  白色
        Else
                                                                    Range("J" & Trim(str(Input_Cell.Row)) & ":J" & Trim(str(Input_Cell.Row))).Select
                                                                    Selection.Interior.ColorIndex = 7 '''底色  紫色
        End If

'        ii = ii
    Next

    '去重复的单元格那些行
    '
    Cells(31, 1) = "去重复的单元格那些行"
    nnn = MaxUsedRowInCol("J") ''sheet.UsedRange.Columns("J:J").Cells.count
    For i = nnn To 2 Step -1
        If Cells(i, 5) = Cells(i - 1, 5) And Cells(i, 6) = Cells(i - 1, 6) And Cells(i, 8) = Cells(i - 1, 8) And Cells(i, 9) = Cells(i - 1, 9) And Cells(i, 10) = Cells(i - 1, 10) Then ' 优化的词组
'                                Range("E" & Trim(str(i)) & ":K" & Trim(str(i))).Select
'                                Selection.Delete Shift:=xlUp
                                Range("E" & Trim(str(i)) & ":K" & Trim(str(i))).Clear ' 清除xxxxx范围内所有单元格的内容和格式
        Else
        End If
    Next
    ''排序
    '
    Cells(31, 1) = "排序"
    Columns("E:K").Select
    Selection.Sort Key1:=Range("E1"), Order1:=xlAscending, header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
        :=xlPinYin, DataOption1:=xlSortNormal

    '区域不自动换行
    '
    Cells(31, 1) = "区域不自动换行"
    Range("E1:I600").Select
    Range("E600").Activate
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = False '区域不自动换行
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Range("A3").Select

    ActiveWindow.LargeScroll Up:=3, ToLeft:=3 ''' "将当前窗口向上滚动3页并向左滚动3页"

    n2 = n2

Application.ScreenUpdating = True

    Cells(31, 1) = "检查最后一个非空单元格前的空单元格"
    Call HighlightEmptyCellsInColumnJ '''检查最后一个非空单元格前的空单元格

    Cells(31, 1) = "GOOGLE翻译成目标语言"
    Call GOOGLE翻译成目标语言

 End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'如果你希望突出显示J列中每一个空单元格所在行的E到J列，而不只是检查最后一个非空单元格前的空单元格，你可以使用下面的VBA代码：
'这段代码会遍历J列的每一行，只要发现某个单元格为空，就会将其所在行的E到J列部分涂成蓝色，适用于Excel 2003及以后的所有版本。
Sub HighlightEmptyCellsInColumnJ()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim currentRow As Long
    ' 设置工作表为当前激活的工作表
    Set ws = ActiveSheet
    ' 确定J列最后一个使用过的单元格的行号，这里使用一种更稳健的方式来寻找J列的最后一个非空单元格
    lastRow = MaxUsedRowInCol("J")
    ' 遍历J列，从第一行到找到的最后一个非空单元格的行号
    For currentRow = 1 To lastRow
        ' 检查当前单元格是否为空
        If ws.Cells(currentRow, "J").Value = "" Then
            ' 如果单元格为空，则给该行E到J列的单元格填充蓝色
            ws.Range(ws.Cells(currentRow, "E"), ws.Cells(currentRow, "J")).Interior.Color = RGB(0, 176, 240) ' 蓝色RGB值
        End If
    Next currentRow
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function DFGEWG__Body(ByVal xText As String, ByVal t1 As String, ByVal t2 As String) As String
DFGEWG__Body = xText
'
    '在以下范围的之间，查找，替换特定的词组后，并写入文件，，，
    '
    '<header
    '
    '<div class="footer">
    '
    '
    Dim text As String
    Dim c As String
    Dim len1, len2, len3, i_JianTou_L, i_JianTou_R, iNeedReplace As Long
    Dim xText2, tt1_L, tt1_R, KKK As String
    Dim n, n0, n1, n2, n3, i, nnn, nKK, ddd, L1, L2, MM, n1_L, n1_R, n2_L, n2_LL, ppp As Long
    Dim X, a, b, t11, yy As String

    Const vbUseCompareOption = -1 '  使用 Option Compare 语句的设置执行比较。
    Const vbBinaryCompare = 0 ' 执行二进制比较。
    Const vbTextCompare = 1    ' 执行文本比较。
    Const vbDatabaseCompare = 2     '仅用于 Microsoft Access。 根据数据库中的信息执行比较。

    len1 = Len(t1)
    len2 = Len(t2)
    len3 = Len(xText)

    n = 1
    DiSe_Body = 0

    nKK = n '''指名位置，，
    L1 = InStr(IIf(nKK > 0, nKK, 1), xText, "<header")
    L2 = InStr(IIf(nKK > 0, nKK, 1), xText, "<div class=""footer"">")

    If L1 > 0 And L2 > 0 Then

        n = L1 '''更新位置
        nKK = n '''更新位置，，
        'nKK = n '''更新位置，，
        X = xText

        MM = InStr(nKK, xText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）

        '存在词组
        '
        ''网址内容（超链接用途）的字符串的词组，不要替换操作。保留原样
        '
                ' <div class="container max-w-6xl p-6 mx-auto space-y-6 sm:space-y-12">
                    ' <a rel="noopener noreferrer" href="News/Why-do-high-performance-brushless-DC-motors-need-stator-lamination-annealing.html" class="block max-w-sm gap-3 mx-auto sm:max-w-full group hover:no-underline focus:no-underline lg:grid lg:grid-cols-12 dark:bg-gray-900">
                        ' <img src="../images/Why-do-high-performance-brushless-DC-motors-need-stator-lamination-annealing-2-1200.webp" alt="Why do high performance brushless DC motors need stator lamination annealing" title="Why do high performance brushless DC motors need stator lamination annealing" class="object-cover w-full h-64 rounded sm:h-50 lg:col-span-4 dark:bg-gray-500">
                        ' <div class="p-6 space-y-2 lg:col-span-8">
                            ' <h2 class="text-2xl font-semibold sm:text-4xl group-hover:underline group-focus:underline">Why do high performance brushless DC motors need stator lamination annealing</h2>
                            ' <span class="text-xs dark:text-gray-400">May 6, 2021</span>
                            ' <p>Silicon steel increases the efficiency and effectiveness of any device that uses steel as a magnetic core material...</p>
                        ' </div>
                    ' </a>
                ' </div>
                '
                iNeedReplace = 0
                Do While n < Len(xText) And MM > 0
                        ppp = Len(xText)
                        yy = Left(xText, MM) '截取 都 目标字符串的 左边大内容
                        n1 = InStrRev(yy, "<a")
                        n1_L = InStrRev(yy, ">")
                        n1_R = InStrRev(yy, "href=""")
                        n2 = InStr(MM, xText, ">")
                        n2_L = InStr(MM, xText, "</")
                        n2_LL = InStr(MM, xText, "<")

                        If n1_L < n1 Then  ''   > ... <a  左边存在这样的字符串
                                If n1 < n1_R Then
                                        If n1_R < MM Then
                                                If MM < n2 Then
                                                        If n2 < n2_LL Then
                                                        Else
                                                            Debug.Print Mid(xText, n1_L - 1, (n2_L - n1_L) + 5)
                                                            iNeedReplace = 1
                                                            n2 = n2   ' MsgBox t1
                                                        End If
                                                Else
                                                End If
                                        Else
                                        End If
                                Else
                                End If
                        Else
                        End If
                    '左边存在这样的字符串
                    '<h2 class="text-2xl font-semibold sm:text-4xl group-hover:underline group-focus:underline">Why the stator core needs to be laminated</h2>
                        '
                        If n1_L < MM And MM < n2_L Then
                                If n2_L < n2 Then
                                 Debug.Print Mid(xText, n1_L - 1, (n2 - n1_L) + 5)
                                            iNeedReplace = 1  ' MsgBox t1
                                                    n2 = n2
                                Else
                                End If
                        Else
                        End If

                        If iNeedReplace = 1 Then  ''   > ... <a  左边存在这样的字符串
                                            iNeedReplace = 0
                                                                ppp = Len(xText)
'                                                                MsgBox Mid(xText, n1_L - 1 - 20, (n2 - n1_L) + 25)
                                            'xText = Replace(xText, t1, t2)
                                            xText = Left(xText, MM - 1) & t2 & Right(xText, Len(xText) - MM - Len(t1) + 1)
                                            DiSe_Body = 1
'                                            Exit Do
                                            n = MM + Len(t2)
                        Else
                                            n = MM + Len(t1)
                        End If

                        nKK = n
                        MM = InStr(nKK, xText, t1, vbBinaryCompare)   '''定位当前词组的位置    ' 执行二进制比较。（区分大小写）
                Loop

            'MsgBox xText

    Else
        MsgBox "找不到Body的 起始代码<header ，或，footer代码<div class=""footer""... 请检查代码先。。。"
    End If

    n2 = n2
    DFGEWG__Body = xText
End Function

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function DFGEWG__Text_Link(ByVal xText As String, ByVal t1 As String, ByVal t2 As String) As String
DFGEWG__Text_Link = xText
'
    '在以下范围的之间，查找，替换特定的翻译后的词组，并写入文件，，，
    '
    '
    '<header
    '
    '<div class="footer">
    '
    '超链接的字符串
    '
    '(1) with <a class="text-indigo-600" href="Electrical-Steel-Materials.html">0.1/0.2mm</a> thickness
    '
    '(2) to <a class="text-indigo-600" href="Contact.html">Contact</a> us, we are
    '

    Dim text As String
    Dim c As String
    Dim len1, len2, len3, i_JianTou_L, i_JianTou_R As Long
    Dim xText2, tt1_L, tt1_R, KKK As String
    Dim n, n0, n1, n2, n3, i, nnn, nKK, ddd, L1, L2 As Long
    Dim X, a, b, t11, yy As String

    Const vbUseCompareOption = -1 '  使用 Option Compare 语句的设置执行比较。
    Const vbBinaryCompare = 0 ' 执行二进制比较。（区分大小写）
    Const vbTextCompare = 1    ' 执行文本比较。（不区分大小写）
    Const vbDatabaseCompare = 2     '仅用于 Microsoft Access。 根据数据库中的信息执行比较。

    len1 = Len(t1)
    len2 = Len(t2)
    len3 = Len(xText)

    n = 1

    nKK = n '''指名位置，，
    L1 = InStr(nKK + 1, xText, "<header")
    L2 = InStr(nKK + 1, xText, "<div class=""footer"">")

    If L1 > 0 And L2 > 0 Then

        n = L1 '''更新位置
        nKK = n '''更新位置，，
        'nKK = n '''更新位置，，
        text = ""
        X = xText
        Do While n < L2
            n1 = InStr(nKK + 1, xText, ".html"">")
            n2 = InStr(IIf(n1 > nKK, n1, nKK + 1), xText, "</a>")
            If n1 > 0 And n2 > 0 Then
                a = Mid(xText, n1 + Len(".html"">"), n2 - n1 - Len(".html"">"))
                n = n2 + 1
            ElseIf n1 = 0 And n2 = 0 Then
                Exit Do
            Else
            End If
            i = InStr(1, t1, a, vbTextCompare) ' 执行文本比较。（不区分大小写）
            If i = 0 Then
                n = n + 1
                DiSe_Strong = 0
            Else
                yy = Left(xText, n1)
                n0 = InStrRev(yy, ">")
                n3 = InStr(n2 + 1, xText, "</")
                ddd = (n3 - n0 + 2)
                If ddd > Len(t1) Then
                     t11 = Replace(t1, a, ".html"">" & a & "</a>")
                    b = Mid(xText, n0 + 1, n3 - n0 - 1)
                    xText = Replace(xText, b, t2)
                    DiSe_Strong = 1
                    n2 = n2
                Else
                    DiSe_Strong = 0
                    '超大跨度的字符串 开始和结尾，算异常，
                    '提示，，
                    MsgBox "找到的 字符串：" & b & "太短了，，不对。 继续找下一个字符串。。。。"
                End If

                Exit Do

                '更新
                n = n1 + Len(t2)
                n = n
            End If

            nKK = n
        Loop
    Else
    End If

    n2 = n2
    DFGEWG__Text_Link = xText
End Function

'''
'''Sub 快快滴快快滴()
'''Dim SS As String
'''
'''SS = DFGEWG("><strong>Corporate culture</strong> : focus on", "Corporate culture :", "AAAAAAA")
'''SS = DFGEWG("wefP<A>Cor</A>fodseewdf", "P<A>Cor</A>fo", "AAAAAAA", "AA")
'''
'''End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function DFGEWG__strong(ByVal xText As String, ByVal t1 As String, ByVal t2 As String) As String
DFGEWG__strong = xText
' <div class="flex-1 ml-2"><strong>Corporate culture</strong> : focus on details, do a good job in production, answer customer expectations, and develop corporate literacy.</div>
'
'<p class="mb-4">We mainly focus on the stamping and lamination technology of electrical steel sheets. The main technical solution is the bonded iron core. More than 75% of the products are processed and customized with <a class="text-indigo-600" href="Electrical-Steel-Materials.html">0.1/0.2mm</a> thickness silicon steel. We are a high-tech manufacturing enterprise specializing in motor core molds. Most sophisticated equipment comes from Taiwan, Japan and Switzerland.</p>
'
    Dim text As String
    Dim c As String
    Dim len1, len2, len3, i_JianTou_L, i_JianTou_R As Long
    Dim xText2, tt1_L, tt1_R, KKK As String
    Dim n, n0, n1, n2, n3, i, nnn, nKK, ddd
    Dim X, a, b, t11, yy

    len1 = Len(t1)
    len2 = Len(t2)
    len3 = Len(xText)

    n = 1

    '''<div class="flex-1 ml-2"><strong>Corporate culture</strong> : focus on details, do a good job in production, answer customer expectations, and develop corporate literacy.</div>

    text = ""
    X = xText
    nKK = n '''指名位置，，
    Do While n < Len(xText)
        'nnn = InStr(n, xText, " ") '找空格的位置
        n1 = InStr(nKK + 1, xText, "<strong>")
        n2 = InStr(nKK + 1, xText, "</strong>")
        If n1 > 0 And n2 > 0 Then
            a = Mid(xText, n1 + Len("<strong>"), n2 - n1 - Len("<strong>"))
            n = n2 + 1
        ElseIf n1 = 0 And n2 = 0 Then
            Exit Do
        Else
        End If
        i = InStr(t1, a)
        If i = 0 Then
            n = n + 1
            DiSe_SuperLink = 0
        Else
        yy = Left(xText, n1)
            n0 = InStrRev(yy, ">")
            n3 = InStr(n2 + 1, xText, "</")
            ddd = (n3 - n1 + 2)
            If ddd > Len(t1) Then
                 t11 = Replace(t1, a, "<strong>" & a & "</strong>")
                b = Mid(xText, n0 + 1, n3 - n0 - 1)
                xText = Replace(xText, b, t2)
                DiSe_SuperLink = 1
                n2 = n2
            Else
                DiSe_SuperLink = 0
                '超大跨度的字符串 开始和结尾，算异常，
                '提示，，
                MsgBox "找到的 字符串：" & Mid(xText, n0, n3 - n0) & "太短了，，不对。 继续找下一个字符串。。。。"
            End If

            Exit Do

            '更新
            n = n1 + Len(t2)
            n = n
        End If

        nKK = n
    Loop

    n2 = n2
    DFGEWG__strong = xText
End Function

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''                                                                                        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''                                                                                        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''                                                                                        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Sub 翻译当前的页面内容为__目标语言__Body内容() '''翻译当前的页面内容为__目标语言__Body内容

    Dim sheet As Worksheet
    Dim Input_Cell As Range, Output_Cell As Range

    Input_Lang = Input_English '''''''''''''''''''''''''''''''''''原本语言  选择
    Return_Lang = Return_Deutsch ''''''''''''''''''''''''''''''''''目标语言  选择

                                                'now declare the array
                                                Dim Array_Lang(10) As String '''语言数组
                                                'assign the values to array elements
                                                Array_Lang(1) = "en"
                                                Array_Lang(2) = "fr"
                                                Array_Lang(3) = "es"
                                                Array_Lang(4) = "de"
                                                Array_Lang(5) = "it"
                                                Array_Lang(6) = "ja"
                                                Array_Lang(7) = "ru"
                                                Array_Lang(8) = "pt"
                                                Array_Lang(9) = "tr"
                                                Array_Lang(10) = "en"

    Call 按单元格的长度排序一下 '''按单元格的长度排序一下

    Set sheet = ActiveWorkbook.Sheets("翻译当前的页面的Body内容")

'    For Each Input_Cell In sheet.UsedRange.Columns("A:A").Cells
'        Set Output_Cell = sheet.Range("B" & Input_Cell.Row)
'        If Input_Cell.text > "" Then
'            Output_Cell.Value = Microsoft_Transalte_using_vba(Input_Cell.text, Input_English, Return_French)
'        Else
'            Output_Cell.Value = ""
'        End If
'
''        ii = ii
'    Next

    Const ForReading = 1, ForWriting = 2, ForAppending = 8
    Const TristateUseDefault = -2 '  使用系统默认设置打开文件。
    Const TristateTrue = -1    '  打开该文件为 Unicode。
    Const TristateFalse = 0   '  打开该文件为 ASCII。

    Dim oFSO As Object
    Dim oFS As Object, SText As String
    Dim ifile_name, t1, t2 As String
    Dim fs, f, ts, s, xText, FilePath, kkkkk
    Dim i As Integer
    Dim NN As Long

    NN = 0
            ifile_name = Cells(1, 6)  '文件名所在的全部路径部分  '打开文件对话框，选择某个文件，，，
            FILE_NAME_1 = Cells(1, 5) '文件名，无路径部分
            FILE_PATH_1 = Cells(1, 4) '只单纯的路径部分

            MsgBox "正在改写的文件：" & ifile_name

    '''查找，替换特定的翻译后的词组，并写入文件，，，
    ''
    For Each Input_Cell In sheet.UsedRange.Columns("A:A").Cells
        Set Output_Cell = sheet.Range("B" & Input_Cell.Row)
        If Input_Cell.text > "" Then

            '读文件内容，并修改/替换 局部内容
'            xText = ReadFileText(ifile_name)
                                                            Dim Ii
                                                            Dim AD As Object: Set AD = CreateObject("ADODB.Stream")
                                                            AD.Charset = "utf-8"
                                                            AD.Open
                                                            AD.LoadFromFile ifile_name
                                                            xText = AD.readText
                                                            AD.Close

            '                            t1 = "index.html" & """class=""text-gray-700 bloc" ' <a href="de/index.html" class="text-gray-700 bloc
            '                            t1 = FILE_NAME_1 & FILE_NAME_1 & """class=""text-gray-700 bloc"     ' <a href="de/index.html" class="text-gray-700 bloc
                                        ' t1 = FILE_NAME_1 & """class=""text-gray-700 bloc"       ' <a href="de/index.html" class="text-gray-700 bloc
            '                            t1 = "index.html" & """class=""text-gray-700 bloc"       ' <a href="de/index.html" class="text-gray-700 bloc
                                        ' t2 = "News/" & FILE_NAME_1 & """class=""text-gray-700 bloc"

            '                            t1 = ">" & Input_Cell.text & "<"
            '                            t2 = ">" & Output_Cell.text & "<"
                                        t1 = Input_Cell.text
                                        t2 = Output_Cell.text
                                        If InStr(xText, t1) Then
                                            kkkkk = DFGEWG__Body(xText, t1, t2)
                                                xText = kkkkk
                                            'xText = Replace(xText, t1, t2)
                '                            MsgBox xText
                                                    If DiSe_Body = 1 Then
                                                        DiSe_Body = 0
                                                        NN = NN + 1
                                                                    Range("A" & Trim(str(Input_Cell.Row)) & ":B" & Trim(str(Input_Cell.Row))).Select
                                                                    With Selection.Interior
                                                                        .ColorIndex = 7 '''底色  紫色
                                                                        .Pattern = xlSolid
                                                                    End With
                                                    Else
'                                                                    Range("A" & Trim(str(Input_Cell.Row)) & ":B" & Trim(str(Input_Cell.Row))).Select
'                                                                    Selection.Interior.ColorIndex = xlNone '''底色  白色
                                                    End If

                                        Else
                                        '''特殊字符串处理，因为中间有别的CSS块定义，
                                        '''             Corporate culture : focus on details, do a good job in production, answer customer expectations, and develop corporate literacy.
                                            kkkkk = DFGEWG__strong(xText, t1, t2)
                                                xText = kkkkk
                                            kkkkk = DFGEWG__Text_Link(xText, t1, t2)
                                                xText = kkkkk

                                                    If DiSe_Strong = 1 Then
                                                        DiSe_Strong = 0
                                                        NN = NN + 1
                                                                    Range("A" & Trim(str(Input_Cell.Row)) & ":B" & Trim(str(Input_Cell.Row))).Select
                                                                    With Selection.Interior
                                                                        .ColorIndex = 6 '''底色  黄色
                                                                        .Pattern = xlSolid
                                                                    End With
                                                    Else
                                                                    Range("A" & Trim(str(Input_Cell.Row)) & ":B" & Trim(str(Input_Cell.Row))).Select
                                                                    Selection.Interior.ColorIndex = xlNone '''底色  白色
                                                    End If
                                                    If DiSe_SuperLink = 1 Then
                                                        DiSe_SuperLink = 0
                                                        NN = NN + 1
                                                                    Range("A" & Trim(str(Input_Cell.Row)) & ":B" & Trim(str(Input_Cell.Row))).Select
                                                                    With Selection.Interior
                                                                        .ColorIndex = 38 '''底色  粉红色
                                                                        .Pattern = xlSolid
                                                                    End With
                                                    Else
                                                                    Range("A" & Trim(str(Input_Cell.Row)) & ":B" & Trim(str(Input_Cell.Row))).Select
                                                                    Selection.Interior.ColorIndex = xlNone '''底色  白色
                                                    End If
                                        End If

            '写入文件内容
'            xText = WriteFileText(ifile_name)

                                                 Call WriteFileText(xText, ifile_name) ''覆盖原文件，，
'                                                                    Dim FSO As Object
'                                                                    Set FSO = CreateObject("Scripting.FileSystemObject")
'                                                                    Dim TempTextFile As Variant
'                                                                    TempTextFile = FILE_PATH_1 & "\test_JP_TH.html"
'                    '                                                TempTextFile = ThisWorkbook.Path & "\test_JP_TH.html"
''                                                                    TempTextFile = FILE_PATH_1 & Array_Lang(Return_Lang) & "\" & FILE_NAME_1
''                                                                    TempTextFile = FILE_PATH_1 & FILE_NAME_1
'                                                                      If FSO.FileExists(TempTextFile) = True Then
'                                                                         FSO.GetFile(TempTextFile).Delete
'                                                                      End If
'                                                                    FSO.CreateTextFile TempTextFile
'
'                                                                    Set FSO = Nothing
'                                               Call WriteFileText(xText, TempTextFile) ''保存为新的文件，，
        Else
            Output_Cell.Value = ""
        End If

'        ii = ii
    Next

            MsgBox "本次查找、替换了：" & str(NN) & "个 词组."
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''                                                                                        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''                                                                                        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''                                                                                        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub 选择一个HTML网页()

    Dim i As Integer
    Dim nnn As Long
    Dim sheet As Worksheet
    Dim Input_Cell, ByteNo_Cell   As Range
    Dim xxxFileName, xxxWebName As String
    Dim ifile_name  As String
    Dim WebUrl As String

    '打开文件对话框，选择某个文件，，，
    '
    ifile_name = UseFileDialogOpen() '打开文件对话框，选择某个文件，，，
    If ifile_name = "" Then ''为空，没有选择文件，则直接退出
        MsgBox "为空，没有选择文件，则直接退出"
        Exit Sub
    Else
    End If

    '列出当前选择的文件名和路径
    '
    Cells(1, 6) = ifile_name
    Cells(1, 5) = FILE_NAME_1
    Cells(1, 4) = FILE_PATH_1 & "\"

'    MsgBox "目标语言：" & Array_Lang(Return_Lang)

    '打开Chrome浏览器的某个网址
    '
    WebUrl = "https://elecrama2027.com/" & FILE_NAME_1
'    Shell ("C:\Program Files\Google\Chrome\Application\chrome.exe -url " & WebUrl) 'C:\Users\Administrator\AppData\Local\MyChrome\Chrome\Application\chrone.exe --disable-background-networking --user-data-dir="C:\Users\Administrator\AppData\Local\MyChrome\Chrome\MyData"
    Shell ("C:\Users\Administrator\AppData\Local\MyChrome\Chrome\Application\chrone.exe -url " & WebUrl) 'C:\Users\Administrator\AppData\Local\MyChrome\Chrome\Application\chrone.exe --disable-background-networking --user-data-dir="C:\Users\Administrator\AppData\Local\MyChrome\Chrome\MyData"

End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''                                                                                        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''                                                                                        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''                                                                                        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub 按单元格的长度排序一下()

    Dim i As Integer
    Dim nnn As Long
    Dim Return_Lang, Input_Lang
    Dim sheet As Worksheet
    Dim Input_Cell, Output_Cell, ByteNo_Cell  As Range
    Dim iDel_Row As Long

    Set sheet = ActiveWorkbook.Sheets("翻译当前的页面的Body内容")

'赋值，，
''=LEN(A1)
    ''
    For Each Input_Cell In sheet.UsedRange.Columns("A:A").Cells
        Set Input_Cell = sheet.Range("A" & Input_Cell.Row) ''源语言的词组 的那列
        Set Output_Cell = sheet.Range("B" & Input_Cell.Row) ''目标语言的词组 的那列
        Set ByteNo_Cell = sheet.Range("C" & Input_Cell.Row) ''字节数 的那列
        If Input_Cell.text > "" Then
            Input_Cell.Value = Trim(Input_Cell.text) ''去头尾的空格
            Output_Cell.Value = Trim(Output_Cell.text) ''去头尾的空格
            ByteNo_Cell.Value = Len(Input_Cell.text) '''''''''''''''''''''

                        '过滤一部分 文字内容
                        '
                        iDel_Row = 0
                        If Input_Cell.text = "<li>" Then
                                iDel_Row = 1
                        ElseIf Input_Cell.text = "Back to Top" Then
                                iDel_Row = 1
                        ElseIf Input_Cell.text = "i" And Len(Input_Cell.text) = 1 Then
                                iDel_Row = 1
                        ElseIf Input_Cell.text = "Home(current)" Then
                                Input_Cell.Value = Left(Input_Cell.text, InStr(Input_Cell.text, "(") - 1)
                                Output_Cell.Value = Left(Output_Cell.text, InStr(Output_Cell.text, "(") - 1)
                        ElseIf Input_Cell.text = "About us News ContactSitemap" Then
                                iDel_Row = 1
                        Else
                        End If

                        If iDel_Row = 1 Then
                                iDel_Row = 0
                                Range("A" & Trim(str(Input_Cell.Row)) & ":C" & Trim(str(Input_Cell.Row))).Select
                                Selection.Delete Shift:=xlUp
                        Else
                        End If
        Else
            ByteNo_Cell.Value = ""
        End If

    Next

                                                Range("A1:B300").Select
                                                Selection.Interior.ColorIndex = xlNone '''底色  白色

    Range("C1").Select
    ActiveCell.FormulaR1C1 = "=LEN(RC[-2])"
    Range("C1").Select
    Selection.Copy
    Range("C2:C200").Select
    ActiveSheet.Paste
    Range("A1:C201").Select
    Range("C41").Activate
    Application.CutCopyMode = False
    Selection.Sort Key1:=Range("C1"), Order1:=xlDescending, header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
        :=xlPinYin, DataOption1:=xlSortNormal
    Range("F14").Select

    '''删除尾部的 空的单元格部分
    ''
    nnn = MaxUsedRowInCol("A") ''  sheet.UsedRange.Columns("A:A").Cells.count
    '''''''''''''''''''''''''''''''''''''''
    '删除 n行空白行
    '
    For i = nnn To 5 Step -1
        If Cells(i, 1) <> "" Then
            Exit For
        Else
'            Rows(Trim(str(i)) & ":" & Trim(str(i))).Select
            Range("A" & Trim(str(i)) & ":C" & Trim(str(i))).Select
            Selection.Delete Shift:=xlUp
        End If
    Next

    '''删除相同内容的单元格部分
    ''
    nnn = MaxUsedRowInCol("A")  '' sheet.UsedRange.Columns("A:A").Cells.count
    '''''''''''''''''''''''''''''''''''''''
    '删除 n行空白行
    '
    For i = nnn To 2 Step -1
        If Cells(i, 1) <> "" And Cells(i - 1, 1) <> "" Then
            If Cells(i, 1) = Cells(i - 1, 1) Or Cells(i, 2) = Cells(i - 1, 2) Then
                Range("A" & Trim(str(i)) & ":C" & Trim(str(i))).Select
                Selection.Delete Shift:=xlUp
            Else
            End If
        Else
        End If
    Next

    ActiveWindow.ScrollRow = 1 '''将指定的工作表滚动到顶部

End Sub

'
'FromLang和ToLang参数必须是下表中的代码:
'
' CODE Language
' en English
' fr French
' es Spanish
' it Italian
' de German
' af Afrikaans
' sq Albanian
' am Amharic
' ar Arabic
' hy Armenian
' az Azerbaijani
' eu Basque
' be Belarusian
' bn Bengali
' bs Bosnian
' bg Bulgarian
' ca Catalan
' ceb Cebuano
' ny Chichewa
' zh-CN  Chinese (Simplified)
' zh-TW  Chinese (Traditional)
' co Corsican
' hr Croatian
' cs Czech
' da Danish
' nl Dutch
' eo Esperanto
' et Estonian
' tl Filipino
' fi Finnish
' fy Frisian
' gl Galician
' ka Georgian
' el Greek
' gu Gujarati
' ht     Haitian Creole
' ha Hausa
' haw Hawaiian
' iw Hebrew
' hi Hindi
' hmn Hmong
' hu Hungarian
' is     Icelandic
' ig Igbo
' ID Indonesian
' ga Irish
' ja Japanese
' jw Javanese
' kn Kannada
' kk Kazakh
' km Khmer
' rw Kinyarwanda
' ko Korean
' ku Kurdish(Kurmanji)
' ky Kyrgyz
' lo Lao
' la Latin
' lv Latvian
' lt Lithuanian
' lb Luxembourgish
' mk Macedonian
' mg Malagasy
' ms Malay
' ml Malayalam
' mt Maltese
' mi Maori
' mr Marathi
' mn Mongolian
' my Myanmar(Burmese)
' ne Nepali
' no Norwegian
' or     Odia (Oriya)
' ps Pashto
' fa Persian
' pl Polish
' pt Portuguese
' pa Punjabi
' ro Romanian
' ru Russian
' sm Samoan
' gd     Scots Gaelic
' sr Serbian
' st Sesotho
' sn Shona
' sd Sindhi
' si Sinhala
' sk Slovak
' sl Slovenian
' so Somali
' su Sundanese
' sw Swahili
' sv Swedish
' tg Tajik
' ta Tamil
' tt Tatar
' te Telugu
' th Thai
' tr Turkish
' tk Turkmen
' uk Ukrainian
' ur Urdu
' ug Uyghur
' uz Uzbek
' vi Vietnamese
' cy Welsh
' xh Xhosa
' yi Yiddish
' yo Yoruba
' zu Zulu

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''                                                                                        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''                                                                                        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''                                                                                        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function ReadFileText(ByVal FilePath As String) As String

    Dim fs, f, ts, s, t1, t2, Ii, SText
    Dim AD As Object: Set AD = CreateObject("ADODB.Stream")
    AD.Charset = "utf-8"
    AD.Open
    AD.LoadFromFile FilePath
    ReadFileText = AD.readText
    AD.Close

    SText = ReadFileText

                                            t1 = "日本語"
                                        Ii = InStr(SText, t1)
                                            t1 = "日本語"

    t1 = "index.html" & """class=""text-gray-700 bloc" ' <a href="de/index.html" class="text-gray-700 bloc
    t2 = FILE_NAME_1 & """class=""text-gray-700 bloc"

                                        Ii = InStr(SText, t1)
    SText = Replace(SText, t1, t2)
    ReadFileText = SText

End Function

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''                                                                                        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''                                                                                        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''                                                                                        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function WriteFileText(ByVal text As String, ByVal TempTextFile As String)

    Dim AD As Object: Set AD = CreateObject("ADODB.Stream")
    AD.Charset = "utf-8"
    AD.Type = 2
    AD.Open
    AD.WriteText text
    AD.SaveToFile (TempTextFile), 2
    AD.Close

End Function

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''                                                                                        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''                                                                                        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''                                                                                        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function UseFileDialogOpen() As String

    Dim lngCount As Long
    Dim KKK As String

    ' 打开文件对话框

'    With Application.FileDialog(msoFileDialogFilePicker)
    With Application.FileDialog(msoFileDialogOpen)

'        .Title = "Select A File"                        '选择窗口的标题
        .AllowMultiSelect = False 'true---允许多选
'        .Filters.Clear                                  '清除现有规则
'        .Filters.Add "EXCEL File", "*.xlsx; *.xls", 1   '增加规则到第一位
'        .InitialFileName = "E:\DG-1115\Pavo___Free Tailwind\index.html" '初次打开窗口的路径以及默认名称

        .Show

        ' 每个文件路径名

        For lngCount = 1 To .SelectedItems.count

'            MsgBox .SelectedItems(lngCount)
            KKK = .SelectedItems(lngCount) '''c:\text.txt
            FILE_NAME_1 = Right(KKK, Len(KKK) - InStrRev(KKK, "\"))
            FILE_PATH_1 = Left(KKK, InStrRev(KKK, "\") - 1)

        Next lngCount

    End With

    UseFileDialogOpen = KKK

End Function

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''  查找A列的最大使用行数   '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'要查找A列的最大使用行数，可以直接调用此函数：

'【用法】
'Dim lastRow As Long
'lastRow = MaxUsedRowInCol("A")
'
Function MaxUsedRowInCol(columnLetter As String) As Long
    MaxUsedRowInCol = Cells(65536, columnLetter).End(xlUp).Row
''''
''''    Dim ws As Worksheet
''''    Set ws = ActiveSheet ' 如果需要指定特定工作表，可以改为：Set ws = ThisWorkbook.Sheets("Sheet1")
''''
''''    MaxUsedRowInCol = ws.Cells(ws.Rows.count, columnLetter).End(xlUp).Row
End Function

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''  加水印  内容     '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub 加水印__AddWatermarkForExcel2003(ByVal language As String)
'
    ' 使用InStrRev找到最后一个 "_" 的位置
    Dim underscorePosition As Long
    Dim ExtractAfterLastUnderscore  As String
    underscorePosition = InStrRev(language, "_")
    ' 如果找到了 "_"，则提取它之后的内容；否则返回原字符串
    If underscorePosition > 0 Then
        ExtractAfterLastUnderscore = Mid(language, underscorePosition + 1)
    Else
        ExtractAfterLastUnderscore = language
    End If
'
    ActiveSheet.Shapes("WordArt 72").Select
'    Selection.ShapeRange.IncrementTop -23.25
    Selection.ShapeRange.IncrementLeft 3.75
    Selection.ShapeRange.Top = 180 ''IncrementTop 180.1
    Selection.ShapeRange.TextEffect.text = ExtractAfterLastUnderscore
'    Range("D30").Select

End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''                                                                                        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''                                                                                        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''                                                                                        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function EfficientlyCheckPercentInColumnJ() As String ''判断 J 列 的有效单元格中是否包含 % 字符
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim dataArr() As Variant
    Dim resultArr() As String
    Dim i As Long
    Dim resultRow As Long
    ' 设置目标工作表为当前活动工作表
    Set ws = ThisWorkbook.Sheets("解析网页，提炼词组，翻译词组，写入文件")   'ActiveSheet
    ' 获取 K 列的最后一行
    lastRow = ws.Cells(ws.Rows.count, "J").End(xlUp).Row
    ' 读取 K 列的数据到数组
'    dataArr = ws.Range("K1:K" & lastRow).Value
    ' 初始化结果数组，假设最多与数据行数相同
    ReDim resultArr(1 To lastRow)
    EfficientlyCheckPercentInColumnJ = ""
    ' 遍历数组，检查是否包含 %
    For i = 1 To lastRow
        If Trim(CStr(ws.Cells(i, "J").Value)) <> "" Then
            ' 使用 InStr 检查是否包含 %
            If InStr(1, ws.Cells(i, "J").Value, "%", vbTextCompare) > 0 Then
                EfficientlyCheckPercentInColumnJ = "包含%"
                Exit For
            Else
            End If
        Else
        End If
    Next i
End Function