EXCEL选择题把对应的答案输入到题目的（）里

longayng1234

         A1                                                   B1                   C1                D1              E1       F1
大叶性肺炎的病原体主要是（） A.金黄色葡萄球菌 B.大肠杆菌 C.肺炎链球菌 D.不知道    C

413191246se

楼主，请将详细题目呈现出来，现在似乎不太明朗。至少举例 2-3 道试题。

longayng1234

413191246se 发表于 2019-9-26 20:10
楼主，请将详细题目呈现出来，现在似乎不太明朗。至少举例 2-3 道试题。

序号        题目        A        B        C        D        答案
1        2019年7月9日，（）印发《健康中国行动（2019—2030年）        国务院        健康中国行动推进委员会        教育部        发改委        B
2        2019年7月15日，()印发《国务院关于实施健康中国行动的意见》。        国务院        体育总局        教育部        发改委        A
3        2019年7月15日，()印发《健康中国行动组织实施和考核方案》。        国务院        国务院办公厅        卫计委        体育总局        B
4        1995年，（）颁布实施《全民健身计划纲要》        国务院        体育总局        教育部        发改委        B
5        2007年，（）下发《关于加强青少年体育增强青少年体质的意见》        国务院        体育总局        教育部        发改委        A
6        我国全民健身日为（）        8月8日        8月7日        9月8日        9月9日        A

longayng1234

413191246se 发表于 2019-9-26 20:10
楼主，请将详细题目呈现出来，现在似乎不太明朗。至少举例 2-3 道试题。

1        2019年7月9日，（）印发《健康中国行动（2019—2030年）        A.国务院        b.健康中国行动推进委员会        C.教育部        D.发改委        B
2        2019年7月15日，()印发《国务院关于实施健康中国行动的意见》。        A.国务院        b.体育总局        C.教育部        D.发改委        A
3        2019年7月15日，()印发《健康中国行动组织实施和考核方案》。        A.国务院        b.国务院办公厅        C.卫计委        D.体育总局        B
4        1995年，（）颁布实施《全民健身计划纲要》        A.国务院        b.体育总局        C.教育部        D.发改委        B

longayng1234

413191246se 发表于 2019-9-26 20:10
楼主，请将详细题目呈现出来，现在似乎不太明朗。至少举例 2-3 道试题。

题目                                                                                                                                                                                                          答案
2019年7月9日，（）印发《健康中国行动（2019—2030年）                        A.国务院        b.健康中国行动推进委员会        C.教育部        D.发改委        B
2019年7月15日，()印发《国务院关于实施健康中国行动的意见》。        A.国务院        b.体育总局        C.教育部        D.发改委                                A
2019年7月15日，()印发《健康中国行动组织实施和考核方案》。                A.国务院        b.国务院办公厅        C.卫计委        D.体育总局                B

413191246se

* 谢谢 楼主 提供 3 次答案，请将 Excel 内容复制到 Word 中运行下面的宏（然后再复制回 Excel）：

1. Sub test()
   
2.     Dim m&, n&, h&, s$
   
3.     With ActiveDocument.Content.Find
   
4.         .ClearFormatting
   
5.         .Text = "[(（][）)]"
   
6.         .Forward = True
   
7.         .MatchWildcards = True
   
8.         Do While .Execute
   
9.             With .Parent
   
10.                 .Bold = True
    
11.                 .Font.Color = wdColorRed '红色（此行代码可删除）
    
12.                 m = .Information(wdEndOfRangeRowNumber)
    
13.                 n = .Information(wdEndOfRangeColumnNumber)
    
14.                 s = ActiveDocument.Tables(1).Cell(m, 7).Range.Text
    
15.                 s = Left(s, Len(s) - 2)
    
16.                 .Text = "（" & s & "）"
    
17.                 .Start = .End
    
18.             End With
    
19.         Loop
    
20.     End With
    
21. End Sub

复制代码

***效果图片：

longayng1234

413191246se 发表于 2019-9-27 21:42
* 谢谢 楼主 提供 3 次答案，请将 Excel 内容复制到 Word 中运行下面的宏（然后再复制回 Excel）：

*** ...

宏 是一个个的  不是批量修改的吗

413191246se

有时得一个一个地处理，不能批量。