| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Finding All Words with Specific Format -- via Macro
I'm trying to create a macro that will:
a) Find all words/terms in a doc that are formatted blue b) Copy those words/terms and paste them into a (new) blank document I've been able to do this manually (via Find/ Highlight All Occurrences/ Format(Font)/ Find All/ Copy/ New Doc/ Paste). However, I have not been able to get a macro to contain these commands. Any suggestions?? THANKS in advance! |
|
#2
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
|
Finding All Words with Specific Format -- via Macro
I forgot to mention -- we're using Word 2003, with XP operating system.
Thanks! "Dogwoodnc" wrote: I'm trying to create a macro that will: a) Find all words/terms in a doc that are formatted blue b) Copy those words/terms and paste them into a (new) blank document I've been able to do this manually (via Find/ Highlight All Occurrences/ Format(Font)/ Find All/ Copy/ New Doc/ Paste). However, I have not been able to get a macro to contain these commands. Any suggestions?? THANKS in advance! |
|
#3
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
|
Finding All Words with Specific Format -- via Macro
How about
Sub CopyBlueToOtherDoc() Dim Source As Document Dim Target As Document Dim oRng As Range Dim sView As String Set Source = ActiveDocument sView = ActiveWindow.View.ShowFieldCodes Set Target = Documents.Add Application.ScreenUpdating = False Source.Activate With Selection .HomeKey Unit:=wdStory With .Find .ClearFormatting .Replacement.ClearFormatting .Font.Color = wdColorBlue Do While .Execute(findText:="", _ MatchWildcards:=False, Wrap:=wdFindStop, _ Forward:=True) = True Set oRng = Selection.Range Target.Range.InsertAfter oRng & vbCr Loop End With End With Target.Activate End Sub -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org Dogwoodnc wrote: I forgot to mention -- we're using Word 2003, with XP operating system. Thanks! "Dogwoodnc" wrote: I'm trying to create a macro that will: a) Find all words/terms in a doc that are formatted blue b) Copy those words/terms and paste them into a (new) blank document I've been able to do this manually (via Find/ Highlight All Occurrences/ Format(Font)/ Find All/ Copy/ New Doc/ Paste). However, I have not been able to get a macro to contain these commands. Any suggestions?? THANKS in advance! |
|
#4
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
|
Finding All Words with Specific Format -- via Macro
THANK YOU! That's exactly what I wanted to do!!!
"Graham Mayor" wrote: How about Sub CopyBlueToOtherDoc() Dim Source As Document Dim Target As Document Dim oRng As Range Dim sView As String Set Source = ActiveDocument sView = ActiveWindow.View.ShowFieldCodes Set Target = Documents.Add Application.ScreenUpdating = False Source.Activate With Selection .HomeKey Unit:=wdStory With .Find .ClearFormatting .Replacement.ClearFormatting .Font.Color = wdColorBlue Do While .Execute(findText:="", _ MatchWildcards:=False, Wrap:=wdFindStop, _ Forward:=True) = True Set oRng = Selection.Range Target.Range.InsertAfter oRng & vbCr Loop End With End With Target.Activate End Sub -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org Dogwoodnc wrote: I forgot to mention -- we're using Word 2003, with XP operating system. Thanks! "Dogwoodnc" wrote: I'm trying to create a macro that will: a) Find all words/terms in a doc that are formatted blue b) Copy those words/terms and paste them into a (new) blank document I've been able to do this manually (via Find/ Highlight All Occurrences/ Format(Font)/ Find All/ Copy/ New Doc/ Paste). However, I have not been able to get a macro to contain these commands. Any suggestions?? THANKS in advance! |
|
#5
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
|
Finding All Words with Specific Format -- via Macro
You are welcome
 -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org Dogwoodnc wrote: THANK YOU! That's exactly what I wanted to do!!! "Graham Mayor" wrote: How about Sub CopyBlueToOtherDoc() Dim Source As Document Dim Target As Document Dim oRng As Range Dim sView As String Set Source = ActiveDocument sView = ActiveWindow.View.ShowFieldCodes Set Target = Documents.Add Application.ScreenUpdating = False Source.Activate With Selection .HomeKey Unit:=wdStory With .Find .ClearFormatting .Replacement.ClearFormatting .Font.Color = wdColorBlue Do While .Execute(findText:="", _ MatchWildcards:=False, Wrap:=wdFindStop, _ Forward:=True) = True Set oRng = Selection.Range Target.Range.InsertAfter oRng & vbCr Loop End With End With Target.Activate End Sub -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org Dogwoodnc wrote: I forgot to mention -- we're using Word 2003, with XP operating system. Thanks! "Dogwoodnc" wrote: I'm trying to create a macro that will: a) Find all words/terms in a doc that are formatted blue b) Copy those words/terms and paste them into a (new) blank document I've been able to do this manually (via Find/ Highlight All Occurrences/ Format(Font)/ Find All/ Copy/ New Doc/ Paste). However, I have not been able to get a macro to contain these commands. Any suggestions?? THANKS in advance! |
|
#6
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
|
Finding All Words with Specific Format -- via Macro
This macro worked BEAUTIFULLY for us in Word 2003. However, we're now
preparing to migrate to 2007, and when I try to run it there, it does not locate any file names (even though there ARE folders in the files). Are there any tweaks needed for use with 2007? Thanks in advance! "Graham Mayor" wrote: You are welcome -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org Dogwoodnc wrote: THANK YOU! That's exactly what I wanted to do!!! "Graham Mayor" wrote: How about Sub CopyBlueToOtherDoc() Dim Source As Document Dim Target As Document Dim oRng As Range Dim sView As String Set Source = ActiveDocument sView = ActiveWindow.View.ShowFieldCodes Set Target = Documents.Add Application.ScreenUpdating = False Source.Activate With Selection .HomeKey Unit:=wdStory With .Find .ClearFormatting .Replacement.ClearFormatting .Font.Color = wdColorBlue Do While .Execute(findText:="", _ MatchWildcards:=False, Wrap:=wdFindStop, _ Forward:=True) = True Set oRng = Selection.Range Target.Range.InsertAfter oRng & vbCr Loop End With End With Target.Activate End Sub -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org Dogwoodnc wrote: I forgot to mention -- we're using Word 2003, with XP operating system. Thanks! "Dogwoodnc" wrote: I'm trying to create a macro that will: a) Find all words/terms in a doc that are formatted blue b) Copy those words/terms and paste them into a (new) blank document I've been able to do this manually (via Find/ Highlight All Occurrences/ Format(Font)/ Find All/ Copy/ New Doc/ Paste). However, I have not been able to get a macro to contain these commands. Any suggestions?? THANKS in advance! |
|
#7
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
|
Finding All Words with Specific Format -- via Macro
This macro worked BEAUTIFULLY for us in Word 2003. However, we're now
preparing to migrate to 2007, and when I try to run it there, it does not locate any file names (even though there ARE folders in the files). Are there any tweaks needed for use with 2007? Thanks in advance! "Graham Mayor" wrote: You are welcome -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org Dogwoodnc wrote: THANK YOU! That's exactly what I wanted to do!!! "Graham Mayor" wrote: How about Sub CopyBlueToOtherDoc() Dim Source As Document Dim Target As Document Dim oRng As Range Dim sView As String Set Source = ActiveDocument sView = ActiveWindow.View.ShowFieldCodes Set Target = Documents.Add Application.ScreenUpdating = False Source.Activate With Selection .HomeKey Unit:=wdStory With .Find .ClearFormatting .Replacement.ClearFormatting .Font.Color = wdColorBlue Do While .Execute(findText:="", _ MatchWildcards:=False, Wrap:=wdFindStop, _ Forward:=True) = True Set oRng = Selection.Range Target.Range.InsertAfter oRng & vbCr Loop End With End With Target.Activate End Sub -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org Dogwoodnc wrote: I forgot to mention -- we're using Word 2003, with XP operating system. Thanks! "Dogwoodnc" wrote: I'm trying to create a macro that will: a) Find all words/terms in a doc that are formatted blue b) Copy those words/terms and paste them into a (new) blank document I've been able to do this manually (via Find/ Highlight All Occurrences/ Format(Font)/ Find All/ Copy/ New Doc/ Paste). However, I have not been able to get a macro to contain these commands. Any suggestions?? THANKS in advance! |
|
#8
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
|
Finding All Words with Specific Format -- via Macro
The macro in the post you referred to does not have anything to do with
files nor folders. It simply searches the current document for blue coloured text and writes any such text found to a new document. That should work just as readily in Word 2007 as it does in Word 2003. Can you clarify what yoiu are trying to do? -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org "Dogwoodnc" wrote in message ... This macro worked BEAUTIFULLY for us in Word 2003. However, we're now preparing to migrate to 2007, and when I try to run it there, it does not locate any file names (even though there ARE folders in the files). Are there any tweaks needed for use with 2007? Thanks in advance! "Graham Mayor" wrote: You are welcome -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org Dogwoodnc wrote: THANK YOU! That's exactly what I wanted to do!!! "Graham Mayor" wrote: How about Sub CopyBlueToOtherDoc() Dim Source As Document Dim Target As Document Dim oRng As Range Dim sView As String Set Source = ActiveDocument sView = ActiveWindow.View.ShowFieldCodes Set Target = Documents.Add Application.ScreenUpdating = False Source.Activate With Selection .HomeKey Unit:=wdStory With .Find .ClearFormatting .Replacement.ClearFormatting .Font.Color = wdColorBlue Do While .Execute(findText:="", _ MatchWildcards:=False, Wrap:=wdFindStop, _ Forward:=True) = True Set oRng = Selection.Range Target.Range.InsertAfter oRng & vbCr Loop End With End With Target.Activate End Sub -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org Dogwoodnc wrote: I forgot to mention -- we're using Word 2003, with XP operating system. Thanks! "Dogwoodnc" wrote: I'm trying to create a macro that will: a) Find all words/terms in a doc that are formatted blue b) Copy those words/terms and paste them into a (new) blank document I've been able to do this manually (via Find/ Highlight All Occurrences/ Format(Font)/ Find All/ Copy/ New Doc/ Paste). However, I have not been able to get a macro to contain these commands. Any suggestions?? THANKS in advance! |
|
#9
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
|
Finding All Words with Specific Format -- via Macro
The macro in the post you referred to does not have anything to do with
files nor folders. It simply searches the current document for blue coloured text and writes any such text found to a new document. That should work just as readily in Word 2007 as it does in Word 2003. Can you clarify what yoiu are trying to do? -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org "Dogwoodnc" wrote in message ... This macro worked BEAUTIFULLY for us in Word 2003. However, we're now preparing to migrate to 2007, and when I try to run it there, it does not locate any file names (even though there ARE folders in the files). Are there any tweaks needed for use with 2007? Thanks in advance! "Graham Mayor" wrote: You are welcome -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org Dogwoodnc wrote: THANK YOU! That's exactly what I wanted to do!!! "Graham Mayor" wrote: How about Sub CopyBlueToOtherDoc() Dim Source As Document Dim Target As Document Dim oRng As Range Dim sView As String Set Source = ActiveDocument sView = ActiveWindow.View.ShowFieldCodes Set Target = Documents.Add Application.ScreenUpdating = False Source.Activate With Selection .HomeKey Unit:=wdStory With .Find .ClearFormatting .Replacement.ClearFormatting .Font.Color = wdColorBlue Do While .Execute(findText:="", _ MatchWildcards:=False, Wrap:=wdFindStop, _ Forward:=True) = True Set oRng = Selection.Range Target.Range.InsertAfter oRng & vbCr Loop End With End With Target.Activate End Sub -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org Dogwoodnc wrote: I forgot to mention -- we're using Word 2003, with XP operating system. Thanks! "Dogwoodnc" wrote: I'm trying to create a macro that will: a) Find all words/terms in a doc that are formatted blue b) Copy those words/terms and paste them into a (new) blank document I've been able to do this manually (via Find/ Highlight All Occurrences/ Format(Font)/ Find All/ Copy/ New Doc/ Paste). However, I have not been able to get a macro to contain these commands. Any suggestions?? THANKS in advance! |
|
#10
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
|
Finding All Words with Specific Format -- via Macro
So sorry, I'm trying to troubleshoot a lot of different macros and was
thinking about another one when I wrote. I just tried re-copying the original code and it worked perfectly. I'm not sure why it was acting up previously. Thanks for your patience; this one seems to be solved now! "Graham Mayor" wrote: The macro in the post you referred to does not have anything to do with files nor folders. It simply searches the current document for blue coloured text and writes any such text found to a new document. That should work just as readily in Word 2007 as it does in Word 2003. Can you clarify what yoiu are trying to do? -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org "Dogwoodnc" wrote in message ... This macro worked BEAUTIFULLY for us in Word 2003. However, we're now preparing to migrate to 2007, and when I try to run it there, it does not locate any file names (even though there ARE folders in the files). Are there any tweaks needed for use with 2007? Thanks in advance! "Graham Mayor" wrote: You are welcome -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org Dogwoodnc wrote: THANK YOU! That's exactly what I wanted to do!!! "Graham Mayor" wrote: How about Sub CopyBlueToOtherDoc() Dim Source As Document Dim Target As Document Dim oRng As Range Dim sView As String Set Source = ActiveDocument sView = ActiveWindow.View.ShowFieldCodes Set Target = Documents.Add Application.ScreenUpdating = False Source.Activate With Selection .HomeKey Unit:=wdStory With .Find .ClearFormatting .Replacement.ClearFormatting .Font.Color = wdColorBlue Do While .Execute(findText:="", _ MatchWildcards:=False, Wrap:=wdFindStop, _ Forward:=True) = True Set oRng = Selection.Range Target.Range.InsertAfter oRng & vbCr Loop End With End With Target.Activate End Sub -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org Dogwoodnc wrote: I forgot to mention -- we're using Word 2003, with XP operating system. Thanks! "Dogwoodnc" wrote: I'm trying to create a macro that will: a) Find all words/terms in a doc that are formatted blue b) Copy those words/terms and paste them into a (new) blank document I've been able to do this manually (via Find/ Highlight All Occurrences/ Format(Font)/ Find All/ Copy/ New Doc/ Paste). However, I have not been able to get a macro to contain these commands. Any suggestions?? THANKS in advance! . |
|
#11
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
|
Finding All Words with Specific Format -- via Macro
So sorry, I'm trying to troubleshoot a lot of different macros and was thinking about another one when I wrote. I just tried re-copying the original code and it worked perfectly. I'm not sure why it was acting up previously. Thanks for your patience; this one seems to be solved now! "Graham Mayor" wrote: The macro in the post you referred to does not have anything to do with files nor folders. It simply searches the current document for blue coloured text and writes any such text found to a new document. That should work just as readily in Word 2007 as it does in Word 2003. Can you clarify what yoiu are trying to do? -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org "Dogwoodnc" wrote in message ... This macro worked BEAUTIFULLY for us in Word 2003. However, we're now preparing to migrate to 2007, and when I try to run it there, it does not locate any file names (even though there ARE folders in the files). Are there any tweaks needed for use with 2007? Thanks in advance! "Graham Mayor" wrote: You are welcome -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org Dogwoodnc wrote: THANK YOU! That's exactly what I wanted to do!!! "Graham Mayor" wrote: How about Sub CopyBlueToOtherDoc() Dim Source As Document Dim Target As Document Dim oRng As Range Dim sView As String Set Source = ActiveDocument sView = ActiveWindow.View.ShowFieldCodes Set Target = Documents.Add Application.ScreenUpdating = False Source.Activate With Selection .HomeKey Unit:=wdStory With .Find .ClearFormatting .Replacement.ClearFormatting .Font.Color = wdColorBlue Do While .Execute(findText:="", _ MatchWildcards:=False, Wrap:=wdFindStop, _ Forward:=True) = True Set oRng = Selection.Range Target.Range.InsertAfter oRng & vbCr Loop End With End With Target.Activate End Sub -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org Dogwoodnc wrote: I forgot to mention -- we're using Word 2003, with XP operating system. Thanks! "Dogwoodnc" wrote: I'm trying to create a macro that will: a) Find all words/terms in a doc that are formatted blue b) Copy those words/terms and paste them into a (new) blank document I've been able to do this manually (via Find/ Highlight All Occurrences/ Format(Font)/ Find All/ Copy/ New Doc/ Paste). However, I have not been able to get a macro to contain these commands. Any suggestions?? THANKS in advance! . |
|
#12
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
|
Finding All Words with Specific Format -- via Macro
No problem
-- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org "Dogwoodnc" wrote in message ... So sorry, I'm trying to troubleshoot a lot of different macros and was thinking about another one when I wrote. I just tried re-copying the original code and it worked perfectly. I'm not sure why it was acting up previously. Thanks for your patience; this one seems to be solved now! "Graham Mayor" wrote: The macro in the post you referred to does not have anything to do with files nor folders. It simply searches the current document for blue coloured text and writes any such text found to a new document. That should work just as readily in Word 2007 as it does in Word 2003. Can you clarify what yoiu are trying to do? -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org "Dogwoodnc" wrote in message ... This macro worked BEAUTIFULLY for us in Word 2003. However, we're now preparing to migrate to 2007, and when I try to run it there, it does not locate any file names (even though there ARE folders in the files). Are there any tweaks needed for use with 2007? Thanks in advance! "Graham Mayor" wrote: You are welcome -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org Dogwoodnc wrote: THANK YOU! That's exactly what I wanted to do!!! "Graham Mayor" wrote: How about Sub CopyBlueToOtherDoc() Dim Source As Document Dim Target As Document Dim oRng As Range Dim sView As String Set Source = ActiveDocument sView = ActiveWindow.View.ShowFieldCodes Set Target = Documents.Add Application.ScreenUpdating = False Source.Activate With Selection .HomeKey Unit:=wdStory With .Find .ClearFormatting .Replacement.ClearFormatting .Font.Color = wdColorBlue Do While .Execute(findText:="", _ MatchWildcards:=False, Wrap:=wdFindStop, _ Forward:=True) = True Set oRng = Selection.Range Target.Range.InsertAfter oRng & vbCr Loop End With End With Target.Activate End Sub -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org Dogwoodnc wrote: I forgot to mention -- we're using Word 2003, with XP operating system. Thanks! "Dogwoodnc" wrote: I'm trying to create a macro that will: a) Find all words/terms in a doc that are formatted blue b) Copy those words/terms and paste them into a (new) blank document I've been able to do this manually (via Find/ Highlight All Occurrences/ Format(Font)/ Find All/ Copy/ New Doc/ Paste). However, I have not been able to get a macro to contain these commands. Any suggestions?? THANKS in advance! . |
|
#13
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
|
Finding All Words with Specific Format -- via Macro
No problem -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org "Dogwoodnc" wrote in message ... So sorry, I'm trying to troubleshoot a lot of different macros and was thinking about another one when I wrote. I just tried re-copying the original code and it worked perfectly. I'm not sure why it was acting up previously. Thanks for your patience; this one seems to be solved now! "Graham Mayor" wrote: The macro in the post you referred to does not have anything to do with files nor folders. It simply searches the current document for blue coloured text and writes any such text found to a new document. That should work just as readily in Word 2007 as it does in Word 2003. Can you clarify what yoiu are trying to do? -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org "Dogwoodnc" wrote in message ... This macro worked BEAUTIFULLY for us in Word 2003. However, we're now preparing to migrate to 2007, and when I try to run it there, it does not locate any file names (even though there ARE folders in the files). Are there any tweaks needed for use with 2007? Thanks in advance! "Graham Mayor" wrote: You are welcome -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org Dogwoodnc wrote: THANK YOU! That's exactly what I wanted to do!!! "Graham Mayor" wrote: How about Sub CopyBlueToOtherDoc() Dim Source As Document Dim Target As Document Dim oRng As Range Dim sView As String Set Source = ActiveDocument sView = ActiveWindow.View.ShowFieldCodes Set Target = Documents.Add Application.ScreenUpdating = False Source.Activate With Selection .HomeKey Unit:=wdStory With .Find .ClearFormatting .Replacement.ClearFormatting .Font.Color = wdColorBlue Do While .Execute(findText:="", _ MatchWildcards:=False, Wrap:=wdFindStop, _ Forward:=True) = True Set oRng = Selection.Range Target.Range.InsertAfter oRng & vbCr Loop End With End With Target.Activate End Sub -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org Dogwoodnc wrote: I forgot to mention -- we're using Word 2003, with XP operating system. Thanks! "Dogwoodnc" wrote: I'm trying to create a macro that will: a) Find all words/terms in a doc that are formatted blue b) Copy those words/terms and paste them into a (new) blank document I've been able to do this manually (via Find/ Highlight All Occurrences/ Format(Font)/ Find All/ Copy/ New Doc/ Paste). However, I have not been able to get a macro to contain these commands. Any suggestions?? THANKS in advance! . |
| Reply |
| Thread Tools | |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| finding specific sequence of wildcard characters | Microsoft Word Help | |||
| Finding text at a specific place | Microsoft Word Help | |||
| finding words containing a certain letter | Microsoft Word Help | |||
| Macros:How to select a specific column of a table and format it using macro? | Tables | |||
| Finding higlights with a specific color | New Users | |||
Linear Mode
