Question

我目前正在制作一些利用QR码的设备标签。设计标签的方式要求我使用＆＃34;在文本前面＆＃34;格式化QR码图像。选项。我已经为所有其他步骤创建了简单的宏，但是Word不允许我创建一个选择Wrap Text格式的宏，然后选择In Text of Text。

我可以使用哪种方法或代码，允许我选择每个QR码并使用In Front of Text格式进行格式化？

Answer 1

为了将Word Shape对象的文本换行设置为＆＃34;在文本前面＃34;使用WrapFormat.Type属性，设置Type ot wdWrapFormatFront。

示例代码：

Dim shp As word.Shape
'' Works on the currently selected Shape
Set shp = Selection.ShapeRange(1)
'' If you know which Shape, by index or by Name, then
' Set shp = ActiveDocument.Shapes(indexOrName)
'' If the object is currently an InlineShape it must first 
'' be converted to a Shape
' Set shp = InlineShapeObject.ConvertToShape 
shp.WrapFormat.Type = wdWrapFront

创建可以格式化所选图像的Word宏＆＃34;在文本前面＃34;

1 个答案: