vbscript 单词get_title11

Posted 2021-05-21

Sub get_title11()
    i1 = Selection.Range.Cells(1).RowIndex
    j1 = Selection.Range.Cells(1).ColumnIndex
    n1 = get_form_number
    col_j = 3
    Dim mTab As Word.Table
    Set mTab = ActiveDocument.Tables(n1)
    bk1 = Replace(mTab.Cell(i1, col_j).Range.Text, Chr$(13) & Chr$(7), "")
    bk1 = Replace(bk1, "$", "")
    Selection.GoTo What:=wdGoToBookmark, Name:=bk1
    For i = 1 To 10000
        Selection.MoveUp unit:=wdParagraph
        If judge_pa Then
            If Left(Selection.Paragraphs(1).Range.Text, 5) = "-----" Then
                Selection.MoveDown unit:=wdParagraph
                mTab.Cell(i1, col_j + 1).Range.Text = Split(Selection.Paragraphs(1).Range.Text, Chr(13))(0)
                Exit For
            End If
        End If
    Next
    mTab.Cell(i1 + 1, col_j + 1).Select
    Selection.MoveLeft unit:=wdCharacter
End Sub
Function get_form_number()
    a = Selection.Tables(1).Range.Start
    For i = 1 To ActiveDocument.Tables.Count
        If a = ActiveDocument.Tables(i).Range.Start Then
            get_form_number = i
            Exit For
        End If
    Next
End Function