文本框里的styleref域如何转文本？

batmanbbs

1478525 发表于 2024-7-15 21:17
冬瓜大佬 我运行了为什么没有反应

应该是你使用的形状和示例（示例是圆角矩形，不是文本框）不同造成的，建议提供正式文档

zhanglei1371

Sub 方法一()
Dim sha As Shape, fd As Field
    For Each sha In ActiveDocument.Shapes
        sha.TextFrame.TextRange.Fields.Unlink
    Next
End Sub

Sub 方法二()
Dim sha As Shape, fd As Field
    For Each sha In ActiveDocument.Shapes
        For Each fd In sha.TextFrame.TextRange.Fields
            If InStr(LCase(fd.Code), "styleref") Then
                fd.Unlink
            End If
        Next
    Next
End Sub

1478525

batmanbbs 发表于 2024-7-15 22:04
应该是你使用的形状和示例（示例是圆角矩形，不是文本框）不同造成的，建议提供正式文档

谢谢提醒，是我这边的文件有问题 试过了，在形状里确实起作用，下次注意

1478525

zhanglei1371 发表于 2024-7-16 08:54
Sub 方法一()
Dim sha As Shape, fd As Field
    For Each sha In ActiveDocument.Shapes

方法没有问题，可以运行，谢谢张佬

1478525

zhanglei1371 发表于 2024-7-16 08:54
Sub 方法一()
Dim sha As Shape, fd As Field
    For Each sha In ActiveDocument.Shapes

谢谢 太厉害了

batmanbbs

1478525 发表于 2024-7-16 16:44
谢谢 太厉害了

有些形状没有文本，建议添加一个判断，确保不会出错

1478525

batmanbbs 发表于 2024-7-16 21:21
有些形状没有文本，建议添加一个判断，确保不会出错

好的 谢谢提醒