图片题与非图片题

常扬帆

我想在几千道题中，把图片题与非图片题分开，望您赐绝招，谢谢！

thunor

在图片题与非图片题.doc中查找图片，将选中的图片保存在新位置（比如D:\myImage），删除该张图片，插入该张图片保存位置的文字内容；全部完成后保存文件，同时再另存文件为：图片题与非图片题i.doc；。
对文件图片题与非图片题.doc进行查找操作，如：“(^13)([0-9]{1,2}[、])(*)([答案：][A-D])“，如果查找的文本中包含中D:\myImage字样，则删除该段文字。全部完成后文件包含的内容就是非图片题了。对另一个文件进行反向操作就行。

常扬帆

thunor 发表于 2022-2-3 08:44
在图片题与非图片题.doc中查找图片，将选中的图片保存在新位置（比如D:\myImage），删除该张图片，插入该张 ...

你好，我卡在了这里：“插入该张图片保存位置的文字内容”，麻烦您继续指教，谢谢您！

zhanglei1371

C盘新建一个“文档1.docx”，打开，然后在题目文档里运行代码：

1. Sub fdf()
   
2. Selection.HomeKey 6
   
3. With Selection.Find
   
4.     .Text = "[0-9]@、*答案：[A-E]@^13"
   
5.     .MatchWildcards = -1
   
6.     Do While .Execute
   
7.         If Selection.Range.ShapeRange.Count = 0 Then
   
8.             strA = Selection
   
9.             Documents("文档1").Range.InsertAfter strA
   
10.             'Selection.Delete '
    
11.             Selection.Font.ColorIndex = wdWhite '变白色
    
12.         End If
    
13.     Loop
    
14. End With
    
15. End Sub

复制代码

因为图片时浮动型的，直接删除会导致错位。
暂时将无图片题目提取到文档1，主文档设置为白色隐藏掉。

常扬帆

zhanglei1371 发表于 2022-2-14 10:09
C盘新建一个“文档1.docx”，打开，然后在题目文档里运行代码：

谢谢您！我怎么运行代码错误呢？望您赐教，衷心感谢！