Solved

Word95 Macro style search returns "" in table

Posted on 1998-03-29
5
195 Views
Last Modified: 2006-11-17
If I search for a style using a macro and then examine the contents of the selected text the resultant field contains blank when the style is found to be in a table but it does contain the correct data when it is found in the main body of the document. Any ideas?
0
Comment
Question by:Lester032998
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
  • 2
5 Comments
 
LVL 3

Expert Comment

by:frazer
ID: 1611847
Hi,

Can you post the code, that should enable me to tell where the problem is.

Frazer
0
 

Author Comment

by:Lester032998
ID: 1611848
Hi Fazer,

As requested the portion of code that is causing the problem !  (I have adapted the code from a macro written for Winfax.. If you hadn't already noticed :-) )

----------------------------------

fax$ =  "wfxFaxNum"

StartOfDocument
' Find recipent's Fax Number. (No FaxNumber, No DDE Send!!)
On Error Goto bye
EditFindStyle .Style = fax$
EditFind .Find = "", .WholeWord = 0, .MatchCase = 0, .Direction = 0, \
      .Format = 1
If EditFindFound() <> - 1 Then Goto bye
faxnum$ = Chr$(34) + Selection$()  + Chr$(34)

Should enclose the selected text in quotes ready for DDE
0
 
LVL 3

Expert Comment

by:frazer
ID: 1611849
Hi,

Which version of word are you using?

could you also post all the code as i am hoping it will give me a better understanding of your problem.

Thanks

Frazer
0
 
LVL 3

Accepted Solution

by:
frazer earned 100 total points
ID: 1611850
Hi,

I just noticed the answer to my question is in the title.....Doh!!!

I think you need to make the following adjustments

1)In the line
faxnum$ = Chr$(34) + Selection$()  + Chr$(34)

replace the "+'s" with &

2)In the line
EditFind .Find = "", .WholeWord = 0, .MatchCase = 0, .Direction = 0, \

replace the \ with _

3)Remove all occurances of $
I think it may be confusing VBA

These changes will probably reveal other errors.
Let me know what they are if and when they occur.

Hope this helps

Frazer
0
 

Author Comment

by:Lester032998
ID: 1611851
Thanks Frazer, works fine now, but it still remains a mystery why it worked for the body but not for the table. In any case I can not reproduce the error even when I reset the macro back to it's original syntax. So although you were intumental in solving this puzzle, I think that it may have solved itself without any other intervention other than the usual MS response "Switch off & on again".

Thanks anyway you earned your points.

BTW you can email me at LesterSK@aol.com to arrange a chat  ... should you so desire.

Lester
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Microsoft Office Picture Manager is not included in Office 2013. This comes as a shock to users upgrading from earlier versions of Office, such as 2007 and 2010, where Picture Manager was included as a standard application. This article explains how…
Using Word 2013, I was experiencing some incredible lag when typing.  Here's what worked for me....
The view will learn how to download and install SIMTOOLS and FORMLIST into Excel, how to use SIMTOOLS to generate a Monte Carlo simulation of 30 sales calls, and how to calculate the conditional probability based on the results of the Monte Carlo …
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…

730 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question