Làm thế nào để lấy tên của một hình dạng trong MS Word?

Question

Trong Excel, chúng ta có "Hộp tên" ở phía trên bên trái, nhưng tôi không thể tìm thấy cách lấy tên của một hình dạng trong Word. Làm thế nào để làm điều đó?

Answer 1

Có hai loại hình dạng trong MS Word- InlineShapes và Shapes. Đó là khá dễ dàng để kiểm tra tên của đối tượng hình dạng với một số mã VBA:

1. chọn hình dạng
2. nhấn Alt + F11 để mở VBA biên tập
3. trong cửa sổ Immediate thực thi mã này: ? Selection.ShapeRange.Name
4. kết quả là bạn có tên của hình dạng.

InlineShape không có sở hữu tên do đó bạn không thể kiểm tra tên của nó cho đến khi bạn quảng bá loại đối tượng InlineShape-Shape của bạn.

Answer 2

Từ Microsoft Word 2010 trở đi (2010, 2013 và 2016) có một "Selection Pane" bao gồm trong Microsoft Word. Trên ngăn chọn, Microsoft Word InlineShapes cũng như Shapes được liệt kê và đặt tên.

Bạn có thể tìm thấy những "Selection Pane" trong menu dưới

1. "Home" -tab
2. "Chỉnh sửa" -group
3. "Chọn" -button
4. "Selection Pane. .. "

Answer 3

Phương pháp tiện lợi nhất là tạo nút macro, có thể truy cập từ các tab của bạn (ví dụ: Trang chủ, Chèn, v.v.). Bằng cách này, bạn chỉ cần nhấp vào hình dạng, bấm vào nút vĩ mô, và thì đấy - tên hình dạng hiển thị trong một hộp thông báo (cửa sổ bật lên).

Sử dụng đoạn mã sau:

MsgBox ActiveWindow.Selection.ShapeRange(1).name 

Answer 4

câu trả lời đúng, tôi hy vọng)))

For Each ILShp In Doc.InlineShapes 
    If ILShp.Type = 5 Then   ' 5 (wdInlineShapeOLEControlObject) - OLE control object. (ComboBox and CheckBox) 
     ' if object is ComboBox 
     If CStr(ILShp.OLEFormat.ClassType) = "Forms.ComboBox.1" Then 
      Cb_Name = ILShp.OLEFormat.Object.Name   ' retuns ComboBox1 
     endif 
    Next