AutoCAD VBA简单文字操作，包括几个简单的文字操作函数，代码如下。 Public Function AddText(ByVal text As String, ByVal ptinsert As Variant, ByVal height As Double) As AcadText Set AddText = Thi...
'插入表格
Sub setTable()
Set myRange = ActiveDocument.Range(Start:=2, End:=2)
ActiveDocument.Tables.Add Range:=myRange, NumRows:=3, NumColumns:=4
End Sub
'取得Word常规字符串
S...
AutoCAD VBA文字自动对齐，代码如下。 Public Type TextWithPnt Index As Long TextObj As AcadText PntIntX As Double PntIntY As Double PntLeftX As Double PntMidX As Double ...
AutoCAD VBA，提取多行文字内容，代码如下。 Public Function GetMTextUnformatString(MTextString As String) As String Dim s As String Dim RE As Object Set RE = ThisDrawing.Application.Ge...
' For i = 1 To Selection.Paragraphs.Count For j = 1 To Selection.Paragraphs(i).Range.Hyperlinks.Count MsgBox Selection.Paragraphs(i).Range.Hyperlinks(j).TextToDisplay MsgBox Selection...
