Câu hỏi Từ VBA của CrossReference


Tôi đang sử dụng Word 2010 và muốn tạo một kịch bản VBA để chèn một tham chiếu chéo.

Tôi thường chèn một tham chiếu chéo các số bảng và số hình. Vì vậy, tôi muốn trước tiên hiển thị một hộp thoại để trả lời nhãn, bảng hoặc hình nào được chèn vào. Ở đây, ví dụ, tôi sẽ gõ Figure. Sau đó, tôi muốn hiển thị một hộp thoại khác để trả lời số bảng hoặc số liệu. Tôi sẽ gõ 5.

Sau đó, "Hình 5" sẽ được chèn vào.

Kịch bản VBA tôi đã viết như sau:

Public Sub CrossReferrence()  
' To Insert Cross Reference  
'  
Dim reftype As String  
reftype = InputBox("The label to be inserted "Table" or "Figure" = ?")  
Dim refnum  
refnum = InputBox("Table number or Figure number = ?")  
If refnum <> "" Then  
    Selection.InsertCrossReference _  
        ReferenceType:="reftype", _  
        ReferenceKind:=wdOnlyLabelAndNumber, _  
        ReferenceItem:=refnum  
End If  
End Sub  

Có vẻ như Macro dừng lại khi nói đến câu Nếu. Vui lòng sửa Macro.


2
2017-10-07 01:35


gốc


Tôi tự giải quyết nó. ReferenceType: = reftype (không cần "") Điều này làm việc. - Nono


Các câu trả lời:


Tôi tự giải quyết nó.

ReferenceType: = reftype

Không cần sử dụng "". Điều này làm việc.


1
2017-10-09 01:29