Problem searching for text in a range

server · Guest

message unavailable

Google · Sponsor

Klaus Linke · Guest

Hi Simon,

After you Execute, the range is set to the matched text.

You need something like

Dim oRangeOld as Range
Set oRangeOld = p_oRange.Duplicate

Do While Not l_bFinished
p_oRange.Find.Execute vbCr, Forward:=True
If p_oRange.Find.Found Then
' ...
p_oRange.Collapse(wdCollapseEnd)
p_oRange.End=oRangeOld.End
Else
l_bFinished = True
End If
Loop

Or, since Execute returns True if some match was found, you could do without
l_bFinished, and re-write the code to something like "Do While .Execute(...)
Loop"

Regards,
Klaus

Simon Woods · Guest

Klaus Linke wrote:

Pat Garard · Guest

G'Day Helen,

When editing a document called (say) 'Example.doc', Word creates one or
more temporary files for its own purposes.

These may have names like '~$ample.doc' (usually in the same folder as
'Example.doc') and 'AutoRecovery save of Example.asd' (in the
AutoRecover folder).

Following a successful Close of the Document, these should be deleted by
Word - but sometimes they are not.

You seem to be using one of these files for YOUR purposes - and confusing
Word into the bargain.

You should probably 'clean up' any files of this kind that you find - i.e.
delete
them OR if they seem to be valuable then rename them.
--
Regards,
Pat Garard
Melbourne, Australia
_______________________

"Helen" <Helen@discussions.microsoft.com> wrote in message
news:26111C58-5FE2-42A4-BF74-510D51FC092A@microsoft.com...

Guest · Posted: Wed May 30, 2007 2:03 pm Post subject: Command button problem

Hi Jason,
I was looking earlier today at this site for a solution to a very similar problem but unluckily there was no answer to your question.
My problem was that in the protected Word form document I was changing the content of the header and footer and after that when trying to re-protect a document back I was getting the same error "The ToolsProtectDocument statement is currently
disabled". After some time I realised I had to select any form cell in the main document body before trying to protect the document again and this has worked. Here it is, the two liner I am talking about :
....
ActiveDocument.FormFields(1).Select
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
....

If not too late, I hope this will help you or maybe somebody else.

Cheers
Darko

EggHeadCafe.com - .NET Developer Portal of Choice
http://www.eggheadcafe.com

CJ · Guest

I am reposting this request to this forum. I apparently posted to wrong
forum and never received another response where to re-post. Please read
from bottom up for full understanding. Thanks in advance for any
assistance.
-CJ

"CJ" <LonestarCJ@nospam.com> wrote in message
news:uVwmGt9wHHA.600@TK2MSFTNGP05.phx.gbl...

Doug Robbins - Word MVP · Guest

See response to your original post in the UserForms newsgroup.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"CJ" <LonestarCJ@nospam.com> wrote in message
news:uLDxEGBxHHA.1776@TK2MSFTNGP03.phx.gbl...

Klaus Linke · Guest

Hi Chris,

Word 2007 also has very nice options to set the paste options, depending on
whether you cut/copy/paste inside a doc, between docs (with the same or
different styles), or from another program.
(Office button > Word options > Advanced > Cut, copy and paste... or
something like that)

I really like those new options settings ... A macro for pasting unformatted
is still good to have in the toolbox, though :-)

Regards,
Klaus

ParanoidMike · Guest

I haven't had any response so far - perhaps a more attention-getting
Subject will help? If anyone has any suggestions on what I should try
to modify in my VSTO code, to get these toolbar buttons to actually
run the code I've tried to connect to them, I'd sure appreciate the
help.

e.g. even though I've declared each CommandBarButton using the
"WithEvents" keyword *and* I've included an Event Handler subroutine
for the button's Click event, is it necessary to actually Add the
button each time the Add-in runs?

I notice that I've coded this Add-in in a way that it only Adds the
button if it doesn't currently exist (marked with *** below), so that
after the first time I launch Word, it should never add the button
again. However, I had assumed that once the button (with its Event
Handler) was created the first time, the Event Handlers would fire on
their own without any additional Startup activity for the Add-in. Is
this a false assumption?

Thanks, Mike

On Oct 30, 9:01 am, ParanoidMike <mikesmithloner...@gmail.com> wrote:

Chris Boorman · Guest

I'm aware of Word 2007's new paste options, but I've found that they are
unsuitabled to my needs.

"Klaus Linke" <info@fotosatz-kaufmann.de> wrote in message
news:%23xqA0B0FIHA.5272@TK2MSFTNGP05.phx.gbl...

Swapnil Shejul · Guest

Hi Mike,

Well ! I am not expert in this field and writing some of my early Plugins
using VSTO.
But I came across exactly same problem as yours !

I guess u will have to make the declaration of commandbar variable at class
level.To simplyfy the process I will paste my code (this was written for a
OUTLOOK plugin) but i guess it is not a big deal to convert it for WORD.

'-------------------------CODE SNIPPET STARTS----------------------
Public Partial Class ThisAddIn
Private Const MENU_BEFORE As String = "Help"
Private menuBar As Office.CommandBar
Private helpMenuIndex As Object
Private topMenu As Office.CommandBarPopup
Private MenuItem1 As Office.CommandBarButton
Private BankMenuItem1 As Office.CommandBarButton
Private BankMenuItem2 As Office.CommandBarButton

Private Sub ThisAddIn_Startup(ByVal sender As Object, ByVal e As
System.EventArgs)

If MessageBox.Show("Do u want to proceed for plugin?",
"Plugin-startup message", MessageBoxButtons.YesNo, MessageBoxIcon.Question) =
DialogResult.Yes Then
Me.InitializeMenu()
Me.AttachEventHandler()
End If
End Sub
Private Sub InitializeMenu()
'Get the Active menu bar
menuBar = Me.Application.ActiveExplorer().CommandBars.ActiveMenuBar

' Get the index of the Help menu on the Outlook menu bar.
Try
helpMenuIndex = menuBar.Controls(MENU_BEFORE).Index
Catch ex As Exception
helpMenuIndex = menuBar.Controls.Count
End Try
' Add the top-level menu right before the Help menu.
topMenu =
DirectCast(menuBar.Controls.Add(Office.MsoControlType.msoControlPopup,
Type.Missing, Type.Missing, helpMenuIndex, True), Office.CommandBarPopup)
topMenu.Caption = "Test Menu"
topMenu.Visible = True
'--------Add FIRST sub-item to "Bank
Menu"-------------------------------
BankMenuItem1 =
DirectCast(topMenu.Controls.Add(Office.MsoControlType.msoControlButton,
Type.Missing, Type.Missing, 1, True), Office.CommandBarButton)
BankMenuItem1.Caption = "TestButton1"
BankMenuItem1.Visible = True
'--------Add SECOND sub-item to "Bank
Menu"-------------------------------
BankMenuItem2 =
DirectCast(topMenu.Controls.Add(Office.MsoControlType.msoControlButton,
Type.Missing, Type.Missing, 2, True), Office.CommandBarButton)
BankMenuItem2.Caption = "TestButton2"
BankMenuItem2.Visible = True
'------Add button DIRECTLY to the topmost level in the outlook
menubar----------------/
MenuItem1 =
DirectCast(menuBar.Controls.Add(Office.MsoControlType.msoControlButton,
Type.Missing, Type.Missing, 1, True), Office.CommandBarButton)
MenuItem1.Caption = "ATM-List"
MenuItem1.Visible = True
End Sub
Private Sub MenuItem_Click(ByVal cmdBarbutton As
Office.CommandBarButton, ByRef cancel As Boolean)
If MessageBox.Show("Do u want to send Email?", "Send An E-Mail",
MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
SendEmail()
End If
End Sub
Private Sub BankMenuItem2_Click(ByVal cmdBarbutton As
Office.CommandBarButton, ByRef cancel As Boolean)
MessageBox.Show("BankMenuItem2 button was clicked",
"Bank-Button2-ClickEvent")
End Sub
Private Sub SendEmail()
' Create a new e-mail item.
Dim mailItem As Outlook.MailItem =
DirectCast(Me.Application.CreateItem(Outlook.OlItemType.olMailItem),
Outlook.MailItem)

' Set the Subject property of the new MailItem.
mailItem.Subject = "Hello World!"

' Set the To address of the new MailItem to the username for the
current session.
'mailItem.To = this.Session.CurrentUser.Name.ToString();
mailItem.[To] = "swapnil.shejul@gmail.com"
' Set the body of the new MailItem.
mailItem.Body = "This is the first Outlook application I " +
"created by using Visual Studio Tools for Office."

' Display the new MailItem.
mailItem.Display(False)

' Show a message box with options to send or not send the e-mail
message.
If MessageBox.Show("Would you like to send your Hello World! e-mail
message?", "HandsOnLab.Lab", MessageBoxButtons.YesNo,
MessageBoxIcon.Question) = DialogResult.Yes Then
' Yes, send this message.
DirectCast(mailItem, Outlook._MailItem).Send()
Else
' Do not send this message. Close the MailItem and discard any
changes.
DirectCast(mailItem,
Outlook._MailItem).Close(Outlook.OlInspectorClose.olDiscard)
End If
End Sub
Private Sub ThisAddIn_Shutdown(ByVal sender As Object, ByVal e As
System.EventArgs)
End Sub

'--------------------------------------------------------------------------------------------------
Private Sub AttachEventHandler()
AddHandler MenuItem1.Click, AddressOf MenuItem_Click
AddHandler BankMenuItem2.Click, AddressOf BankMenuItem2_Click

'--------------------------------------------------------------------------------------------------------------
End Sub

End Class

'-------------------------CODE SNIPPET ENDS----------------------

Hope this helps you a bit :-)

N'Joy Life N Try Hard,
Swaps

"ParanoidMike" wrote: