Solved

Word95 Macro style search returns "" in table

Posted on 1998-03-29
5
192 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
  • 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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
Excel 2013 Drop down help with data 3 58
Office.Com /myAccount 9 41
OCT or Config.xml 2 41
Recover lost Hyperlink destination/target in OneNote 3 30
Some time ago I was asked to create a VBA function that would calculate a check digit for an input number, using the following procedure: First, sum up all the individual digits in the number If that sum value has more than one digit, then sum up …
Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
Learn how to create and modify your own paragraph styles in Microsoft Word. This can be helpful when wanting to make consistently referenced styles throughout a document or template.
Excel styles will make formatting consistent and let you apply and change formatting faster. In this tutorial, you'll learn how to use Excel's built-in styles, how to modify styles, and how to create your own. You'll also learn how to use your custo…

895 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

Need Help in Real-Time?

Connect with top rated Experts

18 Experts available now in Live!

Get 1:1 Help Now