Question

对于任何VBA专家来说，这都很容易，对于新手问题，我们深表歉意！我有一个代码可以将文本压缩到文本框中。目前，代码压缩了文本框中的所有文本，但我希望代码仅适用于选定的文本。如何修改此代码以使其正常工作？

非常感谢！ PJ

Sub CondenseText（）

On Error GoTo Catch


Dim o As Shape, b As Boolean
Set o = ActiveWindow.Selection.ShapeRange(1)
If Not o Is Nothing Then
    With o
        .TextFrame2.TextRange.Font.Spacing = .TextFrame2.TextRange.Font.Spacing - 0.1
    End With
End If
Exit Sub

抓住：如果Err.Number = -2147188160，则MsgBox CG_NOTHING_SELECTED 结束

Answer 1

            "styles": [
              "node_modules/bootstrap/dist/css/bootstrap.min.css"
            ],
            "scripts": [
              "node_modules/jquery/dist/jquery.min.js",
              "node_modules/bootstrap/dist/js/bootstrap.min.js"
            ]

将样式应用于未选中的文本框

1 个答案: