Parsing string on clipboard
Hi folks,
Sorta a followon from my "on focus clipboard" message.
I want to parse the data on the clipboard into textbox of a userform.
The data looks like:
Pers ID: 20456035839 Master RNS: 5476121
(Real) SMITH, MICHAEL JOHN
(Contact Address) 8 FORD ROAD, WHITTAMS, AUCKLAND CITY 1750
I had a go myself and ended up hardcoding everyting - it was pretty ugly.
lines like
RNS = Mid(clipbd_string, InStr(clipbd_string, "Master RNS: ") + Len("Master
RNS: "), 8) 'RNS max length is 8
Surname_name = Mid(clipbd_string, 52, (InStr(clipbd_string, ",") - 52))
Anyone have any better ideas?
-Al
-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com - The #1 Newsgroup Service in the World!
-----== Over 100,000 Newsgroups - 19 Different Servers! =----- Tag: Undo command? Tag: 55562
On focus - check clipboard
Hi guys,
I want a dialog box to check for data that fits a specific format when it
gets focus (after the user returns to word from another application.
It does not have to constantly monitor for this data - only after a user
returns to word. Any idea how to do this?
Cheers
-Al
-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com - The #1 Newsgroup Service in the World!
-----== Over 100,000 Newsgroups - 19 Different Servers! =----- Tag: Undo command? Tag: 55547
VB/Word - Making lines read only
Hi,
I'm trying to write an Visual Basic application that starts Microsoft
Word to allow a user to edit a text file.
However the first line is a header and the last line is a trailer and
I don't want the user to delete these lines. Also when the user exits
from Word (closes the file or exits Word) I want the control to be
returned to the VB application so that I can update the trailer.
I am new to VB with Word so please bear with me. There are not many
resources on the Web to assist.
What I need to know is:
1) Is there an easy way to make the line read-only? Line in this case
is the same as the Sentences object. If not would I have to trap all
the insert/replace/delete events and beep if the user is on the first
or last line?
2) Is there some sample code showing how I can start Word in VB AND
take back control when the user closes the file?
Thanks for any assistance Tag: Undo command? Tag: 55542
Word 2003: phantom temp files in startup folder
Hi all,
I have two Word add-ins that have been well-behaved for a long while on
several PCs running Word 2000 or Word 2002. Today I installed them in a
PC running Word 2003.
They still work fine, but after closing Word, the two matching temp
files ("~%restofname.dot") are still there in the Startup folder with
the real files. And they stay there. Even after a reboot.
Is anything wrong? It doesn't seem to affect performance, but this
certainly hasn't been standard behavior in the past.
The files are identical to those installed with earlier Word versions,
and Outlook is *not* using Word as its email editor. All PCs are
running WinXP Pro. Any ideas?
--
Mark Tangard
"Life is nothing if you're not obsessed." --John Waters Tag: Undo command? Tag: 55539
Retrieving the Auto Number
Does anybody know how I could the auto number in a selection:
Example:
1. Blah
2. Blah blah.
'1' and '2' are automatically inserted using the auto numbering feature in
word. When I select (say) 'Blah'; I cannot, of course, select '1' along with
it ('1' is an auto number). So, is there a VBA code where I can get the auto
number which is associated with the text as well?
Thanks & regards,
vince Tag: Undo command? Tag: 55536
Use IF to Loop or not? AND IF w/ error codes?
I had an idea, and thought I would post it here to see if it survived
scrutiny. A line in my macro errored because another process wasn't
completely done. Is it possible and would it be okay to use On Error Resume
Next and the error code with an IF to loop back through the missed
instruction until it completes?
I'm thinking something like:
Do
On Error Resume Next
' Do This
If Err.Number <> 0 Then
Loop
Else Exit Do
End If
On Error GoTo 0
Ed Tag: Undo command? Tag: 55529
ListTemplate index - how to get?
Hi all
I'm trying to figure out how to get the ListTemplate index/name for a
specific style -- I'd like to be able to modify the style's LinkedStyle and
in order to do that it seems I have to specify the Style's ListTemplate first.
Just to test if I can identify it, I tried the following code
Set mystyle = ActiveDocument.Styles("Level 1")
MsgBox ActiveDocument.ListTemplates(mystyle.ListTemplate.Name). _
ListLevels(1).LinkedStyle
I don't get an error but the result of "mystyle.ListTemplate.Name" is "" (ie
nothing).
Any pointers? Thanks in advance!
Chuck Tag: Undo command? Tag: 55523
Apply Multiple Templates? What's the right approach?
I am generating word 2002 docs based on a custome template that includes
a customized toolbar that runs VBA routines. Using bookmarks I've pre-
populated a lot of basic info in the doc. I then need to pass off these
generated docs to someone that fills in the balance of the document
info. That person has a set of 50 templates that she has been using to
fill in sections of the starting doc based on certain criteria. I'm
pretty unfamiliar with Word templates and what I am running up against,
surprisingly, is that if she applies one of her custom dot files to what
I pass her, her access to the custom toolbar in my original dot is lost.
I'm not sure how to deal with this. As far as I can tell, a word doc can
only be attached to one dot at a time. This would seem to imply that I'd
have to add my VBA code and toolbar to all of her 50 specail dot files
for her to retain access to the them. I could do this but the maint
seems onerous.
Is there an alternate approach? For instance, another way that the
second stage text mods could be implemented besides using the 50 custom
dot files? Tag: Undo command? Tag: 55516
Excel
Has anyone tried to open a Excel file from Word ? I know
that in the 2000 Word program you were able to open Excel
from that location .In Office 2003 Professional Edition
you have to go outside of Word and into Excel to copy or
transfer information . How about in the same area does
Word update if a change was made in the Excel files / if
the two are linked togather as it did in the 2000
version ? Tag: Undo command? Tag: 55513
Storing large amounts of (hidden) data within a single word document?
Hi all- thanks in advance for your help; using Word97 on Win98SE...
I'm looking for the best way to store this large amounts of information
(essentially several manually-built flat file database tables) in a word
document without it being accessable to the user; I remember reading (but
can't find) a post talking about this subject, and I think Custom
DocProperties were the suggested solution... however, in my tests, the
document properties (including custom ones) are available to any user via
the document property interface, which is undesirable for me.
Does anyone have other ideas on how to handle this? Can I suppress the
custom docproperties information from showing in the user interface? What
about (noting: Word97/ Win98SE) saving the information in some sort of low
level encryption to avoid the property 'value' from being read, even if the
user looks at the property dialog? Essentially I need to store data (away
from user's eyes) without putting the data in the document or in a separate
file.
I am thinking that maybe I could do this by writing the data in XML format
(using whatever XML command is available for encryption?) and that might
also make it easier to work with the data, but I haven't messed with XML
yet, so I'll wait to hear if that is possible/desirable in Word97 before I
start a whole new learning curve...
Many thanks,
Keith
--
The enclosed questions or comments are entirely mine and don't represent the
thoughts, views, or policy of my employer. Any errors or omissions are my
own. Tag: Undo command? Tag: 55512
create section break after a table
hi,
i'm trying to create a section break with the type wdSectionBreakContinuous
after a table. how can i do that in vba for word xp?
thank you.
william
-- Tag: Undo command? Tag: 55507
Why is there no color on monitor
I have Office '03 (I think). While it will print in
color, it will not show any colors on the monitor. Does
anyone know why? Tag: Undo command? Tag: 55500
Why doesn't the Table object have an Index property
Hi,
I'm wondering why the Table object does not have an Index property?
This object belongs to a collection (Tables), so it should have one.
What is the reason this object, just like Document or Paragraph does
not have that property?
Thanks in advance.
Raph Tag: Undo command? Tag: 55498
Emailing Word Document Using Macro
Hi All,
I hope someone can help me, We have a word document for
requesting a courier service, the user currently has to
open the document from our Intranet, enters the data then
sends it as an attachment to our stores dept.
I am trying to set-up a macro that will do this
automatically, when I try to record a new macro it gets
as far as opening the new message window with the
attachment but it does not populate the To: field and
does not send the e-mail.
Could anybody point me in the right direction of any
websites etc..
Many Thanks
Paul Tag: Undo command? Tag: 55495
Automation error
Hello,
I use VBScript Regular expression (VBScript.dll\3)
for 'pattern matching and replacements' concepts in
my "Word to XML" tool.
the code...
Function RExpReplace(ptrn As String, Sstr As String, rStr
As String, iCase As Boolean, gCase As Boolean) As String
Set regEx = New RegExp ' Create regular
expression.
regEx.Pattern = ptrn ' Set pattern.
regEx.IgnoreCase = iCase ' Set case sensitivity.
regEx.Global = gCase ' Set Global search
regEx.MultiLine = True
RExpReplace = regEx.Replace(Sstr, rStr) ' Make
replacement.
End Function
On my machine this function works fine. But with other
machines, it invoke the following error..
Automation error
The object invoked has disconnected from its clients.
Its works fine, when i changed the code in debug mode, by
using breakpoint at 'RExpReplace = regEx.Replace(Sstr,
rStr)'
the code...
Dim temp as String
temp = regEx.Replace(Sstr, rStr) ' Make replacement.
RExpReplace = temp
I find, Microsoft Knowledge Base Article - 813120 relates
to my problem, but not exactly.
please let me know where is the problem.
regards,
senthil Tag: Undo command? Tag: 55494
Which formfield has the focus
Hello,
in an template which creates various numbers of formfields (automaticly)
each field has got the same EntryMacro and ExitMacro (named Got_Focus and
Lost_Focus). When the EntryMacro or ExitMacro - event occurs and for example
the Got_Focus routine is called, how can I determine which FormField has got
the focus (and for the Lost_Focus which FormField lost the focus)?
Thanks Peter Tag: Undo command? Tag: 55483
Remove Leading Spaces
Hi
I have a txt document that has been opened in Word that has a series of
leading spaces.
These leading spaces (always seven of them) are scattered throughout the
document.
How do I remove these quickly.
Look forward to any assistance.
--
Regards
mg Tag: Undo command? Tag: 55482
Grabbing specific text using vba
How can i retrieve a specific text from an opened word document
starting from a specific position and moving to the right until a
specific character is found,using vba?
Pls, its urgent!!!!!!!
---
Message posted from http://www.ExcelForum.com/ Tag: Undo command? Tag: 55480
ByRef question
Hello all,
Here's my scenario. I have an Access app that needs to grab data from
an Excel worksheet. What I've done is create a function in Access
that simply calls excel.run(myproc(arg1, arg2)).
The excel proc needs to return a bunch of numbers so I pass ByRef. I
can't think of a cleaner way of doing this without updating the db in
excel itself.
My question:
In Access, when I declare my excel object as an object, the byref
works, but if I declare it as Excel.Application then it doesn't work.
Why?
In both tests, I use set xlsApp = new excel.application, the only
difference is in the actualy dim statement.
Am I missing something here, cause I'd really like to bind early, it's
just cleaner.
Thx,
Bodi Tag: Undo command? Tag: 55479
Check for Bookmark then run userform
I want to write some code that will check to see if a
bookmark exists and if it does, run a userform. Once the
user has filled in the userform and clicked OK, I want the
code to find the bookmark and delete it.
If the bookmark doesn't exist, then I don't want the code
to run...
I have the following code:
Sub Autonew()
If ActiveDocument.Bookmarks.Exists("new") = True Then
FrmOutwardLetter.Show
End If
End Sub
and within the userform code I have the following code to
delete the bookmark:
ActiveDocument.Bookmarks("new").Select
Selection.Delete
BUT nothing seems to be working! The userform doesn't
show anymore - What am I doing wrong? (It's probably all
wrong!).
I was trying to create a custom boolean property, set its
value to false and change it to true once the userform
runs. Then always check for the value of the said
property when document is opened, and if it is true, do
not run the code. Wasn't sure how to do this as this is
all new to me... :o(
Thanks in advance
Lee Tag: Undo command? Tag: 55476
Extracting Endnotes Number
Hi all,
I am required to get the number of an endnote and check if it is present in
the main document. To elaborate further, assuming I have something like:
3 For a historical description of the...
3 being the superscripted end note number that word automatically
assigns.
I will need to extract the text '3' out of the end note. When I copy and
paste any endnote, I get '[1]' instead of '3'. Also, when I just do a
msgbox(selection.text), I get a funny character instead of the endnote
number. Is there anyway, I can retreive the endnote number? After I
reetrieve it, I will have to check if it is present in the main document
which is fairly easy. It's the text extracting part that's eating my brain
(however limited!) away.
Hope someone can help me out.
Thanks & Regards,
Vince Tag: Undo command? Tag: 55475
Certificate of Security
Hi
As my security settings are medium, I am always being asked if I want to
activate my macros.
So I installed SelfCert.exe and run it (apparently successfully according to
a window)
But it didn't make any difference and my name didn't not appear in the
security window as a reliable source.
I've also tried running it with my main macro document open and with .dot
open but nothing gives.
What is the procedure for running SelfCert.exe please?
Thanks Tag: Undo command? Tag: 55468
How to Lock links (programatically) without incurring an update
I have found several past posts on locking links in VBA. (Cribbed code
is included at the footer of the message.)
I would like to discover the programmatic equivalent of the manual
method of locking links: Edit--->Links (Opens dialogue); Select all
links, check 'Locked' box; click OK.
Problems with my current VBA method:
a) the original linked source file needs to be present for my code to
even work. (Not the case with locking links manually.)
Running code sans source file returns: "Run-time error '6083' Objects
in this document contain links to files that cannot be found. The
linked information will not be updated," leading to the next issue...
b) With the code, Word first updates the links before setting them to
Locked. Not desirable, timewise (manual locks instantaneously, vba
takes 1.5 min+) & the updates are likely irrelevant to the current
doc.
c) The other thing that is so darn snazzy about the manual method is
that it doesn't care if it is a field, shape, inline shape; it just
locks the bugger. In code, I need separate processes to deal with each
type of link (Probably unavoidable).
Any help is greatly appreciated. Thanks!
Taylor
P.S. I had high hopes of running the macro recorder during the above
manual process; alas, it registers nothing (results in blank macro
code).
Here's the code:
Dim i As Long
For i = 1 To ActiveDocument.Shapes.Count
If Not ActiveDocument.Shapes(i).LinkFormat Is Nothing Then
If Not ActiveDocument.Shapes(i).LinkFormat.Locked Then
ActiveDocument.Shapes(i).LinkFormat.Locked = True
End If
End If
Next i Tag: Undo command? Tag: 55464
Macro Conversion
Hi, I hope you can help me out. I had a macro to control which printer tray
is used. When I upgraded from Word2000 to Word2003, the macro doesn't select
the proper tray. Any Suggestions would be appreciated. The code is below.
Sub MyPrint()
Dim sCurrentPrinter As String
aa = InputBox("How many copies would you like?", "Carrie's Macro", 3)
If aa = "" Or aa = 0 Then Exit Sub
sCurrentPrinter = ActivePrinter
Rem ActivePrinter = "Tektronix Phaser 860DP by Xerox"
With Options
.DefaultTray = "Tray 2"
End With
Application.PrintOut FileName:="", Copies:=aa
With Options
.DefaultTray = "Use printer settings"
End With
ActivePrinter = sCurrentPrinter
End Sub Tag: Undo command? Tag: 55463
Soft and Hard Return Chars and Paragraph Count
I'm having trouble getting the correct paragraph count for a document
after stripping it of the soft return/vertical tab character (Chr(11))
and replacing it with the carriage return character (Chr(13)).
Even after saving, closing and reopening the target file to ensure
that ActiveDocument has been refreshed, the paragraph count still
turns out to be incorrect.
The following code demonstrates this bug:
'***************************************************************
Sub Test()
'Create file
Documents.Add
'Add 9 vert tab chars to the initial carriage return char
For i = 1 To 9
Selection.TypeText Chr(11)
Next i
'Set breakpoint here, verify that CountBefore = 1
CountBefore = ActiveDocument.Paragraphs.Count
'Replace vertical tab chars with paragraph chars
ActiveDocument.Range.Find.Execute FindText:=Chr(11), _
ReplaceWith:=Chr(13), _
Replace:=wdReplaceAll
'Set breakpoint here, verify that CountAfter = 1, although I want
'this to be 10
CountAfter = ActiveDocument.Paragraphs.Count
End Sub
'***************************************************************
The Paragraphs Collection doesn't get updated and Word behaves as if
it knows that the replaced characters used to be soft return
characters (Chr(11)).
Thanks in advance,
Boram Tag: Undo command? Tag: 55456
passing array to function to pick up values
Hi all,
I am trying to sort out the fijner points of passing arrays between
functions. I simply do not understand how this works. Of course I get it all
to work with a global array, which I can modify anytime, but I'd rather
learn to do it by passing arguments. I have already found to use ByRef while
digging in the archive.
If I run the function UseArray I get as result:
, bla
instead of
<some character> , bla
what's wrong?
code follows
-------
Function MakeArray(ByRef myArray As Variant)
Dim teller As Long
For teller = 1 To 10
'assign some random alphanumeric stuff to array
myArray(teller) = Chr(teller * 10)
Next teller
End Function
Function UseArray()
Dim varArr As Variant
Dim i As Long
'give a large dimension here because can't redim preserve inside other
function
'can be shrunk afterwards if I ever get this to work
'this code is just a tryout for other stuff I'm doing in a project where
I don't know
'how many items I pick up along the way.
ReDim varArr(100)
MakeArray (varArr)
For i = 1 To 10
Debug.Print varArr(i) & " , bla"
Next i
End Function Tag: Undo command? Tag: 55438
creating Toolbar on Word 2000 using built-in Visual Basic Editor
Hi All,
I have some queries.
I am creating Toolbar on Word 2000 using built-in Visual
Basic Editor.
First query is regarding CommandBarButtons Click event not
firing using WithEvents keyword.
Also since the CommandBar is created dynamically I dont
know how to
take the values entered in its various controls at runtime.
When I enter something into ComboBox and I shift to
another control
the value entered in the comboBox is lost. How to prevent
this.
My Code is as follows:
Public WithEvents cbcCommandBarButton As
Office.CommandBarButton
Dim cbrCommandBar As CommandBar
Public cbcCommandBarListBox As CommandBarComboBox
Public cbcCommandBarCategoryListBox As CommandBarComboBox
Public cbcCommandBarSearchCriteriaListBox As
CommandBarComboBox
Dim m_IE As InternetExplorer
Sub NewToolBar()
' If the command bar exits, remove it.
On Error Resume Next
Application.CommandBars("Marsh Knowledge Exchange").Delete
' Add the command bar to the application's
' CommandBars collection.
Set cbrCommandBar = _
Application.CommandBars.Add
cbrCommandBar.Name = "Knowledge Exchange"
' Add command button control to the control's
' collection of CommandBar objects.
With cbrCommandBar.Controls
Set cbcCommandBarButton = _
.Add(msoControlLabel)
' ' Set properties of the command button.
'Add the following lines of code just below the block
of 'code beginning with the comment "Set properties of the
command button."
' Set properties of the drop-down list box.
Set cbcCommandBarListBox = _
.Add(Type:=msoControlDropdown)
With cbcCommandBarListBox
.AddItem " Knowledge Exchange Home"
.AddItem " Practice Home"
.AddItem " Research Centre"
.AddItem " My KX"
.AddItem " My Assignments"
.Width = 138
.ListIndex = 5
.Caption = " Knowledge Exchange Home "
.Style = msoComboLabel
.BeginGroup = True
.OnAction = "DisplayMessage"
.Tag = "lstPractice"
End With
'Code to create the Search Criteria Combo-box
Set cbcCommandBarSearchCriteriaListBox = _
.Add(Type:=msoControlComboBox)
'Code to create the Search Criteria Combo-box
'Code to create the Search Categories Combo-box
Set cbcCommandBarCategoryListBox = _
.Add(Type:=msoControlComboBox)
With cbcCommandBarCategoryListBox
.AddItem " Search Knowledge Exchange Home"
.AddItem " Search Google"
.Width = 138
'.ListIndex = 6
'.Caption = " "
.Style = msoComboNormal
.BeginGroup = True
.OnAction = "Message"
.Tag = "lstCategory"
End With
' Set cbcCommandBarButton = _
' .Add(Type:=msoControlButton)
'
' ' Set properties of the command button.
' With cbcCommandBarButton
' .Style = msoButtonIconAndCaption
' .Caption = "My Big Button"
' .FaceId = 19
' .OnAction = "Message"
' .Tag = "My Big Button"
' End With
End With
cbrCommandBar.Visible = True
End Sub
Could you please tell me how these problems are solved.
Can you send
me the code if possible.
Regards,
Sagar Gadre. Tag: Undo command? Tag: 55437
KeyPress Event in Word 2000 using VBA
Hi All,
I have created combo-boxes dynamically in VBA.
I want to handle keypress and Mouse events on the combo-
boxes.
How should I go about it?
This is because when I enter text in combo-box and click
on another control the entered text vanishes.
However if I navigate to another control using TAB key
then the text does not disappear.
Please help it is urgent.
Regards,
Sagar Tag: Undo command? Tag: 55436
creating Toolbar on Word 2000 using built-in Visual Basic Editor
Hi All,
I have some queries.
I am creating Toolbar on Word 2000 using built-in Visual
Basic Editor.
First query is regarding CommandBarButtons Click event not
firing using WithEvents keyword.
Also since the CommandBar is created dynamically I dont
know how to
take the values entered in its various controls at runtime.
When I enter something into ComboBox and I shift to
another control
the value entered in the comboBox is lost. How to prevent
this.
My Code is as follows:
Public WithEvents cbcCommandBarButton As
Office.CommandBarButton
Dim cbrCommandBar As CommandBar
Public cbcCommandBarListBox As CommandBarComboBox
Public cbcCommandBarCategoryListBox As CommandBarComboBox
Public cbcCommandBarSearchCriteriaListBox As
CommandBarComboBox
Dim m_IE As InternetExplorer
Sub NewToolBar()
' If the command bar exits, remove it.
On Error Resume Next
Application.CommandBars("Marsh Knowledge Exchange").Delete
' Add the command bar to the application's
' CommandBars collection.
Set cbrCommandBar = _
Application.CommandBars.Add
cbrCommandBar.Name = "Knowledge Exchange"
' Add command button control to the control's
' collection of CommandBar objects.
With cbrCommandBar.Controls
Set cbcCommandBarButton = _
.Add(msoControlLabel)
' ' Set properties of the command button.
'Add the following lines of code just below the block
of 'code beginning with the comment "Set properties of the
command button."
' Set properties of the drop-down list box.
Set cbcCommandBarListBox = _
.Add(Type:=msoControlDropdown)
With cbcCommandBarListBox
.AddItem " Knowledge Exchange Home"
.AddItem " Practice Home"
.AddItem " Research Centre"
.AddItem " My KX"
.AddItem " My Assignments"
.Width = 138
.ListIndex = 5
.Caption = " Knowledge Exchange Home "
.Style = msoComboLabel
.BeginGroup = True
.OnAction = "DisplayMessage"
.Tag = "lstPractice"
End With
'Code to create the Search Criteria Combo-box
Set cbcCommandBarSearchCriteriaListBox = _
.Add(Type:=msoControlComboBox)
'Code to create the Search Criteria Combo-box
'Code to create the Search Categories Combo-box
Set cbcCommandBarCategoryListBox = _
.Add(Type:=msoControlComboBox)
With cbcCommandBarCategoryListBox
.AddItem " Search Knowledge Exchange Home"
.AddItem " Search Google"
.Width = 138
'.ListIndex = 6
'.Caption = " "
.Style = msoComboNormal
.BeginGroup = True
.OnAction = "Message"
.Tag = "lstCategory"
End With
' Set cbcCommandBarButton = _
' .Add(Type:=msoControlButton)
'
' ' Set properties of the command button.
' With cbcCommandBarButton
' .Style = msoButtonIconAndCaption
' .Caption = "My Big Button"
' .FaceId = 19
' .OnAction = "Message"
' .Tag = "My Big Button"
' End With
End With
cbrCommandBar.Visible = True
End Sub
Could you please tell me how these problems are solved.
Can you send
me the code if possible.
Regards,
Sagar Gadre. Tag: Undo command? Tag: 55434
KeyPress Event in Word 2000 using VBA
Hi All,
I have created combo-boxes dynamically in VBA.
I want to handle keypress and Mouse events on the combo-
boxes.
How should I go about it?
This is because when I enter text in combo-box and click
on another control the entered text vanishes.
However if I navigate to another control using TAB key
then the text does not disappear.
Please help it is urgent.
Regards,
Sagar Tag: Undo command? Tag: 55433
Conditional Compilation question
Hi,
Is there a way to identify the version of Word using conditional compilation
statements? I have a macro which requires a slight modification for Word
2003 using a command newly available in 2003 but the macro needs to be
compatible with earlier versions. I don't want to run two different versions
of this macro so I would prefer to use an #If statement which contains my
version checking and modifications in order to be able to compile the macro
on different versions of Word.
I know there is the VBA6 constant which helps determine whether I am using
Word 97 or other but there doesn't seem to be a way to determine whether I
am using 2000 or 2003 (for example) while still allowing me to compile.
Cheers,
John Tag: Undo command? Tag: 55423
Monitor Clipbaord
Hi Folks,
I have a dialog box that prompts a user for some information.
Unfortunately I can'nt get my dialog box to query the database so users are
having to manually re-enter the data.
Now I have the option to copy a record set from the database to the
clipboard.
I need the dialog box to monitor the clipboard for data of a given format,
ie:
Name=SMITH/John James
DOB=01/08/80
And if data of the specified format it detected, upon focus I guess, to
populate the appropriate text boxes.
Anyone got any idea how to do this?
Cheers
-Al Tag: Undo command? Tag: 55422
Returning NumberFormat from a bullet
Hi,
I have developed a utility in VB which analyses a Word template and
generates the VBA code required to recreate any outline numbering list
templates which exist (useful when copying outline numbered styles from one
document to another). This works a charm EXCEPT when the outline "numbers"
are bullets. In most cases the NumberFormat property of the ListLevel object
returns "?". What I need is to be able to retrieve the ascii value for the
bullet character. Using
asc(myListLevel.NumberFormat) returns 63 with is the ascii value of a
question mark - not very useful :)
Is there a way that I can return the correct bullet via code? I can
determine the ascii values manually and slot that into the code that my
utility generates but it would be nice for my program to be able to do
this - after all that is what it is for!
Cheers,
John Tag: Undo command? Tag: 55417
How to use vb to print a Word Document?
I am using vb6 to control Word and use the Printout method for the document,
but after this I want to quit Word. The problem is that Word is still
printing when it wants to quit and then there is a Word process stil running.
Any suggestion on how to get around this timing problem?
Thanks in advance
WayneM Tag: Undo command? Tag: 55416
Update Reference Field
I have a userform that fills in formfields in a document.
In several places, the same information is inserted, so I
cross-referenced those formfields with ref field. The
problem is that I can't figure out how to update those
ref fields without also clearing the formfields. When I
update all the fields in the document, the form fields
clear and the ref fields update, I suppose, but since the
form fields are now blank so are the ref fields. I need a
way to update only the ref fields but I am not sure how
to do this.
Thanks for any help. Tag: Undo command? Tag: 55410
Break lines
Hi,
I know how to break a line of code with " _" and "& _" but
neither of these seem to work in Sub SomeMacro() line.
I have one that is getting rather lengthy e.g.,:
Sub SomeMacor(pVariable As Long, ...)
Can this type of line be broken into two separate lines?
Thanks Tag: Undo command? Tag: 55409
Application.Filesearch yields incorrect results??
I use Application.Filesearch in an Excel macro to search through a series of
Word docs for a keyword. The search is initiated and the keyword(s) entered
via Userform. Hyperlinks to docs matching the search criteria are written
to a blank area on the worksheet.
The search works, except it just gave me some wrong answers. I entered
ABC-01. When I clicked the link and brought up the first doc, I did a Find
for ABC-01 - it was not found, but ABC-02 was!
Does the hyphen throw this off? Might other punctuations or non-alpha
characters? Any thoughts?
Ed
The Excel code:
Sub SearchKeyword()
Dim lngIndex As Long
Dim strSearchFor As String
Dim strLocation As String
Dim rngFiles As Range
Dim strName As String
Dim ListEnd As String
strLocation = ActiveWorkbook.Path
If Range("BA15000") <> "" Then
ListEnd = Range("BA65536").End(xlUp).Row
Range("BA15000:BA" & ListEnd).ClearContents
End If
If UserForm2.TextBox2.Text <> "" Then
strSearchFor = UserForm2.TextBox2.Text
End If
If UserForm2.TextBox3.Text <> "" Then
strSearchFor = strSearchFor & " and " & UserForm2.TextBox3.Text
End If
If UserForm2.TextBox4.Text <> "" Then
strSearchFor = strSearchFor & " and " & UserForm2.TextBox4.Text
End If
If UserForm2.TextBox5.Text <> "" Then
strSearchFor = strSearchFor & " and " & UserForm2.TextBox5.Text
End If
If strSearchFor = "" Then
MsgBox "Nothing to search for", vbExclamation
Exit Sub
End If
strName = UserForm2.TextBox1.Text
With Application.FileSearch
.NewSearch
.LookIn = strLocation
.SearchSubFolders = False
.TextOrProperty = strSearchFor
.Filename = "L5-" & strName & "*.doc"
.Execute
ActiveSheet.Columns("BA").ColumnWidth = 80
Set rngFiles = Range("BA15000")
rngFiles.Offset(0, 0) = "Found " & .FoundFiles.Count & " containing
" & .TextOrProperty
For lngIndex = 1 To .FoundFiles.Count
ActiveSheet.Hyperlinks.Add Anchor:=rngFiles.Offset(lngIndex, 0),
Address:=.FoundFiles.Item(lngIndex)
Next
End With
Unload UserForm2
Range("BA15000").Select
End Sub Tag: Undo command? Tag: 55404
Word Error using VB Editor to Open document
When I type in the following commands in the Intermediate window, I get a
Word runtime error when I run the third line.
activedocument.SaveAs "C:\test.doc"
activedocument.Close
activedocument.Open "C:\test.doc"
The reason why I did this test is because an application that I wrote is not
working correctly on a client's machine. I narrowed it down to the vb code
that opens a document in Word.
Any suggestions why this may be happening? Any help would be greatly
appreciated. Thanks. Tag: Undo command? Tag: 55401
Word Paragraph Formating.
MSWord 2003
Is there a way once a document is protected to use the Keep Together for a
selection of paragraphs. Either program wise or manual formatting?
I have multiple input fields with numbered items (these field sizes could be
20 charaters to 200 characters in length) and wish keep them together on
each page.
--
Thank you for your help in advance!!! (smile)
Mike Tag: Undo command? Tag: 55400
A macro to fix empty boxes and wrong symbols in imported WP files
At the end of this message is a link to a macro that tries to fix the
problem of Word files that have been imported from WordPerfect, and display
either the wrong symbols or letters instead of symbols such as quotation
marks and dashes. The intelligent parts of the macro are the work of Jay
Freedman, Helmut Weber, Greg Maxey, and Jezebel, in answers to my pleas for
help here; the candy-coating and blinking lights are by me.
This macro is designed to fix the problem in which a typical symptom is
this:
In a file originally created in WP, the creator of the file included:
"quotation marks--and a dash"
but when the file is opened in a copy of Word (usually on another system),
Word displays this:
Aquotation marksCand a dash@
I think I finally have this macro in a condition that's suitable for
testing, but ONLY on copies documents that you can afford to lose. The macro
saves your file in Word for Windows 2.0 format and then reopens it. Word
2003 does not ship with the Word for Windows 2.0 converter, but you can take
a copy of WNWRD232.CNV from a system with Word 2002 and move it to
C:\Program Files\Common Files\Microsoft Shared\TEXTCONV or wherever your
text converters happen to be, and then restart Word (maybe restart Windows)
to be able to use the WinWord 2.0 converter in Word 2003.
As written, the macro converts only a limited number of characters, because
each one has to be added to the macro by hand.
Also, it turns out that symbols like the musical flat, sharp, and natural
will convert in Word 2003 under Windows XP, but not under Word 2002 under
Windows 98 SE. I *think* this is caused by differences in fonts in different
versions, and I would like to add a test for the Windows version. Is there a
very simple way of returning the current Windows version? The ones that I've
seen out there seem extremely complicated.
Here's the code. If your browser renames it with a .TXT extension, remove
that; go into Word, click Alt-F11, go to the Properties inspector at the
upper left, click on Normal, use Insert/Module to insert the module. Open a
WP file with the problem I described (MAKE A BACKUP EVEN THOUGH THE MACRO
MAKES ONE FOR YOU). Run the macro FixSymbolsInImportedWPFiles0012.
http://www.columbia.edu/~em36/FixSymWP0012.bas
Helmut, I've left the language treatment complicated, because I *think* you
implied that the act of saving and reopening the file sets the "symbol"
string to the local language, but I may be wrong.
Thanks for any suggestions about the inevitable stupidities and bugs and
foolishnesses in this code.
Edward Mendelson Tag: Undo command? Tag: 55397
Type mismatch on Application.version
Hello,
A user tells me that he gets a type mismatch error at these lines in some
code that seems to work for other other users. The code is:
Dim aVal as Long
aVal = Application.Version
Long and Integer work here, but I've seen other code that seems to treat
Application.Version as a string and uses
val(Application.Version)
Can anyone tell me what I *should* be using? I want to test for the
following conditions:
Word 97 (version 8)
Word 2000 and below (<= 9)
Word 2002 and above (>= 10)
Word 2002 (10)
Word 2003 (11)
In my copy of Word 2002 (SP3), if I enter ? Application.Version in the
Immediate window, it returns 10.0. But if I run this code:
Dim aVer As String
aVer = Val(Application.Version)
msgBox (aVer)
Debug.Print aVer
or this code:
Dim aVer As Single
aVer = Application.Version
msgBox (aVer)
Debug.Print aVer
both return 10 (no decimal).
Many thanks for any advice on this one.
Edward Mendelson Tag: Undo command? Tag: 55386
Styles
Is it possible to extract a document/templates style description.
With quite large style libraries it would be usefull to be able to print out
all the style descriptions to see which need upating / cleaning up. Tag: Undo command? Tag: 55376
Template location change problem.
I need to be able to sweep a directory and its subfolders for MSWord
documents, run a macro which removes embeded document template information
and saves the document again.
This has become an issue because UNC paths have been used in the Document
Template path on many documents, and the server which they point to has been
taken offline. This causes Word to take 5-10 minutes to open the document.
Quick fix is to match an existing IP address in WINS with the UNC path name,
this speeds the opening of the documents.
I have found this code while attempting to resolve the problem :
Sub attach()
' upath = the folder we're going through
upath = "\\myserver\docs"
Application.ScreenUpdating = False
Set udoc = CreateObject("scripting.FileSystemObject")
Set getudocs = udoc.getfolder(upath)
Set unddocs = getudocs.Files
For Each fdocs In unddocs
' call to the macro that changes the templates
attachUND
ActiveDocument.Close savechanges:=wdSaveChanges
Next fdocs
End Sub
Sub attachUND()
tName = ActiveDocument.AttachedTemplate.FullName ' the old template name
If tName = ActiveDocument.AttachedTemplate.Path & "\" & "Normal.dot" Then
tName = "old template not found"
Templ = "\\myserver\templates\LeterHead.dot"
With ActiveDocument
.UpdateStylesOnOpen = False
.AttachedTemplate = Templ
End With
End Sub
I have run this code on several machines but the same thing happens the
document closes and no updates appear to have been done.
Your thoughts on this problem are greatfully recieved. Tag: Undo command? Tag: 55371
Optional merge fields
Hi,
I have a letter template (in Word 2000) that can optionally be used to
create a merge master letter (simply by inserting AutoText containing merge
fields). The mail merge operation is being handled entrirely by VBA by the
way.
This works fine, except I would now like to have the same template to have
the capability of handling two data sources (both CSV files). Many of the
fields will be the same, but one CSV file will have more fields than the
other.
Is there any way that I can use truely optional merge fields, as conditional
merge fields can only function if the merge fields are actually there. I
want to avoid (if at all possible) any messages about "this merge field
doesn't exist".
Thanks, Tag: Undo command? Tag: 55369
how to find missing characters in document
Hi,
In my document i am finding some characters appearing as
boxes even though font is Times New Roman. If we print
this document that characters are printing as blank space.
Is there anyway to find these characters through vba?
Thanks in advance.
Ravi Tag: Undo command? Tag: 55368
Startup Switches
Hi,
If I want to start a Word add-in when Word starts, I use
the switch /l.
If I want two add-ins to start in a specific order, how
is this done?
/ Ulf Tag: Undo command? Tag: 55366
Att: Helmut Weber:Problems with adding CollapseEnd to my macros.
Hello
In adding your advice about collapsing some days ago, I noticed that my
macros started to have another problem in that the cursor suddenly started
to appear infront of the * that I add to some words to show that they have
short vowels.
I tried to correct it myself until the point where I no longer know where I
am and all my macros are different.
In other words, I've confused myself so much that I no longer know my arse
from my elbow if you will excuse the expression.
Could I please give you two macros to look at, one for short vowels and one
for short rising vowels.
If you can get them to work again so that the cursor is after the * (and
preferably with a space between the * and the cursor, I will try to
incorporate the trick into the rest of my macros)
Really sorry.
Sub MidShort()
Dim wordrange As Range, lrange As Range
Set wordrange = Selection.Range
Set lrange = wordrange.Duplicate
lrange.Collapse direction:=wdCollapseEnd
lrange.InsertAfter "* "
wordrange.Font.Color = wdColorSeaGreen
lrange.Font.Color = wdColorSeaGreen
Selection.Collapse direction:=wdCollapseEnd
Selection.ExtendMode = False
Selection.Font.Reset
End Sub
____________________________________________________________________________
___________________
Sub FallingShort()
Dim wordrange As Range, lrange As Range, i As Long, j As Long
Set wordrange = Selection.Range
j = 2
For i = 1 To wordrange.Characters.Count
Set lrange = wordrange.Characters(i)
If Selection.Characters.Count <= 4 Then
lrange.Font.Size = 18
lrange.Font.Size = lrange.Font.Size - j
j = j + 2
wordrange.Font.Color = wdColorSkyBlue
Else
lrange.Font.Size = 18
lrange.Font.Size = lrange.Font.Size - j
j = j + 1
wordrange.Font.Color = wdColorSkyBlue
End If
Next i
lrange.InsertAfter "* "
lrange.Collapse direction:=wdCollapseEnd
Selection.Collapse direction:=wdCollapseEnd
Selection.ExtendMode = False
Selection.Font.Reset
End Sub Tag: Undo command? Tag: 55363
Problems with InsertFile and AttachTemplate
My group has just upgraded from Word 2000 to Word 2002 (SP3). When I tr
to run certain macros word hangs on certain methods, specificaly
Section.InsertFile and ActiveDocument.AttachTemplate. By "hang" I mea
that when Word calls one of these methods Word freezes. The macro
these run in are stored in a template run as an add-in, and are fairl
complicated. What's strange is that if I record a macro with the sam
method, a macro that contains only a few lines, everthing works. Thi
problem is occurring in macros that have been used without problems fo
five or more years (some of them originated in Word 97).
Has anyone seen anything like this before? I've spent a couple of hour
doing searches on the the MS Knowledge Base and in this forum but hav
not turned up any answers.
Any help would be greatly appreciated
--
Message posted from http://www.ExcelForum.com Tag: Undo command? Tag: 55359
bug report re page nums?
I've been going nuts trying to figure this one out -- after inserting doc
number and page number fields in footers, then saving the document or
updating all fields in footers, then all content in Primary (not different
first page) footers EXCEPT section 1 primary footers take on the Page Number
style and refuse to accept the Footer style no matter how hard I try to apply
the Footer style. This only happens when I use .PageNumbers.Add (not
.Fields.Add wdPageNumber). I'd like to use .PageNumbers.Add (which inserts
the page number in a text box instead of as an inline field) for ease of
formatting.
We're trying to standardise our footers to include only a document number
(as a field linked to the DMS (document management system)) and a centered
page number. The document number should be formatted in "Footer" style and
the page number in "Page Number" style.
The code below goes through every footer in every section, deletes
everything from each footer , applies the Footer style , inserts the DMS
field flush left and then the page number on a new line above the DMS field.
After running the macro, all the footers appear as they should: the DMS
field in Footer style and the page numbers in Page Number style (page number
fields in centered text boxes in the footer). However, after saving the
document, the primary footer for every section EXCEPT section 1 has Page
Number style applied and the style cannot be changed. This happens
regardless of where the page number text box appears in the footer -- on the
same line as the DMS field or not.
As I mentioned above, if I use ActiveDocument.Fields.Add wdFieldPage in a
different paragraph from the DMS field, each paragraph retains its proper
style (Page Number and Footer respetively).
Anyone have any ideas as to what's going on? Many thanks for any input!
Sub ReformatFooter()
Dim i As Integer
Dim afooter As HeaderFooter
Dim myrange As Range
Dim myCenterTab As Long
With ActiveDocument
For i = 1 To .Sections.Count
With .Sections(i)
For Each afooter In .Footers
With afooter.Range
.Delete
.Style = "Footer"
End With
Next afooter
End With
Next i
For i = 1 To .Sections.Count
With .Sections(i)
For Each afooter In .Footers
ActiveDocument.Fields.Add _
Range:=afooter.Range, _
Type:=wdFieldEmpty, _
Text:="DOCPROPERTY ""DMSLink.Reference"" ", _
PreserveFormatting:=True
With afooter.Range
.Font.Bold = False
.Font.Size = 8
End With
Next afooter
Set myrange = .Footers(wdHeaderFooterPrimary).Range
If .PageSetup.DifferentFirstPageHeaderFooter = False Then
With .Footers(wdHeaderFooterPrimary).PageNumbers
.Add PageNumberAlignment:=wdAlignPageNumberCenter, _
FirstPage:=True
.RestartNumberingAtSection = False
End With
ElseIf .PageSetup.DifferentFirstPageHeaderFooter = True Then
With .Footers(wdHeaderFooterPrimary).PageNumbers
.Add PageNumberAlignment:=wdAlignPageNumberCenter, _
FirstPage:=False
.RestartNumberingAtSection = True
.StartingNumber = 1
End With
End If
End With
Next i
End With
End Sub Tag: Undo command? Tag: 55349
StoryRanges collection
I have seen numerous posts on the functional method for updating all fields
in a document:
Dim oRange As Range
For Each oRange In ActiveDocument.StoryRanges
Do
oRange.Fields.Update
Set oRange = oRange.NextStoryRange
Loop Until oRange Is Nothing
Next
What I haven't seen is an explanation of why this method is necessary. Is
there something wrong with the StoryRanges collection? Normally, a For Each
construct would suffice to loop through the members of a collection, so why
with StoryRanges is it necessary to also loop through the collection using
the NextStoryRange method until its return is Nothing? Furthermore, it
seems like the code above should update the fields in each StoryRange
multiple times, the number of times being equal to the number of StoryRanges
in the document.
Hoping somebody can fill in the blanks.
Regards,
Chad Tag: Undo command? Tag: 55345
In the "Immediate" Area, I set the deletedtextmark =
wdeletedtextmarkhidden and now I'd like to know how to
undo what I did but have no idea where to delete this
command. Help?
You can't. VBA commands themselves aren't added to the undo list.
"mike" <anonymous@discussions.microsoft.com> wrote in message
news:143201c48c3a$701431e0$a601280a@phx.gbl...
> In the "Immediate" Area, I set the deletedtextmark =
> wdeletedtextmarkhidden and now I'd like to know how to
> undo what I did but have no idea where to delete this
> command. Help?
>
>In the "Immediate" Area, I set the deletedtextmark =
>wdeletedtextmarkhidden and now I'd like to know how to
>undo what I did but have no idea where to delete this
>command. Help?
mike wrote:
> In the "Immediate" Area, I set the deletedtextmark =
> wdeletedtextmarkhidden and now I'd like to know how to
> undo what I did but have no idea where to delete this
> command. Help?
Just change it to any of the other values listed in the Help topic for the
DeletedTextMark property, for example