如何在一個字符串/多行文字中開始一個新行

Question

我想要在Leadertext下的文本顯示在不同的行上。你如何在VBA中顯示新行？所以它出來作爲

CB（使用率）

ËINV（使用率）

'Leader Text 
    StartPoint(0) = points(6): StartPoint(1) = points(7): StartPoint(2) = points(8) 
    LeaderTextWidth = 1 
    LeaderText = ("CB " & Util & " E INV " & Util) 
    Set LeaderAnnotation = ACAD.ActiveDocument.ModelSpace.AddMText(StartPoint, LeaderTextWidth, LeaderText) 

Answer 1

的幾種方法。標準庫模塊VBA.Constants是你的朋友。 MSDN描述了他們所有。

---

vbNewLine代表代碼運行的平臺上新行：

LeaderText = ("CB " & Util & vbNewLine & " E INV " & Util) 

這通常是您理想的解決方案。然而，有時候你的代碼可能會從Windows和Mac機器上以字符串形式向系統發送Unix樣式的新行，所以你需要更加小心或具體。這就是爲什麼存在其他常數。

vbCrLf使得與ASCII字符10和13一個Windows新行：

LeaderText = ("CB " & Util & vbCrLf & " E INV " & Util) 

vbLf是ASCII 10，一個換行符：vbLf相當於Chr(10)。

VBCR是ASCII 13，回車：vbCr相當於Chr(13)。

因此，這也產生完全相同的輸出（假設Windows）中：

LeaderText = ("CB " & Util & vbCr & vbLf & " E INV " & Util) 

或者

LeaderText = ("CB " & Util & Chr(10) & Chr(13) & " E INV " & Util)