如何用vba代码在word文档中输入以下附件中的所有内容

zzpsx

如何用vba代码在word文档中输入以下附件中的所有内容
九年级首字母填空100题打印稿答题卡.zip (9.16 KB, 下载次数: 5)

2024-10-7 15:37 上传

点击文件名下载附件

我把附件上传到kimi和讯飞星火上，让他们根据附件写代码，试验了一下，不行。

zzpsx

我只能写到这一步
Sub 答题卡()
'
' 答题卡 宏
'
'
    Selection.TypeText text:= _
        "班级__________学号__________姓名__________得分__________"
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeText text:="答题卡"
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=25, NumColumns _
        :=8, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
    With Selection.Tables(1)
        If .Style <> "网格型" Then
            .Style = "网格型"
        End If
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = False
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = False
        .ApplyStyleRowBands = True
        .ApplyStyleColumnBands = False
    End With
End Sub

zzpsx

Sub FillTableWithNumbersAndHeader()
    ' 在当前光标位置添加一行文字作为表头
    Selection.TypeText text:="班级__________学号__________姓名__________得分__________" & vbCrLf这些文字如何居中
    Selection.TypeText text:="" & vbCrLf
    Selection.TypeText text:="答题卡" & vbCrLf
    Selection.TypeText text:="" & vbCrLf
    ' 创建一个新的表格
    Dim tbl As table
    Dim i As Integer
   
    ' 在当前光标位置添加一个8列25行的表格
    Set tbl = ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=25, NumColumns:=8)
   
    ' 设置表格边框为黑色
    With tbl.Borders
        .OutsideColor = wdColorBlack
        .InsideColor = wdColorBlack
        .OutsideLineStyle = wdLineStyleSingle
        .InsideLineStyle = wdLineStyleSingle
    End With

    ' 第一列填入1-25
    For i = 1 To 25
        tbl.cell(i, 1).Range.text = CStr(i)
    Next i
   
    ' 第三列填入26-50
    For i = 1 To 25
        tbl.cell(i, 3).Range.text = CStr(i + 25)
    Next i
   
    ' 第五列填入51-75
    For i = 1 To 25
        tbl.cell(i, 5).Range.text = CStr(i + 50)
    Next i
   
    ' 第七列填入76-100
    For i = 1 To 25
        tbl.cell(i, 7).Range.text = CStr(i + 75)
    Next i
End Sub

q8254733

九年级首字母填空100题打印稿答题卡.zip (29.64 KB, 下载次数: 2)

2024-10-8 14:31 上传

点击文件名下载附件

1. Sub InsertTableAndFillSequence()
   
2.     Dim doc As Document
   
3.     Dim tbl As Table
   
4.     Dim i As Integer, j As Integer
   
5.     Dim seq As Integer
   
6.    
   
7.     Selection.TypeText Text:="学号_______姓名__________得分__________"
   
8.     Selection.HomeKey Unit:=wdLine
   
9.     Selection.EndKey Unit:=wdLine, Extend:=wdExtend
   
10.     Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    
11.     Selection.Font.Name = "Microsoft YaHei Light"
    
12.     Selection.Font.Size = 13
    
13.     Selection.MoveRight Unit:=wdCharacter, Count:=1
    
14.     Selection.TypeParagraph
    
15. 
    
16.     Selection.TypeText Text:="答题卡"
    
17.     Selection.HomeKey Unit:=wdLine
    
18.     Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    
19.     Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    
20.     Selection.Font.Name = "Microsoft YaHei Light"
    
21.     Selection.Font.Size = 12
    
22.     Selection.MoveRight Unit:=wdCharacter, Count:=1
    
23.     Selection.TypeParagraph
    
24.         
    
25.     seq = 1
    
26.     Set doc = ActiveDocument
    
27.     Set tbl = doc.Tables.Add(Range:=Selection.Range, NumRows:=25, NumColumns:=8)
    
28.     tbl.Select
    
29.     Selection.Font.Size = 9
    
30.     For a = 1 To 4
    
31.         For i = 1 To 25
    
32.             tbl.Cell(i, a * 2 - 1).Range.Text = seq & "."
    
33.             seq = seq + 1
    
34.         Next i
    
35.     Next a
    
36.     Selection.Tables(1).Style = "网格型"
    
37.    
    
38. End Sub
    

复制代码

zzpsx

写到这一步了
Sub FillTableWithNumbersAndHeader()
    ' 在当前光标位置添加一行文字作为表头
    Selection.TypeText text:="班级__________学号__________姓名__________得分__________" & vbCrLf
    Selection.TypeText text:="答题卡" & vbCrLf
    ' 创建一个新的表格
    Dim tbl As table
    Dim i As Integer
   
    ' 在当前光标位置添加一个8列25行的表格
    Set tbl = ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=25, NumColumns:=8)
   
    ' 设置表格边框为黑色
    With tbl.Borders
        .OutsideColor = wdColorBlack
        .InsideColor = wdColorBlack
        .OutsideLineStyle = wdLineStyleSingle
        .InsideLineStyle = wdLineStyleSingle
    End With

    ' 第一列填入1-25
    For i = 1 To 25
        tbl.cell(i, 1).Range.text = CStr(i)
    Next i
   
    ' 第三列填入26-50
    For i = 1 To 25
        tbl.cell(i, 3).Range.text = CStr(i + 25)
    Next i
   
    ' 第五列填入51-75
    For i = 1 To 25
        tbl.cell(i, 5).Range.text = CStr(i + 50)
    Next i
   
    ' 第七列填入76-100
    For i = 1 To 25
        tbl.cell(i, 7).Range.text = CStr(i + 75)
    Next i
End Sub