使用 VBA 创建字段时出现额外空格：{ EQ... } 而不是 {EQ...}
我使用vba在单词中创建一个重叠的字符：
a = "x"
b = "."
Selection.Fields.Add Range:=Selection.Range, Text:= _
"EQ \o (" & a & "," & b & ")", PreserveFormatting:=False
输出是
{ EQ \o (x,.) }
产生：。正如灰色盒子可以看出的那样，角色是宽阔的。 The width can be reduced to http://img838.imageshack.us/img838/1723/ 69344761.png 通过手动更改字段，
{ EQ \o (x,.)} or {EQ \o (x,.)}
但是如何直接在VBA中实现？
如果你对这篇内容有疑问，欢迎到本站社区发帖提问 参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。
绑定邮箱获取回复消息
由于您还没有绑定你的真实邮箱，如果其他用户或者作者回复了您的评论，将不能在第一时间通知您！
发布评论
评论（2）
我的假设是您需要删除最终衍生品和卷曲括号之间的尾随空间。
dim x as string
dim y as string
x =“ {eq \ o（x，。）}“
y =替换（x，”}“}”，“}”）
'也可以放置”）}“替换为”）}
y成为我认为您想要的输出，
您可以使用上面显示的替换函数来完成此任务。
您的代码将成为
My assumption is you need to remove the trailing space between the final paranthesis and curly bracket.
Dim x As String
Dim y As String
x = "{ EQ \o (x,.) }"
y = Replace(x, " }", "}") 'Note the space for the find expression e.g. ' }'
'Could also put ") }" replace with ")}"
y becomes the output I think you desire
You can just use the replace function shown above to accomplish this task.
Your code would become
此代码为字段 EQ 分配正确的值
This code assign correct value to field EQ