Pages

Search

Microsoft Word - check box enforcement

Microsoft Word - check box enforcement

check box enforcement

Posted: 07 Jun 2013 12:45 PM PDT

After adding check boxes to my word doc it will not let me highlight the "yes, start enforcing protection" and I don't know why?

2 questions about a Search loop

Posted: 07 Jun 2013 10:24 AM PDT

Hello, folks,

 

I want to make what I THINK would be a pretty straightforward loop.  It needs to search a document for text between quotation marks, underline the first Find, pause and ask the user if they want to continue (like a regular Word search-and-replace does), and if the user clicks yes, continue the search from right after the first Find, search for the next Find and underline it, pause again, asking the user if they want to continue, etc.   I'd be grateful for any help. Thank you, -Lynne.

2 QUESTIONS:

1-How to make the screen show what each Find is, as the macro moves along?

2-How to make the loop continue after the first Find?  (See With/End With #3, in the code.)

What I've got so far works fine, but I don't know how to make the loop continue after the first Find. 

In the macro, first are the Dims for the Message Box to ask if user wants to continue.  It has Yes and No buttons.

Next is the Dim for the Search and Replace range.

Then is the SEARCH LOOP.  It has 3 With/End With statements:  #1 underlines the SearchAndReplaceRng.  #2 gets rid of underlining of any commas.  #3, I THINK(?), would reset SearchAndReplaceRng to be from after the most recent Find to then end of the document.

Also, the screen needs to show where the Find has paused.  Right now, it doesn't.

 

Here's my code:

Sub TESTForTermByTerm()

'==***========================

'Dims for the Yes/No MsgBox:

Dim Msg, Style, Response, MyString

Msg = "Continue ?"

Style = vbYesNo

'==***========================

'Dim for the Seach/Replace:

Dim SearchAndReplaceRng As Range

Set SearchAndReplaceRng = ActiveDocument.Content

'==***========================

'Search loop:

With SearchAndReplaceRng.Find

  .ClearFormatting

  .Text = "[^0034^0147]*[^0034^0148]" '<-- Search for text between quotes

  .Forward = True

  .Wrap = wdFindStop

  .MatchWildcards = True

  Do While .Execute

'==*** ========================

'With/End With #1:

        With SearchAndReplaceRng

            .MoveEnd Unit:=wdCharacter, Count:=-1 '<-- .MoveEnd = move LAST UNIT of SearchAndReplaceRng left 1 char, to inside of quote

            .MoveStart Unit:=wdCharacter, Count:=1 '<-- .MoveStart = move FIRST UNIT of SearchAndReplaceRng right 1 char, to inside of quote

            .Font.Underline = True

        End With

'==*** ========================

'With/End With #2:

        With SearchAndReplaceRng.Find '<--look for any underlined commas and de-underline

            .Text = ","

            .Font.Underline = True

            .Replacement.Text = ","

            .Replacement.Font.Underline = wdUnderlineNone

            .Execute Replace:=wdReplaceAll

        End With

'==*** ========================

'With/End With #3:   ß HELP?

        With SearchAndReplaceRng

            'Move the end of the range to 4 chars after the end of the find, then collapse it?

            .MoveEnd Unit:=wdCharacter, Count:=4 '<-- .MoveEnd = move LAST UNIT of SearchAndReplaceRng right 4 chars  ?

            .Collapse Direction:=wdCollapseEnd     'ß Reset range to be from here to end of document  ?

        End With

'==*** ========================

        Response = MsgBox(Msg, Style)

        If Response = vbNo Then      'ß if NO to CONTINUE? then

            GoTo STOPNOW        'ß DROP OUT OF LOOP

        End If

'                                 'ß Else, continue with loop...

    Loop

STOPNOW:

End With

End Sub

 

 

 

Inserting caption makes the figure disappear

Posted: 07 Jun 2013 02:28 AM PDT

Hi,

I've been working on a large document with lots of figures, equations etc. When I opened the document today and tried to add a caption to a figure, the figure just disappears. It disappears in the same instant when I click Insert Caption - no matter if it is right click of mouse or at  References tab. I haven't changed any settings since the last time I used the document and it worked fine before. Adding captions to tables still works fine.
The same happens in any other document (and any figure) so it must be a global setting.

I tried changing a tamplate as described in 'How to troubleshoot damaged documents in Word 2007 and in Word 2010' but it didn't help.

What else can I do?

Thanks in advance
Andrzej

Word could not establish a DDE contection to Excel spreadsheet ( after doiing so for past 12 months)

Posted: 06 Jun 2013 05:55 PM PDT

I have a suite of Word documents that are templates and I merge the Winword ( office 2007) with Excel Data Spreadsheet. I have been doing this for over ten years and when I upgraded to Office 2007 sundenly I could no longer create new Word.Doc Templates as the upgraded Office 2007 for some reason would not allow the DDE merge I therefore had to choose options which would not carry the cell formats through the the template. When I did this it results in some strange highlighting and the dollar figure and date formats appearing as PLAIN NUMBERs ONLY.

I tried to get the answers from Microsoft but hey no luck so I contented my self with having to copy an old Template and make changes to suit new needs. Then about a year ago I created a new .Doc Template chose the DDE version and glory be it worked.

Then yesterday 6/6/13 I when I open ANY of my templates I get the above message which pushes me back to the other option that don't carry the formating over.

Win7 operating System on VMware on Mac Air ( the mac is brilliant for this)

how do I paste the Word Count box onto my document? my professor requires that it be on my paper.

Posted: 06 Jun 2013 04:46 PM PDT

How do i paste a word Count box onto my paper?

Word 2010 drop-down boxes: Any way to change "Choose an item?"

Posted: 06 Jun 2013 04:30 PM PDT

As you know, when you create a drop box in Word 2010, the drop box text displays a greyed out "Choose an item." Is there any way to change this? I've tried removing it from Properties and tried adding a custom entry with no value, but it always says "Choose an item." I would rather have it say "Select a time zone."

Thanks for any help,

Brad

Can't delete a Word document

Posted: 06 Jun 2013 08:34 AM PDT

I am using Word 2010 and I have a Word document on our server that is an older version (.doc). I am trying to delete that old document but I keep getting a message that it is open by another user. No one is in this document. I saw the hidden temp file for it and I deleted it thinking that would do the trick but I still get the message that another user is in it. I even tried deletign from the server itself but no luck. Can anyone please tell me how I can trash this old document?

 

Thank you!

Lauren M.

Mail Merge with Excel Workbook inserts erroneous first name

Posted: 06 Jun 2013 07:01 AM PDT

I am versed in mail merge using Word as the letter template and an Excel spreadsheet as the data source. In a recent merge Word (or Excel) is inserting 12:00 AM as the first name in the address block and in the greeting line. The worksheet shows the first name correctly but the merged document inserts the erroneous "12:00 AM" name in every letter. I tried rewriting the letter from scratch. I tried moving the columns in the workbook. I exited the programs and rebooted the computer. I saved the files as new names.

I run Windows 7 with all updates and Office 2013 with all updates. I can send both the Word letter and the Excel spreadsheet for analysis.

Unable to access MS Word

Posted: 06 Jun 2013 06:47 AM PDT

I suddenly got the message "MS Word has not been installed for the current user. Please run setup to install application". I've had MS Word in my PC since I bought it 4 years ago.  I've tried rebooting the computer to an earlier backup point, but that only gets Word back temporarily. Why is this happening and how do I get it back?

how to insert two headers in a page?

Posted: 05 Jun 2013 01:11 PM PDT

Hello All,

I have excel macro, which opens a collection of word docs one by one and does some data manipulation. I have two questions which I could not solve:

1) I am trying to have two different headers and the headers should only be visible on the first page. Is that possible?
    For Example: Center aligned header in first page should read "Sample Text 1" with font size 12 CALIBRI and the right aligned header should read "Sample Text 2" with font size 16 CALIBRI. Is this possible?

2) Similarly, I want to have a footer but only in the LAST page (This last page keeps on changing with the docs).
For Example: Center aligned footer in last page should be "Sample Footer Text1" with font size 8 CALIBRI and the right aligned footer should read "Sample Footer Text2" with font size 8. Is this possible or am I just day dreaming?

Thanks in advance for all the help :)

Spellcheck and Autotext in Forms with Input Interface created in VBA 7

Posted: 05 Jun 2013 11:28 AM PDT

First off, I am not a programmer in any sense....I took one programming 101 course in college like 15 years ago.   So I'm sure I have no idea when it comes to proper lingo so I apologize in trying to explain this.   

 

I put together a Word template with an interface created in VBA 7 that populates a Word 2010 document from an input form.   Works great except for two big things....and these may be deal breakers with my bosses on this project!  

 

After I type in the data on the input form and close the input window, the data from the user form goes into the document like it is supposed to.  The problem is that spellcheck will not spellcheck anything that I put into that form using the input form.   And any autotext shortcuts do not work if I put them in on the the input form.   My guess is that Word treats this text as a field or it is somehow marked to not check it or read that data.  If I skip the input form and just type directly on the form, spellcheck and autotext works the way it is supposed to.    Or I can use the form for part of it and skip other parts, but still, only the portions that I input later without the input form have full functionality.  

 

I really don't want to skip the input form!  The beauty of the input form is that I don't have to tab through 100 different fields within the form which is setup using a complicated table.   So I want my cake (the input form), and I want to eat it too (Spellcheck and autotexts need to work)!

 

I have been looking at these issues for a while now and see some previous posts on how the document cannot be locked/protected.    I have tried it both ways with the document locked and without.   Grouping sections, different sections, etc.   The problem is anything that comes from the input form is essentially not recognized when spellchecking or using autotexts.  

 

I also tried setting up a macro that selects the entire document after the input form and then run Ctrl+Shift+F9 to convert fields to straight text.   It still will not allow me to spellcheck anything that came from that input form. 

 

I also used the spellcheck macro suggested on one of the MVP sites and got that macro to work, but it does the same thing.  It skips anything that put in on the input form. 

 

What am I missing?   Any ideas?   Thanks in advance. 

 

 

Word and Accdb mail merge without Access

Posted: 02 Jun 2013 03:52 PM PDT

I have an Access 2010 DB on a home network drive. Both of my home PCs have Office 2010 Professional (including Access).

I intend borrowing a friends laptop to help me run a small application for a club. His PC has a version of Office 2010 that excludes Access.

Does anyone know if I can use that PC, without Access, to run a Word mail merge using my networked Access DB as a data source?

Many thanks
Dave