I need a bit of code for a Word macro that will capitalize the first letter of a word if it's not already capitalized.  But if it is already capitalized, then I don't want it changed.

My current macro uses Shift-F3, which is Word's toggle between cap/not cap.  It works great when the target word is lower case, but if the word is already capped, it lower cases it, which is not what I want.

So, here's the situation in which I would use it.  Say there's a run-on sentence like this:

Mary likes apples Tom likes oranges.

I want to put my cursor after the s in apples and run the macro.  The macro should type a period, move over one space, add a second space, select the T in Tom, and capitalize it if it's not capitalized and leave it alone if it is capitalized.  Then I want the cursor to end up just to the left of the T in Tom.  

And here's my current code:

Sub insertaperiod()
'
' insertaperiod Macro
'
'
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.MoveRight Unit:=wdWord, Count:=1
    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.Range.Case = wdNextCase
    Selection.MoveLeft Unit:=wdCharacter, Count:=2
    Selection.TypeText Text:="."
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:=" "
End Sub

Thank you to this very helpful group!

In Word, is it possible to disable the Alt key accessing the menus?  I have a lot of alt-macros, and often, when I press Alt (the first key of the macro), the menu opens up before I can type the second key to invoke the macro.  Then I have to stop what I'm doing, press Escape multiple times, and begin again.

Can this be disabled?

I would like to move the cursor to the end of all the text in a TextBox ( named  

txtNote

Select all Open in new window

) clicking a button on the form.
Both the TextBox and the CommandButton are on a user Form.
I am using the following code but when I click the button I find the cursor at the start of all the text and not at the end of the text.

Private Sub cmdMoveCursor_Click()
txtNote.SetFocus
txtNote.SelStart = txtNote.SelLength
End Sub

Select all Open in new window

Thank you for your help

Friend has an HP 1310 PSC. At one time he was having printer issues so we installed it again and in his printer and devices there is a 1310 and a 1310 (copy 1). He kept saying he could only print from Word and not from an email, etc. After a closer look some of the print jobs are being sent to the default and some are not. Why not?
I assume this can be resolved by deleting copy 1 but he is reluctant to do that.

I would like code against the KeyPress event of a TextBox in VBA application. I would like to detect which key has been pressed by the user when the user presses a key. I am wondering if there is way of doing that.
I would like in particular to know if the user has pressed the space key or a number key.
Thank you for your help.

Private Sub TextBoxI_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

'need to know which key the user has pressed and take a an action based on the key pressed for example display a message box when the user presses space key.

End Sub

Select all Open in new window

Having a Word template in which a Excel file is incorporated.
I need to be able to open the excel file and read the content of the cells in column A for not empty
and copy it into an other excel file, in which I will have a VLookup to retrieve the description of code in Column A.

I can't figure it out.  I don't know how to open the excel file into Word and be able to read in it.

Can you help please.
Thanks
Nancy

Hi,

I have a problem on Word and macros.

I use this macro :

Sub refresh()

    Selection.WholeStory
    Selection.Fields.Update
    ActiveWindow.View.ShowFieldCodes = True
    ActiveWindow.View.ShowFieldCodes = False
    
End Sub

Select all Open in new window

I want to run this macro with this .vbs:

Dim Word

Dim WordDoc

Set oArgs = WScript.Arguments

Set Word = CreateObject("Word.Application")

Word.Visible = False
Set WordDoc = Word.Documents.Open(oArgs(0))

Word.Run "refresh"

WordDoc.SaveAs2(oArgs(2))

WordDoc.Close(wdDoNotSaveChanges)

Word.Quit

WScript.Quit

Select all Open in new window

here the command I launch to execute this vbs :

cscript C:\refresh.vbs C:\Users\admin\Desktop\a.docx refresh C:\Users\admin\Desktop\b.docx

And nothing happen... here

C:\refresh.vbs(14, 1) Microsoft Word: command failed

Do you have a solution?

Thanks

Say, please see the attached screen shot of a Microsoft Word document. The gray border surrounding the text is mine concern. How do I get rid of this? I cannot find what is causing this gray border around the text. Whichever Edit mode I chose, the gray border remains. It is something in the formatting, I would assume. Thanks, Shaun
Thing.jpg

New ticket for a closed issue (https://www.experts-exchange.com/questions/29141120/Word-macro-to-extract-text-by-style-and-capture-numbering-if-style-contains-list-numbering.html?anchor=a42871864¬ificationFollowed=230273679#a42871864):
I have a macro to extract all text that has a user-defined style to a new document but also to include the numbering if the style is a numbering style. The latest version works very well for all but one style: Intense Reference. When I enter this style, the macro goes into an endless loop.  This was a problem on several styles in previous versions. This was fixed by an EE expert but for some reason, only the 'Intense Reference' style causes the endless loop. If this can be repaired, the macro will be good to go. I successfully tested the other styles in the table on p. 1 of the attached file.
Extract-Text-by-Style-Test-May-28-2.docm

The image shows a word that we need for a church business card as well as a logo on the weekly bulletins. It's the word Celebration for English and Celebracion for the Hispanics.

Someone had the idea to put the T on top of the C and also change the T to a cross. So far the efforts have been in black fonts.

I suggested that most crosses from the days of Jesus were made of wood and thus the cross could be a brown color. They have played around with moving the cross (which is actually the T in celebration) to the left or right to somehow not distort the C.

In my opinion there will be enough other text on the card in Spanish and if the Spanish version of celebration is celebracion then any one viewing the card will know what celebration means. But I do not make the decisions.

So looking for more brain power on how to combine celebration and celebracion? Using colors, fonts, etc.

I'm designing the card and if we can get that word to the liking of the higher ups in the church then I will have to make the word be a photo so I can upload the photo (which will be nothing but the word) and drag that to the proper place on the card. The templates and editing do not offer a T on top of a C. Thanks.

We have a user with some issues opening Word documents. Word is showing a message every time it is opened that it is not the default app for documents, but it is set to default on all relevant file types. Icons are not showing as Word icons, instead showing as the default "white sheet" for documents, and in order to open a document from another program, the file has to be saved and opened independently. I have verified that his Office365 account is signed in correctly, run Office repair (Online), fully uninstalled Office then downloaded and installed a fresh version, and have had no change. This is also only happening on one profile, the Administrator profile seems to be working fine. Any thoughts?

I need to set the datasource for a set of mail merge documents to deploy to users on and off the LAN and may have updates each month.

To save remoting and resetting up datasources etc... (and also guessing the location) I want to set the datasource location on load or via button.. probably both.

Will use a specifically named file in the downloads directory of the current user.

Please supply a routine that will change the datasource. Please put XYZ as the path and I will generate etc...

The experience is:

User opens the document... it does it then and then merges... AND .. can be done via button to do an update.

OK.. seems as though this is a starting point:

    With ActiveDocument.MailMerge

        .OpenDataSource Name:="c:\mydocs\contracts\MyCont_R.CSV"
        .Execute
    End With

Select all Open in new window

And . Execute if you want to mail merge as part of the routine

Any additional suggestions?

R

I want to convert any number that I highlight to a roman numeral in my Microsoft Word document.

I already know how to use Ctrl+F9 to insert a field, and type a formula in the brackets:  {=4\*ROMAN} and do an Alt+F9 to toggle between the results and the formula.

However,

Question 1:  Instead of me manually typing out the formula every time, is there a way I can hightlight an existing number in the document, say 2019, and replace with with  {=2019\*ROMAN} ?

Question 2:  I noticed if I copy {=4\*ROMAN} and paste it to another area of my document, then change the 4 to a 10, the end result still is IV, instead of X.  How come Word does not use 10 instead of 4?