![]() |
#1
|
|||
|
|||
![]()
Hello,
I need to write a VBA macro that will determine if a word is part of a cross-reference. I am doing this on multiple documents. I wrote a simple macro that goes word by word and finds all that have a blue font as a test case, to convince myself I can get the words. Now, I'd like to know if that word is associated with a cross-reference. Here is the code I have so far: Code:
Sub BatchFindCR() Dim objDoc As Document Dim objSingleWord As Range Dim strFile As String, strFolder As String strFolder = "C:\Users\roy\Desktop\test files\" strFile = Dir(strFolder & "*.docx", vbNormal) While strFile <> "" Set objDoc = Documents.Open(FileName:=strFolder & strFile) For Each objSingleWord In objDoc.Words If objSingleWord.Font.ColorIndex = wdBlue Then MsgBox "Found: " & strFile Exit For End If 'is word part of a cross-reference? 'code ' Next objSingleWord objDoc.Save objDoc.Close strFile = Dir() Wend MsgBox "Done!" End Sub Thanks, Roy Last edited by macropod; 02-12-2019 at 03:34 PM. Reason: Added code tags |
Tags |
cross-reference, vba |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
MAHE | Word VBA | 4 | 03-03-2018 07:59 AM |
![]() |
Slamzor | Word VBA | 1 | 12-01-2017 05:12 PM |
![]() |
nospamdav999 | Word | 5 | 05-13-2017 03:43 AM |
![]() |
wmac | Word | 1 | 05-14-2013 08:54 PM |
Cross reference issues with word to PDF | rammrunal | Word | 0 | 07-17-2012 05:30 AM |