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

batmanbbs · 发表于 2024-7-15 22:04

本帖最后由 batmanbbs 于 2024-7-15 22:06 编辑

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

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

zhanglei1371 · 发表于 2024-7-16 08:54

本帖最后由 zhanglei1371 于 2024-7-16 09:21 编辑

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 · 发表于 2024-7-16 16:29

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

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

1478525 · 发表于 2024-7-16 16:30

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

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

1478525 · 发表于 2024-7-16 16:44

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

谢谢太厉害了

batmanbbs · 发表于 2024-7-16 21:21

本帖最后由 batmanbbs 于 2024-7-16 21:23 编辑

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

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

1478525 · 发表于 2024-7-17 22:57

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

好的谢谢提醒

		自动登录	找回密码
密码			免费注册

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

评分