Microsoft Office Q&A: General Discussion (Word, Excel, PowerPoint...)

Kyle Johnson2 said:It wouldn't be a bad idea to just post that macro here on the forum—let people have it if it makes things easier for them (assuming it isn't some big secret 😉
.

So, here they are—divided into five groups based on the "type" of accent. I've set the macros up to trigger alongside certain function keys, and honestly, people tend to pick it up incredibly fast. I realize there are other ways to produce some of these characters, but in my experience—and this is just how I've found it works best—it's much more intuitive to just use something like this.

There you go. My Venmo handle is... 😁

****************************************
Macro for these replacements:

c ç C Ç e æ E Æ n ñ N Ñ a ã A Ã o õ O Õ
****************************************

Public Sub MAIN()

Selection.MoveLeft Unit:=wdExtend select Case Selection

Select Case Selection.Text
Case "C"
Selection.InsertSymbol CharacterNumber:=199, Unicode : = True Case Elsa Selection
Case "c"
Selection.InsertSymbol CharacterNumber:=231, Unicode : = True Case Elsa Selection
Case "E"
Selection.InsertSymbol CharacterNumber:=198, Unicode : = True Case Elsa Selection
Case "e"
Selection.InsertSymbol CharacterNumber:=230, Unicode : = True Case Elsa Selection
Case "N"
Selection.InsertSymbol CharacterNumber:=209, Unicode : = True Case Elsa Selection
Case "n"
Selection.InsertSymbol CharacterNumber:=241, Unicode : = True Case Elsa Selection
Case "A"
Selection.InsertSymbol CharacterNumber:=195, Unicode : = True Case Elsa Selection
Case "a"
Selection.InsertSymbol CharacterNumber:=227, Unicode : = True Case Elsa Selection
Case "O"
Selection.InsertSymbol CharacterNumber:=213, Unicode : = True Case Elsa Selection
Case "o"
Selection.InsertSymbol CharacterNumber : = 245, Unicode : = True Case Elsa Selection
Case Else
Selection.MoveRight Unit:=wdCharacter, Count:=1
End Select
End Sub

****************************************

****************************************
Macro for these replacements:

a á A Á e é E É i í I Í o ó O Ó u ú U Ú
****************************************

Public Sub MAIN()

Selection.MoveLeft Unit:=wdExtend select Case Selection

Select Case Selection.Text
Case "A"
Selection.InsertSymbol CharacterNumber:=193, Unicode : = True Case Elsa Selection
Case "a"
Selection.InsertSymbol CharacterNumber:=225, Unicode : = True Case Elsa Selection
Case "E"
Selection.InsertSymbol CharacterNumber:=201, Unicode : = True Case Elsa Selection
Case "e"
Selection.InsertSymbol CharacterNumber:=233, Unicode : = True Case Elsa Selection
Case "I"
Selection.InsertSymbol CharacterNumber:=205, Unicode : = True Case Elsa Selection
Case "i"
Selection.InsertSymbol CharacterNumber:=237, Unicode : = True Case Elsa Selection
Case "O"
Selection.InsertSymbol CharacterNumber:=211, Unicode : = True Case Elsa Selection
Case "o"
Selection.InsertSymbol CharacterNumber:=243, Unicode : = True Case Elsa Selection
Case "U"
Selection.InsertSymbol CharacterNumber:=218, Unicode : = True Case Elsa Selection
Case "u"
Selection.InsertSymbol CharacterNumber : = 250, Unicode : = True Case Elsa Selection
Case Else
Selection.MoveRight Unit:=wdCharacter, Count:=1
End Select

End Sub

****************************************

****************************************
Macro for these replacements:

a à A À e è E È i ì I Ì o ò O Ò u ù U Ù
****************************************

Public Sub MAIN()

Selection.MoveLeft Unit:=wdExtend select Case Selection

Extend : = wdExtend select Case Selection.Text
Case "A"
Selection.InsertSymbol CharacterNumber:=192, Unicode:=True
Case "a"
Selection.InsertSymbol CharacterNumber:=224, Unicode:=True
Case "E"
Selection.InsertSymbol CharacterNumber:=200, Unicode:=True
Case "e"
Selection.InsertSymbol CharacterNumber:=232, Unicode:=True
Case "I"
Selection.InsertSymbol CharacterNumber:=204, Unicode:=True
Case "i"
Selection.InsertSymbol CharacterNumber:=236, Unicode:=True
Case "O"
Selection.InsertSymbol CharacterNumber:=210, Unicode:=True
Case "o"
Selection.InsertSymbol CharacterNumber:=242, Unicode:=True
Case "u"
Selection.InsertSymbol CharacterNumber:=249, Unicode:=True
Case "U"
Selection.InsertSymbol CharacterNumber:=217, Unicode:=TrueCase Else
Selection.MoveRight Unit:=wdCharacter, Count:=1
End Select

End Sub

***************************************

***************************************
Here is a macro designed for these specific replacements:

a â A Â e ê E Ê i î I Î o ô O Ô u û U Û
***************************************

Public Sub MAIN()

Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend

Select Case Selection.Text
Case "A"
Selection.InsertSymbol CharacterNumber:=194, Unicode:=True
Case "a"
Selection.InsertSymbol CharacterNumber:=226, Unicode:=True
Case "E"
Selection.InsertSymbol CharacterNumber:=202, Unicode:=True
Case "e"
Selection.InsertSymbol CharacterNumber:=234, Unicode:=True
Case "I"
Selection.InsertSymbol CharacterNumber:=206, Unicode:=True
Case "i"
Selection.InsertSymbol CharacterNumber:=238, Unicode:=True
Case "O"
Selection.InsertSymbol CharacterNumber:=212, Unicode:=True
Case "o"
Selection.InsertSymbol CharacterNumber:=244, Unicode:=True
Case "U"
Selection.InsertSymbol CharacterNumber:=219, Unicode:=True
Case "u"
Selection.InsertSymbol CharacterNumber:=251, Unicode:=True
Case Else
Selection.MoveRight Unit:=wdCharacter, Count:=1
End Select

End Sub

***************************************

***************************************
Macro intended for the following replacements:

a ä A Ä e ë E Ë i ï I Ï o ö O Ö u ü U Ü
***************************************

Public Sub MAIN()

Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend

Select Case Selection.Text
Case "A"
Selection.InsertSymbol CharacterNumber:=196, Unicode:=True
Case "a"
Selection.InsertSymbol CharacterNumber:=228, Unicode:=True
Case "E"
Selection.InsertSymbol CharacterNumber:=203, Unicode:=True
Case "e"
Selection.InsertSymbol CharacterNumber:=235, Unicode:=True
Case "I"
Selection.InsertSymbol CharacterNumber:=207, Unicode:=True
Case "i"
Selection.InsertSymbol CharacterNumber:=239, Unicode:=True
Case "O"
Selection.InsertSymbol CharacterNumber:=214, Unicode:=True
Case "o"
Selection.InsertSymbol CharacterNumber:=246, Unicode:=True
Case "U"
Selection.InsertSymbol CharacterNumber:=220, Unicode:=True
Case "u"
Selection.InsertSymbol CharacterNumber:=252, Unicode:=True

Case Else
Selection.MoveRight Unit:=wdCharacter, Count:=1
End Select
End Sub

***************************************

Unfortunately, no. Everything else works perfectly fine, but I just can't get it to work in F&R. If you've managed to get it running or know a trick to fix it, please let me know.

analogskipper742 said:Unfortunately, no. Everything else seems to behave, but in F&R, it just won't cooperate—no matter what I try. If it’s working for you, or if you happen to know some trick to get it tuned correctly, please let me know.

I just double-checked in Word 2003, and it works fine with Ctrl/B.

Look, the text itself isn't actually being bolded; instead, you'll see a little "Format: bold" indicator appearing underneath it.

analogskipper742 said:Unfortunately, it doesn't. Everything else seems to be working just fine, but for some reason, it just won't cooperate within F&R. If you've managed to get it working on your end, or if you happen to know a trick to getting it tuned right, please let me know.

Maybe try clicking through that extra options menu first and then give it another shot?

@Nicholas King/">@@Nicholas King
Thanks for the info, this is exactly what I was looking for! I have two more questions: does this work for other system commands (like Ctrl+I or U), and will it recognize custom shortcuts? For instance, if I set F10 to change colors to green or switch the font to Verdan, will it pick that up? Sorry to bug you, but I don't have Word 2003 installed and I don't want to go out and buy it if it won't work.

@Zachary Barrett4/">@@Zachary Barrett4
I'm not sure I follow what you're getting at. I can click through to see more options and adjust everything, but all those settings just reset every time I restart F&R.

analogskipper742 said:I have a couple more questions: does this work for other system commands (like Ctrl+I or U), and will it function with custom shortcuts I've set up myself?

It works for italics, underlining, bolding, and paragraph alignment—but as far as I can tell, it won't touch any user-assigned keys.

Kyle Johnson2 said:Give it a shot and see if that works. The Normal.dotm template is essentially the DNA of every document you create in Microsoft Office. It serves as the foundational blueprint, storing all those default settings—like your preferred fonts, paragraph spacing, and margins—that dictate how a blank page looks the moment you open it up. If you’ve ever found yourself constantly fighting against weird indentation or an annoying font choice every time you start a new project, the culprit is almost certainly sitting right there in your Normal.dotm file. I remember back when I was first getting into heavy technical writing, I spent an entire afternoon wondering why my formatting kept reverting to something outdated; it turned out my template had been corrupted by a buggy macro. Once I learned how to reset that specific file, everything smoothed out immediately. It’s one of those quiet, behind-the-scenes components that you don't think about until it stops working exactly the way you need it to. Try restarting your computer, then launch Word and see if that does the trick.

I can't seem to find it anywhere. It isn't showing up in my Program Files folder, so I'm at a bit of a loss on how to actually delete it. I'm running Windows 7. 😁

Nicholas King said:It works for italics, underlining, bolding, and paragraph alignment. It won't work for custom user-assigned keys.

Thanks for the heads-up.

Dennis Evans59 said:Where even is it? It’s not showing up in Program Files—honestly, I have no clue how to actually delete this thing. I'm running Windows 7, which is 😁

So, did you get into a fight with Google? Look, just buy them a coffee and apologize—I'm sure they'll be back on your good side in no time.

http://office.microsoft.com/en-us/wo...001121028.aspx

Dennis Evans59 said:Where's that located?

Windows XP and Normal.dot (US)
C:\Documents and Settings\user name\Application Data\Microsoft\Templates\

Windows 7 and Normal.dotm
C:\Users\user_name\AppData\Roaming\Microsoft\Templates\Normal.dotm

Hey everyone!
I’d be super grateful if someone could lend me a hand here. I’m struggling to nail down an Excel formula that takes a number, slashes it by 15% for a discount, and then immediately bumps it back up by the sales tax all in one go in the cell right next to it.
So, basically: I have my base price minus the discount plus tax (for example, if I start with 10... I need to end up with 10.46)

Thanks a million!

Bradley Rivera5 said:so basically: I have the net price plus sales tax (like if it's $10... I need to end up at $10.46)

Check this out, might help you out

- Example of a full invoice in Excel

- Breakdown of how to calculate sales tax and discounts

Kyle Johnson2 said:Take a look at this, maybe it'll help you out

- A sample of what a full invoice looks like in Excel

- An example showing how to calculate sales tax and discounts

Thanks, but I already checked there and didn't find anything... my situation is pretty specific because I'm just working with two cells—I have the base amount in the left one, and then in the right one, I need the final result from a whole bunch of different operations combined

I'm having a bit of a headache trying to email a PowerPoint presentation... Basically, I embedded a song into the slides, but whenever I send it over via email, the music just won't play on the other end. It's super annoying. Is there any way to get this to work without me having to manually create a folder, toss the song in next to the presentation, and then zip the whole thing up into a RAR file? I'd really rather not deal with that hassle if there's a better way. 🙂

Bradley Rivera5 said:thanks but didn't find it there...it's specific because I've just got two cells—the base value on the left and then I need the final result from multiple steps on the right

If you’d actually looked at that second-to-last pic in the second link, you would've seen the formulas.
But honestly, why even do the math yourself? Let someone else handle the heavy lifting 👎

Let's say you have 10 in cell A1 and B1 needs to show 10.46
=A1-(A1*0.15)+((A1-(A1*0.15))*0.23)

Ethan Gonzalez96 said:I'm having a hard time emailing my PowerPoint presentation...

Check this out for audio and music stuff in PowerPoint Sound and music in PowerPoint and then hit this link for emailing presentations near the end of the tutorial

Kyle Johnson2 said:If you’d actually bothered to look at the second-to-last photo in that second link, you would've spotted the formulas right there.
But honestly, why bother doing the math yourself when you can just let someone else do all the heavy lifting for you? 👎

Let's say you've got the value 10 sitting in cell A1, and you want the result in B1 to be 10.46.
=A1-(A1*0.15)+((A1-(A1*0.15))*0.23)

Man, I totally messed up how I was using the parentheses. Anyway, thanks a ton for the help!!!

Bradley Rivera5 said:I didn't quite get the parentheses right—either way, thanks so much...

It works without them too...

FORMULA IN B1 =0.85*A1*1.23

Hannah Gomez5 said:you don't actually need the parentheses here

The formula in B1 would be 0.85*A1*1.23

Actually, you could just simplify the whole thing by combining those multipliers—B1=1.0455*A1

😁