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! |
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 |