Pages

Search

Microsoft Word - Need to modify a Macro that uses a loop to find text in Word documents

Microsoft Word - Need to modify a Macro that uses a loop to find text in Word documents


Need to modify a Macro that uses a loop to find text in Word documents

Posted: 09 Mar 2015 01:53 PM PDT

Microsoft created the following macro that uses a loop to find text in Word documents. In this instance I've modified it to find "word1" and insert "NOTE=" for every instance of "word1" in the document. I have many different words to find, for example, "word2", "word3", "word4" etc. but would prefer to reference a list of words rather then create a separate macro for each word. Possible?

Sub FindWord()
    With ActiveDocument.Content.Find
        .ClearFormatting
        .Text = "word1"
        Do While .Execute(Forward:=True, Format:=True) = True
                With .Parent
                    If .End = ActiveDocument.Content.End Then
                        .StartOf Unit:=wdParagraph, Extend:=wdMove
                        .InsertAfter "NOTE="
                        Exit Do
                    Else
                        .StartOf Unit:=wdParagraph, Extend:=wdMove
                        .InsertAfter "NOTE="
                        .Move Unit:=wdParagraph, Count:=1
                    End If
                End With
        Loop
    End With

End Sub

Original source found at this location: http://support.microsoft.com/kb/306338

Removing graphical artifacts from bulk scanned documents -- any best way with Office?

Posted: 09 Mar 2015 11:19 AM PDT

I'm currently involved with a batch file book-scanning project.  The scanner we're using does a great job of converting scanned documents to formatted RTF files save for one problem -- numerous graphical artifacts.  If a page isn't aligned perfectly, you can get a black triangle at one corner, for instance.  If you eliminate the artifacts manually, you're left with EXACTLY what you want (there are no graphics with the pages I'm scanning).

Naturally, I'd like to automate this process.  I've tried doing a search and replace on graphics (^g), but it only gets rid of some of them -- there's still plenty left.  You can FIND the remaining ones using the search pane and selecting graphics from the pulldown list, but you can't delete them.  I've also had no luck deleting them all using a macro to step through the shapes in the document.

I also can't seem to find any straightforward how-to after a lot of web searching.  I suppose what I'm asking is, "is there an easy way to purge graphics from an RTF file using Word 2013?"

text from a file in word 2007

Posted: 09 Mar 2015 11:18 AM PDT

Hi all

i have a project were i need to be able to replace data from were the cursor is with the contents of a file. i have found the insert text from a file but i can't seem to be able to overwrite instead of insert.

Printer settings versus document settings

Posted: 09 Mar 2015 11:10 AM PDT

Hi,

Would I be right in saying that Page Layout settings in a Word 2010 document will automatically be changed depending on what printer you are using? i.e. you would have to re-configure each document to suit the printer even if the paper trays are in the same place e.e. Tray1 plain Tray 2 Letterhead...

This seems bizarre when the Microsoft site seems to suggest the opposite - that the document settings will supercede the printer settings!

Would be grateful for any help with this as we have 2 teams each with a different make of network printer accessing the same lot of template letters and forms  day in day out. 

Thanks

mary

Is there a way to find multiple letters sent to multiple people without knowing their names?

Posted: 09 Mar 2015 09:32 AM PDT

I work for a non-profit and I've been asked to find letters sent to donors over the past couple of years with the goal of discovering how many donors received the same letter over and over again, no matter how often/how much they donated.  Unfortunately I do not know any of the donor's names that may have received the same letter over and over, and most likely, this will apply to numerous donors.  All the letters sent are in a file on a shared drive.

I'm probably asking for something that is impossible, but thought I would post this just in case someone could help me.

File tab menu options different for users in Office 365/2013

Posted: 09 Mar 2015 08:37 AM PDT

We've noticed that users are seeing different options when they click on the File tab in Office 365/2013. More specifically, when they go to Open or Save As

When clicking on "Open" or "Save As" some people see SharePoint as an option where as other people do not see the SharePoint option.

We have some people that are trying to Open and Save OneNote files to a SharePoint site, but since they do not see this option, they are not able to.

This is very random where some people see it and some do not. All of them have MySites content personal sites.

In troubleshooting I installed Office 365/2013 on a new computer and the first time I launched Excel it said "loading services". I am not able to determine where these services were loaded and what variable is different for the users missing the SharePoint option in the File tab.

Thank you.

Windows 7 Pro 64 - Won't print MS Office and other files

Posted: 09 Mar 2015 08:11 AM PDT

I have a computer running Windows 7 Pro, with Office 2010. When trying to print from Office or Adobe, the job gets stuck in a status of "spooling" and will not print. I have one printer directly hooked up (Brother HL-2270DW), and I've tried it with the same brand of printer, but over the network using a print server. It will print from Notepad, but not Office or Adobe.

I have run all the updates, gotten the latest print drivers, tried all of the other suggestions I could find... stopping/starting print spooler service, deleting all the files in the system32\spool\printers folder, taken ownership of spoolsv.exe, removed the printers, uninstalled the drivers, reinstalled the drivers, re-added the printers, used the troubleshooter in the control panel... you name it, I've tried it. It's still not working. Every other pc on my network with an identical platform has no problem printing anywhere.

I've noticed other people that have had this issue, but none of the solutions given were of any help in my situation. Any information is appreciated. Thanks.

table of contents right tab with indent not working with A4 paper

Posted: 09 Mar 2015 07:11 AM PDT

This only seems to be a problem with non-standard paper, like A4. We set up our table of contents to have a right-tab, dot-leader indent and text with a right indent of .5" so it doesn't go all the way to the number. With A4 paper, it will not set the tab beyond the indent marker. It cannot be set with the ruler or in style settings and stay as set. With standard paper, we have to set it in settings--it won't work if you try to slide the indent to the left of the tab--the tab jumps to the indent marker.

The only thing I've found to work, but only sometimes, is to change the paper size to standard 8.5x11 and then back to A4. But that only works some of the time. Some of our documents are very large so it's a loss of productive time trying to get this to work or manually fix the lines.

Thanks

Word 2010 In Word Highlight a number in a range then highlight with Turquoise

Posted: 09 Mar 2015 02:43 AM PDT

Hello from Steved

Ok in "Word" why will the below not find the number "7" in a range that I've chosen by highliting it, then highlight with Turquoise. Thank you

Sub testing()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "Ch1"
        .Replacement.Text = ""
        .Forward = False
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = True
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.HomeKey Unit:=wdLine
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.Extend
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[0-9]{1,} - [0-9]{1,}"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute
    Selection.MoveUp Unit:=wdParagraph, Count:=2, Extend:=wdExtend
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "7"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContine
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Options.DefaultHighlightColorIndex = wdTurquoise
    Selection.Range.HighlightColorIndex = wdTurquoise
End Sub

Sign in message in Word

Posted: 08 Mar 2015 07:23 PM PDT

Hello...I recently purchased MSOffice and have been using Word for a writing project.  With my new laptop, I keep getting a message at the top of my document: "UPLOAD FAILED: You are required to sign in to upload your changes to this document."

There is a small box that says "Sign In" that seems to be a link, but when I sign in, nothing happens.

I know I am signed into MS with my account. I can get to OneDrive and see the documents I have stored there, but I cannot seem to do the reverse: save a document to OneDrive because it thinks I'm not logged in.

Unless there's a step I don't know about when it comes to logging in here? 

When I go to the Word screen that lists my recent documents, it says my changes were saved but could not be uploaded because I'm not signed in to the server. The "Resolve" box doesn't help; it also gives me the sign in option, but when I click on that, nothing opens.

I have looked on Microsoft's OneDrive help pages but I cannot see this addressed anywhere.

Thank you in advance for any help you might be able to provide.

Word and Excel (and possibly other apps) do not open - BEX error

Posted: 08 Mar 2015 06:23 PM PDT

The template screen will appear, but if I try to open a new document or even an old one I get the following error:

Problem signature:
Problem Event Name: BEX
Application Name: WINWORD.EXE
Application Version: 15.0.4691.1000
Application Timestamp: 54ab960b
Fault Module Name: unknown
Fault Module Version: 0.0.0.0
Fault Module Timestamp: 00000000
Exception Offset: 0040d3fc
Exception Code: c0000005
Exception Data: 00000008
OS Version: 6.1.7601.2.1.0.256.48
Locale ID: 1033

Additional information about the problem:
LCID: 1033
skulcid: 1033

I have uninstalled, deactivated, reactivated, reinstalled, and restarted.  I do not have this problem on any other system.  I am running Windows 7 SP1, fully updated.  Any thoughts?

How to change default spacing between a bullet and text in a table in microsoft word 2010

Posted: 08 Mar 2015 04:55 PM PDT

Hi all........I'd like to do two things:

1. In a Table, change the default space between a bullet (or number) and the text. I'd like to make it smaller........the extra spacing wastes space in my table.

In other words, the default bullet spacing

Default table bullet spacing looks like this

  1.     1st level

                      2.      second level

I'd like it to look more like this

1.  1st level

     2.  Second level




ie starts like this

  •    text
  • I'd like it to look more like this (less space between the bullet and the text, but saved as a default for the document I'm working on and all documents.

2. Change the Default setting on all my Word 2010 documents for bullet spacing

it looks like this now

  1.     Text
               a)       second level

                                     b)  third level

And I'd like it to default to something like this

1. Text

    a)  second level

         b)  third level

Can you help?

Thanks!!

Office Word 2013 Will Not Open

Posted: 08 Mar 2015 04:19 PM PDT

I just Downloaded Office 2013 to my computer Thursday. Now none of the apps will open. I don get a message or anything. Every time I click on an to open it, It just takes me to my desktop screen. I have tried doing it in "Safe" mode and still nothing.

Proofing tool (spanish) isn't recognized by Word 2013 after installation

Posted: 08 Mar 2015 11:04 AM PDT

I'm writing a spanish text and I wanted to use the Spanish spellchecker from Word.

So I downloaded the Spanish proofing tool. The installation was successful, but in Word I still get the message that Word can't check the spelling.

When I check the options in Word and go to Language, I see that the language Spanish (Spain) isn't installed even after I just installed it.

The things that I already tried:

  • Restarted Word
  • Restarted computer
  • Installed the proofing tools as an administrator

Can someone please help me solve this problem?