Pages

Search

Microsoft Word - Microsoft Office Word 2007

Microsoft Word - Microsoft Office Word 2007


Microsoft Office Word 2007

Posted: 05 Oct 2013 01:57 PM PDT

Hello

 

I am having an issue with Word 2007.  I am looking to create an outline numbered list for typing up and formatting some notes from a recent meeting.  I have set up the styles.  When I tab to create a second level in the document, the cursor moves over but the style for the second level does not show up.  Have I missed something in setting up?

 

Thanks

 

Nick

password to activate office

Posted: 05 Oct 2013 12:54 PM PDT

How do I get the password that was used to install Office.  I do not have a product Key.  Software was bought with no CD but a password to download Office 2013 home/student.  Because of the "word is not working" error, software has to be repaired.  Once repaired it has to be activated.

Find parenthetical string of a determined minimum length

Posted: 05 Oct 2013 12:05 PM PDT

A wildcard search for (\(*\)) finds any string between and including the parentheses.

How do I amend that to ignore any string that has fewer than four characters between the parentheses? I want to find (Smith) or (1987) but I want to skip (NGO) or (ISP) or (b) or (iv) . . .

How to get "Select All" to include footer in Word 2010

Posted: 05 Oct 2013 11:45 AM PDT

I have a fax template saved.  Occasionally I like to save a copy of a fax, so I will use "select all" to select it and then copy it to another word document and save that.  I then can close out the template and since don't save changes to it, I am left with my personal tempplate intact.  However, when I choose"select all", the footer is not selected - so when I copy it and then paste it into a new document, I can save it - but the footer is missing.  Strangely, both the header and the text of the body of the fax document are both selected - it is just the footer that is not selected. Why can't I select the whole document? 

auto enter date word 2007

Posted: 05 Oct 2013 11:42 AM PDT

I have a document that has been ongoing since 2011. With each entry on a new day until about six weeks age when I started to enter the month for the day of a new entry I could autocomplete the date by hitting enter. I tried going to visual basic and changing the Application.AutoDisplayCompleteTips = to True and that didn't work. I can't find a formatting tool that lets me change this option to what I want as a default setting. It has to be an easy option and Word 2007 makes me feel stupid. I've had Office 2010 on desktop for several years and I don't want to even think about having to learn it or an even newer version of Office. Thanks for helping me with my frustration.  2003 was easy. Joan

word 2007 reinstalls on launch

Posted: 05 Oct 2013 11:01 AM PDT

I click the Word 2007 icon on my desktop, I get the Microsoft Word 2007 splash screen, then I get a large box with something like "Please wait while Office 2007 is Configured."  It takes a long time, a progress bar appears, ......    If I cancel and cancel and cancel, the Word blank document screen finally appears and Word seems to work OK.   

word 2010 2 documents 1 toolbar

Posted: 05 Oct 2013 10:58 AM PDT

In Word 2010, I have 2 documents open with Arrange All". How do I get rid of one of the toolbars, as I used to do in other Words?

erratic mouse operation

Posted: 05 Oct 2013 10:21 AM PDT

After using Microsoft Word 2007 for years with a wireless mouse with no difficulties I recently experienced the following pro0blem.  The arrow controlled by the mouse is corrupted with the small rotating circle that indicates the processor is working.  There is a flashing back and forth between the normal arrow and the rotating circle.  The pointer is fully operational but difficult to know where you are and is extremely annoying. I  changed the mouse to a USB connected one and get the same problem  The issue in not the mouse but somewhere in Word.  The problem is not present in any other parts of Microsoft Office.

How to change a default setting about encoding when Word opens

Posted: 05 Oct 2013 09:14 AM PDT

When I try to log on to Word, I get a message that says: File Conversion - $Zotero.dot

 

Select the encoding that makes your document readable.

Text encoding:

 

Set to Chinese Simplified (GB2312)


It then says that "Word cannot open a document template" in a path in my user app data folder.

 

Is there a way to get rid of this from appearing each time I open Word2010?


Tried to do a print screen, but it seems not to have copied here.


Any help appreciated.

I can't print in Word 2010!

Posted: 05 Oct 2013 08:42 AM PDT

Hello,

I have Windows 8 and Office 2010 and every time I go to print in Word, the message "Word cannot print, there is no printer installed" pops up. I know for a fact that my printer is installed. It printed fine the other day and not it won't. My printer is listed as the default printer for my computer so I don't understand why it is telling me that there is no printer installed. I uninstalled and re-installed the printer and nothing changed. I can, however, print in other Office applications, such as Excel, and I can print in the Internet. Also, when I go to File and Print, there is a red exclamation mark in the customer page size field next to 8.5x11. This was never there before and I think this is a reason why it won't print. Can anyone help me please!!!

Word 2003 Autotext problem

Posted: 05 Oct 2013 08:29 AM PDT

No existing AutoTexts.  When I go to add an autotext entry via Insert > AutoText, the "New" option is greyed out.  I've tried creating a new default normal template, but that does not help.  How do I "ungrey" the New option?

Update for Rights Management Services Client for Windows 7 (KB979099)

Posted: 05 Oct 2013 07:24 AM PDT

Update for Rights Management Services Client for Windows 7 (KB979099).  When I click to "Continue", your system opens another dialog box "Genuine Windows Validation" in step one (1) "Run the validation tool" I click on the green "CONTINUE" button.  Your system downloads "GenuineCheck.exe" onto my HD.  When I "RUN" this executable program I repeatedly (six (6) times now) receive an error message "This version of Windows Genuine Advantage validation tool is no longer supported.  Please download the newest version and ensure that your system clock is accurate".  However, what you FAIL to offer is any location or name of the "newest version"!  After running the only other option I can find on your limited site, your system indicated "Windows validation in progress.  This may take a few minutes, do not navigate from this page".  It them brings up another screen stating, "Welcome to Windows!  Because Windows installed on your PC is genuine, enjoy the security, reliability and protection it provides".  However, all this great information still does not solve your error issues!  In order to Update for Rights Management Services Client for Windows 7 (KB979099), I must have a code produced by your erroneous, outdated validation program.  Please advise "your" solution to "your" outdated validation process so I may download the repair patch: KB979099.

key assignments not printing in 2007

Posted: 05 Oct 2013 06:35 AM PDT

I can't trackdown the macro that the key assignment Ctrl+1 runs. When I print assignments, the makes of the macro are not included. All it shows is that Ctrl+1 is a Global key assighment. How can I track it down and why aren't the macro names appearing in print assignments?

why error: word cannot complete the save due to a file permission error

Posted: 05 Oct 2013 05:51 AM PDT

I have a document that is synced by SkyDrive.  Two PCs. One is Windows 7, Office 2010. The other Windows 8, Office 2013.

 

Getting an error with a word document syncing on the windows 8 PC. On the Windows 8 PC I am told skydrive has a problem. It points me toward the document, I click to open the document, click to accept the changes from SkyDrive.  Still the same error. 

 

Then I make a change to the document on Windows 8, Office 2013 and Save.  Get error "word cannot complete the save due to a file permission error
".  Why is that?  Is SkyDrive on the  Windows 8 PC running with different permissions than my user account?

 

I navigate to the document in windows explorer. right click the file. security properties. I give Users "full control". Click apply.  I do not get a UAC prompt even though my account is not an admin account. Click OK.  Still same error.

 

What to do?  Why is this such a problem?

 

thanks,

 

right to left

Posted: 05 Oct 2013 05:50 AM PDT

I am trying to produce a Hebrew text. I follow all the instructions I could find; indeed, the displayed text is justified right. However, the cursor is at the right edge, and when I type the entered text is at the right edge. Selecting a Hebrew font like Miriam or Aharoni jumps right back to Times New Roman when I begin to type. Obviously I am missing some crucial setting. What is it?

Can't enter Ctrl to create keyboard shortcut

Posted: 05 Oct 2013 04:56 AM PDT

Word 2007: In the Customize Keyboard dialog box I am trying to enter Ctrl+1 as a shortcut key to run a macro. However, I can't enter Ctrl in the Press new shortcut key entry box. I've tried pressing the Ctrl key and I've tried typing the individual letters. Nothing seems to work. How can I get it to work?

Microsoft Word 2010 Starter Edition: Constant crashing

Posted: 05 Oct 2013 03:36 AM PDT

Hello everyone,

Up until a few months ago, my Word Starter Edition worked fine... but there came a point when every time I use the program now - it crashes after a period of 20 seconds or so. (I'm guessing the problem started following a Windows update???)

I've tried repairing the installation & removing my customised settings, but to no avail.

Frankly I don't know how I've managed to deal with this over the past few months, because every time I've wanted to do something in Word I've literally had to add a few lines of text at a time, and quickly save it before the inevitable crash happens a few seconds later... re-open the program and repeat the process.

Really frustrating problem and I'd be grateful if anyone has any ideas on how to overcome it.

Many thanks.

Eliminating heavy line created per APA format above and below a table

Posted: 05 Oct 2013 02:13 AM PDT

Cannot delete the heavy black line I created for a table even after the table was deleted. HELP!

Number formatting

Posted: 05 Oct 2013 01:55 AM PDT

Am trying to format a thesis


Each chapter has a title page where the words chapter xx, are above the title of the chapter.

My problem is I can easily apply a level 1 heading to the chapter title and then choose chapter under outlined numbering. But that does not give me the desired formating I want. I want to have the "chapter xx" appear centred above the chapter title.

See illustration below (my desire is to have Case 2 and not Case 1)

Need some help on how to customise the formatting to achieve this.

consecutive odd page numbers

Posted: 05 Oct 2013 01:47 AM PDT

I am writing a book. I have the book properly sectioned and the different even and odd page option selected. When I insert page numbers only the even number (2,4,6,8...) show up in the document. How do I get the odd numbers to show up in the document??

 

Word 2003 takes several minutes to open documents

Posted: 04 Oct 2013 10:21 PM PDT

I am trying to edit documents created on my work computer (Office 2000/2003) on my home computer (Office 2003).  When I try to open one of these documents I get the "busy" mouse cursor and the Word window shows "Not responding" at the top.  After several minutes nothing happens, but sometimes the document sometimes opens.  This also occurs if I double click on the document in the explorer window.

I'm not opening these docs over a network.  I've tried renaming the default template (as has been suggested by some people) but this does not help.  If I reopen word I get prompted to recover the document, with the warning that the doc caused a serious error last time it was opened.

Can anybody help here?

Word 2010 crashes with Insert>QuickParts>DocumentProperty>Comment

Posted: 04 Oct 2013 06:54 PM PDT

Hi
Anyone know of a solution to this??

I use Quick Parts ALOT.
But for the first time that I can recall I tried to Insert>QuickParts>DocumentProperty>Comment.


I have inserted other Document Properties in a blank document to check – that is all OK but EVERY time I select "Comment" it bombs out and crashes Word – forcing a shutdown as "Word has stopped working"


If instead I select Insert>QuickParts>Field>Comment it works fine – but of course that doesn't have the same "behaviour" in the document as Document Properties – i.e. it is not bi-directionally linked that if you change it in the document, it is not reflected back in the Document Properties dialogue, so if you select Update Field it reverts to the original Document Properties dialogue box value (all the other selections in QuickParts>Document Property are bi-directionally linked)

Something went wrong

Posted: 04 Oct 2013 06:23 PM PDT

I get something went wrong message when I try to open Word, Excel, OneNote and PowerPoint  office 2013. I have Windows 8

Can't print names of reviewers when printing tracked changes

Posted: 04 Oct 2013 05:00 PM PDT

When I track my changes to documents using bubbles in the side pane, the bubbles are colored by reviewer but also have the reviewer's name. However, when I print, the names disappear from the changes. How do I print the names with my tracked changes?

Put pages in order please

Posted: 04 Oct 2013 04:53 PM PDT

Hello from Steved

 

I have duplicate pages for example pages 1 to 10 have Races 1 to 10, and pages 11 to 20 have the duplicate Races 1 to 10

 

The second lot of Races 1 to 10 has different information than the first Races 1 to 10.

 

The objective please is to marry them together ie: page 1 and page then page 2 and page 2 and so on.

 

Each Page has he heading has the word RACE with the font Arial 20

The bottom of each page has 0 - 0 - 0 - 0 - 0 - 0

 

My macro is below.

 

Thankyou.

 

Sub Pagetest1()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "0 - 0 - 0 - 0 - 0 - 0"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.EndKey Unit:=wdLine
    Selection.TypeParagraph
    Selection.InsertBreak Type:=wdPageBreak
    With Selection.Find
        .Text = "RACE 1"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchSuffix = True
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.HomeKey Unit:=wdLine
    Selection.Extend
    With Selection.Find
        .Text = "0 - 0 - 0 - 0 - 0 - 0"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.Cut
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.MoveUp Unit:=wdLine, Count:=1
    With Selection.Find
        .Text = "^m"
        .Replacement.Text = ""
        .Forward = False
        .Wrap = wdFindContinue
        .Format = False
        .MatchSuffix = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.HomeKey Unit:=wdLine
    Selection.MoveUp Unit:=wdLine, Count:=2
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "RACE 2"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.HomeKey Unit:=wdLine
    With Selection.Find
        .Text = "0 - 0 - 0 - 0 - 0 - 0"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.EndKey Unit:=wdLine
    Selection.TypeParagraph
    Selection.InsertBreak Type:=wdPageBreak
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "RACE 2"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.HomeKey Unit:=wdLine
    Selection.Extend
    With Selection.Find
        .Text = "0 - 0 - 0 - 0 - 0 - 0"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.Cut
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.MoveUp Unit:=wdLine, Count:=1
    With Selection.Find
        .Text = "^m"
        .Replacement.Text = ""
        .Forward = False
        .Wrap = wdFindContinue
        .Format = False
        .MatchSuffix = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.HomeKey Unit:=wdLine
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "RACE 3"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.HomeKey Unit:=wdLine
    With Selection.Find
        .Text = "0 - 0 - 0 - 0 - 0 - 0"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.EndKey Unit:=wdLine
    Selection.TypeParagraph
    Selection.InsertBreak Type:=wdPageBreak
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "RACE 3"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.HomeKey Unit:=wdLine
    Selection.Extend
    With Selection.Find
        .Text = "0 - 0 - 0 - 0 - 0 - 0"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.Cut
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.MoveUp Unit:=wdLine, Count:=1
    With Selection.Find
        .Text = "^m"
        .Replacement.Text = ""
        .Forward = False
        .Wrap = wdFindContinue
        .Format = False
        .MatchSuffix = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.HomeKey Unit:=wdLine
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "RACE 4"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.HomeKey Unit:=wdLine
    With Selection.Find
        .Text = "0 - 0 - 0 - 0 - 0 - 0"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.EndKey Unit:=wdLine
    Selection.TypeParagraph
    Selection.InsertBreak Type:=wdPageBreak
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "RACE 4"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.HomeKey Unit:=wdLine
    Selection.Extend
    With Selection.Find
        .Text = "0 - 0 - 0 - 0 - 0 - 0"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.Cut
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.MoveUp Unit:=wdLine, Count:=1
    With Selection.Find
        .Text = "^m"
        .Replacement.Text = ""
        .Forward = False
        .Wrap = wdFindContinue
        .Format = False
        .MatchSuffix = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.HomeKey Unit:=wdLine
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "RACE 5"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.HomeKey Unit:=wdLine
    With Selection.Find
        .Text = "0 - 0 - 0 - 0 - 0 - 0"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.EndKey Unit:=wdLine
    Selection.TypeParagraph
    Selection.InsertBreak Type:=wdPageBreak
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "RACE 5"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.HomeKey Unit:=wdLine
    Selection.Extend
    With Selection.Find
        .Text = "0 - 0 - 0 - 0 - 0 - 0"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.Cut
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.MoveUp Unit:=wdLine, Count:=1
    With Selection.Find
        .Text = "^m"
        .Replacement.Text = ""
        .Forward = False
        .Wrap = wdFindContinue
        .Format = False
        .MatchSuffix = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.HomeKey Unit:=wdLine
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "RACE 6"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.HomeKey Unit:=wdLine
    With Selection.Find
        .Text = "0 - 0 - 0 - 0 - 0 - 0"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.EndKey Unit:=wdLine
    Selection.TypeParagraph
    Selection.InsertBreak Type:=wdPageBreak
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "RACE 6"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.HomeKey Unit:=wdLine
    Selection.Extend
    With Selection.Find
        .Text = "0 - 0 - 0 - 0 - 0 - 0"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.Cut
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.MoveUp Unit:=wdLine, Count:=1
    With Selection.Find
        .Text = "^m"
        .Replacement.Text = ""
        .Forward = False
        .Wrap = wdFindContinue
        .Format = False
        .MatchSuffix = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.HomeKey Unit:=wdLine
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "RACE 7"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.HomeKey Unit:=wdLine
    With Selection.Find
        .Text = "0 - 0 - 0 - 0 - 0 - 0"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.EndKey Unit:=wdLine
    Selection.TypeParagraph
    Selection.InsertBreak Type:=wdPageBreak
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "RACE 7"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.HomeKey Unit:=wdLine
    Selection.Extend
    With Selection.Find
        .Text = "0 - 0 - 0 - 0 - 0 - 0"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.Cut
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.MoveUp Unit:=wdLine, Count:=1
    With Selection.Find
        .Text = "^m"
        .Replacement.Text = ""
        .Forward = False
        .Wrap = wdFindContinue
        .Format = False
        .MatchSuffix = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.HomeKey Unit:=wdLine
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "RACE 8"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.HomeKey Unit:=wdLine
    With Selection.Find
        .Text = "0 - 0 - 0 - 0 - 0 - 0"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.EndKey Unit:=wdLine
    Selection.TypeParagraph
    Selection.InsertBreak Type:=wdPageBreak
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "RACE 8"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.HomeKey Unit:=wdLine
    Selection.Extend
    With Selection.Find
        .Text = "0 - 0 - 0 - 0 - 0 - 0"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.Cut
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.MoveUp Unit:=wdLine, Count:=1
    With Selection.Find
        .Text = "^m"
        .Replacement.Text = ""
        .Forward = False
        .Wrap = wdFindContinue
        .Format = False
        .MatchSuffix = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.HomeKey Unit:=wdLine
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "RACE 9"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.HomeKey Unit:=wdLine
    With Selection.Find
        .Text = "0 - 0 - 0 - 0 - 0 - 0"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.EndKey Unit:=wdLine
    Selection.TypeParagraph
    Selection.InsertBreak Type:=wdPageBreak
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "RACE 9"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.HomeKey Unit:=wdLine
    Selection.Extend
    With Selection.Find
        .Text = "0 - 0 - 0 - 0 - 0 - 0"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.Cut
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.MoveUp Unit:=wdLine, Count:=1
    With Selection.Find
        .Text = "^m"
        .Replacement.Text = ""
        .Forward = False
        .Wrap = wdFindContinue
        .Format = False
        .MatchSuffix = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.HomeKey Unit:=wdLine
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "RACE 10"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.HomeKey Unit:=wdLine
    With Selection.Find
        .Text = "0 - 0 - 0 - 0 - 0 - 0"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.EndKey Unit:=wdLine
    Selection.TypeParagraph
    Selection.InsertBreak Type:=wdPageBreak
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "RACE 10"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.HomeKey Unit:=wdLine
    Selection.Extend
    With Selection.Find
        .Text = "0 - 0 - 0 - 0 - 0 - 0"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.Cut
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.MoveUp Unit:=wdLine, Count:=1
    With Selection.Find
        .Text = "^m"
        .Replacement.Text = ""
        .Forward = False
        .Wrap = wdFindContinue
        .Format = False
        .MatchSuffix = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.HomeKey Unit:=wdLine
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
    End Sub

360 never loads the first time around.

Posted: 04 Oct 2013 03:55 PM PDT

I downloaded 360 and whenever I go to open a new or existing document it just "thinks and thinks and thinks."  I have to cancel out reopen and then it immediately opens the document. FRUSTRATING.  This happens on Word, Excel and Publisher.  Help!