excel里复制到word的回车符求统一替换

杜创

经常用“通配符”替换操作但从EXCEL复制到WORD里的表里的“回车符”，通配符不识别在图标上也不一样，word中是file:///C:/Users/%E9%95%BF%E4%BA%AE/AppData/Local/Temp/msohtmlclip1/01/clip_image001.png这样；excel里复制过来是file:///C:/Users/%E9%95%BF%E4%BA%AE/AppData/Local/Temp/msohtmlclip1/01/clip_image002.png这样，上边多拐了个弯，word原来的符号用“^p”就能统一替换了，但excel里复制过来的怎么都不识别。有没有大神能帮解决下，看看怎么才能统一替换

jyjjf

杜创 发表于 2024-5-15 08:57
能否把宏代码发过来我试用下
附件里只有测试结果，看不到宏代码

奇怪，居然没代码。

Sub 插入前字符串()
    Dim tbl As Table
    Dim cell As cell
    Dim para As Paragraph

    ' 遍历活动文档中的所有表格
    For Each tbl In ActiveDocument.Tables
        ' 遍历表格中的每个单元格
        For Each cell In tbl.Range.Cells
            ' 遍历单元格中的每个段落
            For Each para In cell.Range.Paragraphs
                ' 在段落标记前插入指定字符串
                para.Range.InsertBefore "前字符串 - "
            Next para
        Next cell
    Next tbl
End Sub


Sub 插入后字符串()
    Dim tbl As Table
    Dim cell As cell
    Dim para As Paragraph
    Dim newText As String

    ' 设置新字符串
    newText = " - 后字符串"

    ' 遍历活动文档中的所有表格
    For Each tbl In ActiveDocument.Tables
        ' 遍历表格中的每个单元格
        For Each cell In tbl.Range.Cells
            ' 遍历单元格中的每个段落
            For Each para In cell.Range.Paragraphs
                ' 检查段落标记前是否为空内容
                If para.Range.Characters(1).Text = "" Then
                    ' 如果为空内容，直接在段落标记前插入新字符串
                    para.Range.InsertBefore newText
                Else
                    ' 如果不为空内容，在有内容的最后插入新字符串
                    para.Range.Characters(para.Range.Characters.Count).InsertAfter newText
                End If
            Next para
        Next cell
    Next tbl
End Sub

MQ19781011

弄个截图上来看看，最好是小视频

laoda1228

在Excel里  打开替换功能      查找输入:   1  0  （按住alt 按小键盘的数字1，数字0，可能什么都不显示）    替换位置什么都不输入， 然后  点 全部替换

byh3025

带拐弯的是硬回车^p，不带拐弯的是软回车^l

杜创

byh3025 发表于 2024-5-13 08:26
带拐弯的是硬回车^p，不带拐弯的是软回车^l

这2种试了都不行，那个回车符拐了3个弯

黄金左岸

你的截图看不到，需再发一遍截图看看

杜创

黄金左岸 发表于 2024-5-13 08:36
你的截图看不到，需再发一遍截图看看

还不会发截图
截图不重要，随便找个excel复制到WORD里就行，用^p通配符或什么别的替换，都不行，word里自己按的回车就能替换

黄金左岸

杜创 发表于 2024-5-13 09:36
还不会发截图
截图不重要，随便找个excel复制到WORD里就行，用^p通配符或什么别的替换，都不行 ...

类似于鼠标手势“↓”就用^l替换
类似于鼠标手势“下左”就用^p替换。
刚试了一下，没有其他的了好像

byh3025

杜创 发表于 2024-5-13 08:28
这2种试了都不行，那个回车符拐了3个弯

我一般都先复制到文本文档里