Home |
Search |
Today's Posts |
#1
|
|||
|
|||
Search and Insert, Search and Replace, Modify Document Margins
Basically, I have inherited a macro, and I need to modify it.
How do I do the following in a Macro? Search for specific text? Example, if I want to locate the string "FINAL INVOICE" Insert an image before the string? How do I insert an image, say c:\logo.jpg ? Is this correct: ' Find Final Invoice and Set font size for header ' Set myRange = ActiveDocument.Content Selection.HomeKey Unit:=wdStory Selection.MoveDown Unit:=wdLine, Count:=20 ' Selection.MoveDown Unit:=wdLine, Count:=20 Selection.Find.Text = "FINAL INVOICE" While Selection.Find.Execute = True Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.MoveUp Unit:=wdLine, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.MoveUp Unit:=wdLine, Count:=1 Selection.InlineShapes.AddPicture FileName:= _ "M:\logo\logo9.jpg", LinkToFile:=False, SaveWithDocument:= _ True Selection.MoveDown Unit:=wdLine, Count:=18, Extend:=wdExtend Selection.Font.Size = 11 Selection.MoveDown Unit:=wdLine, Count:=20 Wend ' Find Commerical Invoice and Set font size for header ' Set myRange = ActiveDocument.Content Selection.HomeKey Unit:=wdStory Selection.MoveDown Unit:=wdLine, Count:=20 ' Selection.MoveDown Unit:=wdLine, Count:=20 Selection.Find.Text = "COMMERCIAL INVOICE" While Selection.Find.Execute = True Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.MoveUp Unit:=wdLine, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.MoveUp Unit:=wdLine, Count:=1 Selection.InlineShapes.AddPicture FileName:= _ "M:\logo\logo9.jpg", LinkToFile:=False, SaveWithDocument:= _ True Selection.MoveDown Unit:=wdLine, Count:=18, Extend:=wdExtend Selection.Font.Size = 11 Selection.MoveDown Unit:=wdLine, Count:=20 Wend How do I replace text I searched for? Say, I want to replace the text XXuser01 with an image XXuser01.jpg? Is this correct: ' Place Paul's signature on the commercial invoice Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="1" Selection.Find.Text = "XXX USER 97" While Selection.Find.Execute = True Selection.TypeBackspace Selection.InlineShapes.AddPicture FileName:= _ "M:\logo\user97.jpg", LinkToFile:=False, SaveWithDocument:= _ True Wend How do I modify document margins? Originally, the document might fit on A4, but I only have 8.5 x 11 to print it out on. Is there any way to increase the margins inside the macro? Is this it? ' Increase Margin's With ActiveDocument.PageSetup .LineNumbering.Active = False .Orientation = wdOrientPortrait .TopMargin = InchesToPoints(0.15) .BottomMargin = InchesToPoints(0.1) .LeftMargin = InchesToPoints(0.25) .RightMargin = InchesToPoints(0.15) .Gutter = InchesToPoints(0) .HeaderDistance = InchesToPoints(0.5) .FooterDistance = InchesToPoints(0.5) .PageWidth = InchesToPoints(8.26) .PageHeight = InchesToPoints(11.69) .FirstPageTray = wdPrinterDefaultBin .OtherPagesTray = wdPrinterDefaultBin .SectionStart = wdSectionNewPage .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False .VerticalAlignment = wdAlignVerticalTop .SuppressEndnotes = True .MirrorMargins = False .TwoPagesOnOne = False .GutterPos = wdGutterPosLeft End With ' Set Font Size Selection.WholeStory Selection.Font.Size = 10 |
#2
Posted to microsoft.public.word.formatting.longdocs
|
|||
|
|||
Search and Insert, Search and Replace, Modify Document Margins
I don't know how to do this with a macro, but I know how to do it without
one. Copy your image to the Clipboard. Then search for "FINAL INVOICE" and replace with ^c^&. ^c represents the Clipboard contents and ^& represents the found text. -- Suzanne S. Barnhill Microsoft MVP (Word) Words into Type Fairhope, Alabama USA http://word.mvps.org "instant000" wrote in message ... Basically, I have inherited a macro, and I need to modify it. How do I do the following in a Macro? Search for specific text? Example, if I want to locate the string "FINAL INVOICE" Insert an image before the string? How do I insert an image, say c:\logo.jpg ? Is this correct: ' Find Final Invoice and Set font size for header ' Set myRange = ActiveDocument.Content Selection.HomeKey Unit:=wdStory Selection.MoveDown Unit:=wdLine, Count:=20 ' Selection.MoveDown Unit:=wdLine, Count:=20 Selection.Find.Text = "FINAL INVOICE" While Selection.Find.Execute = True Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.MoveUp Unit:=wdLine, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.MoveUp Unit:=wdLine, Count:=1 Selection.InlineShapes.AddPicture FileName:= _ "M:\logo\logo9.jpg", LinkToFile:=False, SaveWithDocument:= _ True Selection.MoveDown Unit:=wdLine, Count:=18, Extend:=wdExtend Selection.Font.Size = 11 Selection.MoveDown Unit:=wdLine, Count:=20 Wend ' Find Commerical Invoice and Set font size for header ' Set myRange = ActiveDocument.Content Selection.HomeKey Unit:=wdStory Selection.MoveDown Unit:=wdLine, Count:=20 ' Selection.MoveDown Unit:=wdLine, Count:=20 Selection.Find.Text = "COMMERCIAL INVOICE" While Selection.Find.Execute = True Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.MoveUp Unit:=wdLine, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.MoveUp Unit:=wdLine, Count:=1 Selection.InlineShapes.AddPicture FileName:= _ "M:\logo\logo9.jpg", LinkToFile:=False, SaveWithDocument:= _ True Selection.MoveDown Unit:=wdLine, Count:=18, Extend:=wdExtend Selection.Font.Size = 11 Selection.MoveDown Unit:=wdLine, Count:=20 Wend How do I replace text I searched for? Say, I want to replace the text XXuser01 with an image XXuser01.jpg? Is this correct: ' Place Paul's signature on the commercial invoice Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="1" Selection.Find.Text = "XXX USER 97" While Selection.Find.Execute = True Selection.TypeBackspace Selection.InlineShapes.AddPicture FileName:= _ "M:\logo\user97.jpg", LinkToFile:=False, SaveWithDocument:= _ True Wend How do I modify document margins? Originally, the document might fit on A4, but I only have 8.5 x 11 to print it out on. Is there any way to increase the margins inside the macro? Is this it? ' Increase Margin's With ActiveDocument.PageSetup LineNumbering.Active = False Orientation = wdOrientPortrait TopMargin = InchesToPoints(0.15) BottomMargin = InchesToPoints(0.1) LeftMargin = InchesToPoints(0.25) RightMargin = InchesToPoints(0.15) Gutter = InchesToPoints(0) HeaderDistance = InchesToPoints(0.5) FooterDistance = InchesToPoints(0.5) PageWidth = InchesToPoints(8.26) PageHeight = InchesToPoints(11.69) FirstPageTray = wdPrinterDefaultBin OtherPagesTray = wdPrinterDefaultBin SectionStart = wdSectionNewPage OddAndEvenPagesHeaderFooter = False DifferentFirstPageHeaderFooter = False VerticalAlignment = wdAlignVerticalTop SuppressEndnotes = True MirrorMargins = False TwoPagesOnOne = False GutterPos = wdGutterPosLeft End With ' Set Font Size Selection.WholeStory Selection.Font.Size = 10 -- instant000 |
#3
Posted to microsoft.public.word.formatting.longdocs
|
|||
|
|||
Search and Insert, Search and Replace, Modify Document Margins
I don't know how to do this with a macro, but I know how to do it without
one. Copy your image to the Clipboard. Then search for "FINAL INVOICE" and replace with ^c^&. ^c represents the Clipboard contents and ^& represents the found text. -- Suzanne S. Barnhill Microsoft MVP (Word) Words into Type Fairhope, Alabama USA http://word.mvps.org "instant000" wrote in message ... Basically, I have inherited a macro, and I need to modify it. How do I do the following in a Macro? Search for specific text? Example, if I want to locate the string "FINAL INVOICE" Insert an image before the string? How do I insert an image, say c:\logo.jpg ? Is this correct: ' Find Final Invoice and Set font size for header ' Set myRange = ActiveDocument.Content Selection.HomeKey Unit:=wdStory Selection.MoveDown Unit:=wdLine, Count:=20 ' Selection.MoveDown Unit:=wdLine, Count:=20 Selection.Find.Text = "FINAL INVOICE" While Selection.Find.Execute = True Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.MoveUp Unit:=wdLine, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.MoveUp Unit:=wdLine, Count:=1 Selection.InlineShapes.AddPicture FileName:= _ "M:\logo\logo9.jpg", LinkToFile:=False, SaveWithDocument:= _ True Selection.MoveDown Unit:=wdLine, Count:=18, Extend:=wdExtend Selection.Font.Size = 11 Selection.MoveDown Unit:=wdLine, Count:=20 Wend ' Find Commerical Invoice and Set font size for header ' Set myRange = ActiveDocument.Content Selection.HomeKey Unit:=wdStory Selection.MoveDown Unit:=wdLine, Count:=20 ' Selection.MoveDown Unit:=wdLine, Count:=20 Selection.Find.Text = "COMMERCIAL INVOICE" While Selection.Find.Execute = True Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.MoveUp Unit:=wdLine, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.MoveUp Unit:=wdLine, Count:=1 Selection.InlineShapes.AddPicture FileName:= _ "M:\logo\logo9.jpg", LinkToFile:=False, SaveWithDocument:= _ True Selection.MoveDown Unit:=wdLine, Count:=18, Extend:=wdExtend Selection.Font.Size = 11 Selection.MoveDown Unit:=wdLine, Count:=20 Wend How do I replace text I searched for? Say, I want to replace the text XXuser01 with an image XXuser01.jpg? Is this correct: ' Place Paul's signature on the commercial invoice Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="1" Selection.Find.Text = "XXX USER 97" While Selection.Find.Execute = True Selection.TypeBackspace Selection.InlineShapes.AddPicture FileName:= _ "M:\logo\user97.jpg", LinkToFile:=False, SaveWithDocument:= _ True Wend How do I modify document margins? Originally, the document might fit on A4, but I only have 8.5 x 11 to print it out on. Is there any way to increase the margins inside the macro? Is this it? ' Increase Margin's With ActiveDocument.PageSetup LineNumbering.Active = False Orientation = wdOrientPortrait TopMargin = InchesToPoints(0.15) BottomMargin = InchesToPoints(0.1) LeftMargin = InchesToPoints(0.25) RightMargin = InchesToPoints(0.15) Gutter = InchesToPoints(0) HeaderDistance = InchesToPoints(0.5) FooterDistance = InchesToPoints(0.5) PageWidth = InchesToPoints(8.26) PageHeight = InchesToPoints(11.69) FirstPageTray = wdPrinterDefaultBin OtherPagesTray = wdPrinterDefaultBin SectionStart = wdSectionNewPage OddAndEvenPagesHeaderFooter = False DifferentFirstPageHeaderFooter = False VerticalAlignment = wdAlignVerticalTop SuppressEndnotes = True MirrorMargins = False TwoPagesOnOne = False GutterPos = wdGutterPosLeft End With ' Set Font Size Selection.WholeStory Selection.Font.Size = 10 -- instant000 |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
search-replace | Microsoft Word Help | |||
how do I search and replace hyperlinks in a word document. | Microsoft Word Help | |||
Search and Replace | Formatting Long Documents | |||
Search/replace entire document, excluding one style | Microsoft Word Help | |||
Search/replace entire document, excluding one style | Microsoft Word Help |