what functions would this task use, format, macro ? etc

fremoy · #1 02-11-2015, 10:10 AM

Hi all,

I'm looking to take a txt document like below

[IMG]

[/IMG]

and auto format it to like below

what method would be best to do this, so that i can then read up and do it. auto Formatting, macros? etc etc.

thanks everyone.

Mark.

Guessed · #2 02-11-2015, 10:59 PM

Based on your provided sample, the following macro would do it all. You may also need to modify the character style 'Emphasis' to get it to look blue.

Code:

Sub FormatText()
 
  With AutoCorrect
    .CorrectInitialCaps = True
    .CorrectSentenceCaps = True
    .CorrectDays = True
    .CorrectCapsLock = True
    .ReplaceText = True
    .ReplaceTextFromSpellingChecker = True
    .CorrectKeyboardSetting = False
    .DisplayAutoCorrectOptions = True
    .CorrectTableCells = True
  End With
 
  With Options
    .AutoFormatApplyHeadings = True
    .AutoFormatApplyLists = True
    .AutoFormatApplyBulletedLists = True
    .AutoFormatApplyOtherParas = True
    .AutoFormatReplaceQuotes = True
    .AutoFormatReplaceSymbols = False
    .AutoFormatReplaceOrdinals = False
    .AutoFormatReplaceFractions = False
    .AutoFormatReplacePlainTextEmphasis = False
    .AutoFormatReplaceHyperlinks = True
    .AutoFormatPreserveStyles = True
    .AutoFormatPlainTextWordMail = True
  End With
 
  ActiveDocument.Range.Style = "Normal"
  ActiveDocument.Kind = wdDocumentNotSpecified
  ActiveDocument.Range.AutoFormat
 
  With ActiveDocument.Range.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Replacement.Style = ActiveDocument.Styles("Emphasis")
    .Text = "\(*\)"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = True
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute Replace:=wdReplaceAll
 
    .Text = ""
    .Replacement.ClearFormatting
    .Style = ActiveDocument.Styles("Body Text")
    .Replacement.Style = ActiveDocument.Styles("List Number")
    .Execute Replace:=wdReplaceAll
  End With
 
End Sub

And you also should edit the Heading 1 style to get those headings to your desired look too.

fremoy · #3 02-16-2015, 10:48 AM

thanks Andrew, i sent you a PM.

Regards
Mark.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to format unpredictable data	Nisio07	Excel	2	09-30-2014 01:16 PM
Copy and Paste of a Task...Including all of the Task's 'children'...to a new task	KRTSTARRYNIGHT	Project	1	07-01-2014 06:54 AM
Find and Replace Format macro issue	Jack	Word VBA	2	12-12-2012 09:24 PM
macro to format this	ubns	Word	3	04-24-2012 11:44 PM
Need a macro to convert all graphics to GIF format	sleake	Word VBA	3	02-10-2012 05:00 PM