表格中的分数、根号如何转换

文人慕

整理文档发现有些数学的根号和分数是用表格形式出现的，在处理的时候特别不方便，想批量做出修改，大概的修改需求如下：

1．数学根号修改为\sqrt{\1}格式，例如

√

3

修改为\sqrt{3}

2．数学分数修改为\frac{\1}{\2}格式，例如

4

9

修改为\frac{4}{9}

修改的内容比较多，最好能够批量处理。看到这个文档的选择题、分数、根号都是用的表格格式的，想改成正常的文本内容，修改的时候，上下角标最好不要跟着修改，谢谢了。

参考文本从第2页开始。

过客fppt

感觉你这个好复杂，如果是要组卷的话，建议用学科网进行组卷，可以从源头解决这个问题

文人慕

有没有大佬帮一下忙？

batmanbbs

好牛的试卷，用嵌套表格做出来公式很厉害啊， 不过很辛苦啊

蜀中草莽

batmanbbs 发表于 2023-10-17 17:06
好牛的试卷，用嵌套表格做出来公式很厉害啊， 不过很辛苦啊

一看就是PDF转的，感觉这个整起来有些复杂

batmanbbs

代码仅限提供的样本
PS：SORRY，因为每一种情况都不一样，所以你如有新的需求，恕不能再给你修改了，自己修改吧。

文人慕

batmanbbs 发表于 2023-10-17 21:34
代码仅限提供的样本
PS：SORRY，因为每一种情况都不一样，所以你如有新的需求，恕不能再给你修改了，自己 ...

能否分享代码  这种图片形式的不方便复制

batmanbbs

1. Private Sub 转换开根和分数(ByVal myTables As Tables)
   
2. '
   
3. ' 转换开根和分数
   
4. '
   
5.     Dim myTB As Table
   
6.     Dim Text$
   
7.     For Each myTB In myTables
   
8.         With myTB
   
9.             If .Tables.Count > 0 Then Call 转换开根和分数(.Tables)
   
10.             If .Rows.Count = 2 And .Columns.Count = 1 Then
    
11.                 With .Range
    
12.                     Text = "\frac{" & Replace(Replace(.Cells(1).Range, Chr(13), ""), Chr(7), "") & "}{" & _
    
13.                            Replace(Replace(.Cells(2).Range, Chr(13), ""), Chr(7), "") & "}"
    
14.                     .Cells.Merge: .Text = Text
    
15.                 End With
    
16.                 .ConvertToText
    
17.             ElseIf Left(.Range.Cells(1).Range, 1) = "√" And .Rows.Count = 1 And .Columns.Count = 2 Then
    
18.                 With .Range
    
19.                     Text = "\sqrt{" & Replace(Replace(.Cells(2).Range, Chr(13), ""), Chr(7), "") & "}"
    
20.                     .Cells.Merge: .Text = Text
    
21.                 End With
    
22.                 .ConvertToText
    
23.             End If
    
24.         End With
    
25.     Next myTB
    
26.     Set myTB = Nothing
    
27. End Sub
    
28. 
    
29. Sub 使用示例()
    
30.     Call 转换开根和分数(ActiveDocument.Tables)
    
31. End Sub

复制代码

batmanbbs

文人慕 发表于 2023-10-18 18:03
能否分享代码  这种图片形式的不方便复制

需要耐心等待审核