This course will teach participants about installing and configuring Python, syntax, importing, statements, types, strings, booleans, files, lists, tuples, comprehensions, functions, and classes.
Do more with
Sub CheckXRefs()
Dim aField As Word.Field
For Each aField In ActiveDocument.Fields
If aField.Type = wdFieldRef Then
xref_text = "Text : " & aField.Code.Text & vbCrLf
xref_result = "Result : " & aField.Result & vbCrLf
xref_listlevel = "List level : " & aField.Code.Paragraphs(1).Range.ListFormat.ListLevelNumber & vbCrLf
xref_paragraph = "Paragraph : " & ActiveDocument.Range(0, aField.Code.Paragraphs(1).Range.End).Paragraphs.Count & vbCrLf
xref_page = "Page : " & aField.Code.Information(wdActiveEndAdjustedPageNumber) & vbCrLf
MsgBox xref_text & xref_result & xref_listlevel & xref_paragraph & xref_page
End If
Next aField
End Sub
Let me know how it goesSub ReferencedText()
Dim strRef As String
Dim para As Paragraph
Dim strMessage As String
strRef = "_Ref344626289"
Set para = ActiveDocument.Bookmarks("_Ref344571714").Range.Paragraphs(1)
strMessage = para.Range.ListFormat.ListString & vbTab & para.Range.Text
MsgBox strMessage
End Sub
Sub ReferencedText(fld As Field)
Dim strRef() As String
Dim para As Paragraph
Dim strMessage As String
Dim i As Integer
Select Case fld.Type
Case wdFieldRef, wdFieldPageRef
strRef = Split(Selection.Fields(1).Code.Text, " ")
For i = 0 To UBound(strRef)
If Left(strRef(i), 4) = "_Ref" Then
Set para = ActiveDocument.Bookmarks(strRef(i)).Range.Paragraphs(1)
strMessage = para.Range.ListFormat.ListString & vbTab & para.Range.Text
MsgBox strMessage
Exit For
End If
Next i
End Select
End Sub
Premium Content
You need an Expert Office subscription to comment.Start Free Trial