如何从一列表格里提取多个书名号及里面的内容，提取后表格的形状不变

wuwenbin32415

如何从表格里提取多个书名号及里面的内容，提取后表格的形状不变，即还是有3个单元格？

我的方法是先查找《*》，会找到书名号和里面的内容，将这些内容的字号或字体改为源数据里没有的（比如将5号字改为6号字），再将源数据里的字号（5号字）或字体，替换为空。
有没有一次性的替换方法？我的想法是既然查找《*》可以找到书名号和里面的内容，那么用[!《*》]就可以查找到书名号外面的内容，将它们删掉。但是结果让我很失望，这样查找到的不仅有书名号外面的内容，还有书名号里面的内容，如果用这种查找替换的话，会只留下书名号，显然不符合要求。
请问大师，该用什么查找替换，能一次性搞定？

云南邦盈顾问

一般的思路是用正则表达式提取书名号及里边的内容，再写入原来的单元格中。

wuwenbin32415

你这讲的跟没讲一样

守候_CJ

这是一个非常典型的Word通配符替换的问题

一、参数

查找：(《)[!^13]@(》)
替换：\1\2
勾选【使用通配符】

二、操作步骤
1.选择需要进行替换的表格

2.在替换对话框输入上述参数

3.点击全部替换并在弹出对话框选择【否】

注意：如果选择【是】会对所选内容之外的部分也进行替换

4.完成

三、更多Word通配符问题

欢迎参考：

ZH专栏：Word通配符替换ZH专栏：Word通配符替换

zldccmx

wuwenbin32415

谢谢守候_CJ，你可能没有理解我的意思，我是要留下书名号及里面的内容，不是要删掉书名号里面的内容，效果像下面的这样：
《挪威的森林》《我们仨》《瓦尔登湖》
《百年孤独》《废都》
《再回首》《故乡的云》《却上心头》

zldccmx

zldccmx

1. Sub ZLDCCMX()
   
2.     Dim Tb As Table, C As Cell, T$, M
   
3.     Set Tb = ActiveDocument.Tables(1)
   
4.     With CreateObject("VBScript.Regexp")
   
5.         .Global = True
   
6.         .Pattern = "《(.+?)》"
   
7.         For Each C In Tb.Range.Cells
   
8.             Set matches = .Execute(C.Range.Text)
   
9.             T = ""
   
10.             For Each M In matches
    
11.                 T = T & M.Value
    
12.             Next
    
13.             C.Range.Text = T
    
14.         Next
    
15.     End With
    
16. End Sub
    

复制代码

wuwenbin32415

谢谢zldccmx，玩不来vba，有没有基础操作的方法？谢谢

守候_CJ

wuwenbin32415 发表于 2023-2-22 16:04
谢谢守候_CJ，你可能没有理解我的意思，我是要留下书名号及里面的内容，不是要删掉书名号里面的内容，效果 ...

那也简单，稍微修改下参数即可：

查找：[!^13《》]{1,}(《[!^13]@》)[!^13《》]{1,}
替换：\1
勾选【使用通配符】