# Microsoft Word

27K

Solutions

21K

Contributors

Microsoft Word is a commercial document editing program that is part of the Microsoft Office suite. It features numerous text-editing tools for creating richly formatted documents, along with tools for the use of macros in Word documents. Word's native file formats are denoted either by a .doc or .docx file extension. Plugins permitting the Windows versions of Word to read and write formats it does not natively support, such as the OpenDocument format (ODF) are available. Word can import and display images in common bitmap formats such as JPG and GIF. It can also be used to create and display simple line-art.

Hi

Imagine after installing Ms Access 2016 my Ms Excel & Word icons have turned white and now any word document is opening in note pad, any solution??????????????
0
I am now unable to access it, it is saying that it has been renamed/deleted/or moved.  Just wondering if there is any way to recover it
0
Need to make Word 2018 print a Booklet with 8 panels

I asked someone to create for me a Word template for the following booklet type:

I was given the following:

8-Field-Brochure-Template.docx

and was told it works fine on Word 2010.

InWord 2018 I do not see how to set to 8 pages...

I see 6 or 9,,not 8.

Any idea why not?

Thanks.
0
Hi

I am trying to work out the best way to send an order document from my ASP.net web app. Initially I looked at creating a PDF document from scratch
and found that this is quite complicated. Is there a way to use some sort of template document in Excel, Word or PDF that I can just populate with numbers
and text?
Another alternative would be to use html to build a sort of document in the body of the email?
A further way would be to create an ASP.net web page that could be printed off
0
My requirement is to grab two texts between two flags placed in word file and write in to excel - 2 columns
Flags can be [mydate] and [/mydate]
and [mytext] and [/mytext]

e.g. [mydate] 2018-07-14 [/mydate] blah blah [mytext] this is my text [/mytext]

It should be repeated until all occurrence in the file.

I am using following code as guided by GrahamSkan

Option Explicit

Sub GrabUsage()
Dim FName As String, FD As FileDialog

Dim WApp As Word.Application 'Object
Dim WDoc As Word.Document 'Object
Dim WRange1 As Word.Range
Dim WRange2 As Word.Range

Dim ExWks As Excel.Worksheet
Dim ExR As Excel.Range

Dim r As Integer
Dim bTesting As Boolean
Dim bVisible As Boolean
Dim bNewWordApp As Boolean
Dim bFinish As Boolean

bTesting = True
Set ExWks = Selection.Worksheet
r = 1

If bTesting Then
FName = "I:\Allwork\ee\29108962\InDoc.docx"
Else
'let's select the WORD doc
Set FD = Application.FileDialog(msoFileDialogOpen)
FD.Show
If FD.SelectedItems.Count <> 0 Then
FName = FD.SelectedItems(1)
Else
Exit Sub
End If
End If

' open Word application if necessary and load doc
On Error Resume Next 'supress error checking for one line only
Set WApp = GetObject(, "Word.Application")
On Error GoTo 0
If WApp Is Nothing Then
Set WApp = CreateObject("Word.Application")
bNewWordApp = True
End If
'make word application visible after

0
I'm looking for an MS Word VBA macro to remove redundant blank paragraphs spacing from Word documents.  There are many examples of snippets which replace ^p^p with ^p and loop to catch ^p^p....^p such as GrahamSkan's answer to Q 23519746. When run these have the effect of making all paragraphs in a document contiguous i.e. there are no gaps between them.

Instead, I would like that where any two text-containing paragraphs were previously separated by one or more blank paragraphs then following the macro being run each such pair should be separated by only one blank paragraph. In other words, paragraphs that were previously separated from each other should remain separated but that separation should where necessary be contracted.

0
How to get MS Word message box to display content vertically?

Dim strInText As String
Dim strOutText As String
strInText = "MATERIALS ASSESSMENT                                                                          Structural failure, Handling Characterictics,Installation characteristics, Chemical exposure, Defective material, Materials not inspected, Wrong materials delivered, Material failed after installation, Characteristics/design presents non-typical handling/use challenges,  None of the Above "
strOutText = Replace(strInText, ",", vbCrLf)
MsgBox strOutText

End Sub
The MS Word macro I adjusted to get the items to display vertically, but I don't know the macro should be written to get the items to display vertically unless I use this long sentence with commas in it, see macro below:
Macro-Vertical.jpg
0
Below is a section of MS Word VBA code which removes duplicate paragraphs from a document. It retains the first instance of each paragraph it finds, and deletes any subsequent instances ("duplicates").  Does anyone know how I might amend the code so that instead:

1) it deletes the first and all subsequent instances of each paragraph except the last instance (the one closest to the bottom of the document) which it retains? PS: since posting I have figured this one out.

2) It deletes all instances of a paragraph which has duplicates, retaining none?

3) In the process of trying to solve (2) I realise that I don't really understand how the 'collect duplicates' section works. If anyone could explain that to me I would be very grateful!

Sub DeleteDuplicateParagraphs()
Dim p As Paragraph
Dim d As New Scripting.Dictionary
Dim t As Variant
Dim i As Integer
Dim StartTime As Single

StartTime = Timer

' collect duplicates
For Each p In ActiveDocument.Paragraphs
t = p.Range.Text
If t <> vbCr Then
If Not d.Exists(t) Then d.Add t, New Scripting.Dictionary
End If
Next

' eliminate duplicates
Application.ScreenUpdating = False
For Each t In d
For i = 2 To d(t).Count
d(t)(i).Range.Delete
Next
Next
Application.ScreenUpdating = True

MsgBox "This code ran successfully in " & Round(Timer - StartTime, 2) & " seconds", vbInformation
End Sub

0
What's the difference between BaseAdapter, SimpleAdapter, Custom SimpleAdapter, ArrayAdapter and Custom ArrayAdapter in Android ? I have see some articles but I can't identify when I select one over anothers ?

Thx
0
Need a Word Template (Mac) for multi-fold booklet

I love the idea of using this little pocket booklet, but can not make this template in Word.

I assume the template would maintain the proper orientation, for example.

Can anyone dig one up for me?

Thanks.
0
I am trying and (so far) failing to adapt a Word VBA macro to run in Outlook 2016. I wonder if anyone can help? Within Outlook I have referenced the Microsoft Word 16.0 Object Library, and I have tried to use the suggestions at http://www.vboffice.net/en/developers/use-word-macro-in-outlook/  and https://www.slipstick.com/developer/word-macro-apply-formatting-outlook-email/ but without success.

The Word VBA I am trying to use is below. Its purpose is to remove redundant (repeated) paragraphs which it does in Word. I want it to perform the same function on an email message which is open and being edited within Outlook 2016.

Sub DeleteDuplicateParagraphs()
'PURPOSE: Remove Duplicate Paragraphs Throughout the Entire Word Document

Dim p1 As Paragraph
Dim p2 As Paragraph
Dim DupCount As Long

DupCount = 0

For Each p1 In ActiveDocument.Paragraphs
If p1.Range.Text <> vbCr Then 'Ignore blank paragraphs

For Each p2 In ActiveDocument.Paragraphs
If p1.Range.Text = p2.Range.Text Then
DupCount = DupCount + 1
If p1.Range.Text = p2.Range.Text And DupCount > 1 Then p2.Range.Delete
End If
Next p2

End If

'Reset Duplicate Counter
DupCount = 0

Next p1

End Sub

0
I got the following pages after converting a PDF to Word. I want to combine the two tables, but don't know what the problem is or how to fix it.

1
Grab text from a word file with Excel VBA
=======================================
My requirement is to grab two texts between two flags placed in word file and write in to excel - 2 columns
Flags can be [mydate] and [/mydate]
and [mytext] and [/mytext]

e.g. [mydate] 2018-07-14 [/mydate] blah blah [mytext] this is my text [/mytext]

It should be repeated until all occurrence in the file.
Sub GrabUsage()
Dim FName As String, FD As FileDialog
Dim WApp As Object, WDoc As Object, WDR As Object
Dim ExR As Range

Set ExR = Selection ' current location in Excel Sheet

'let's select the WORD doc
Set FD = Application.FileDialog(msoFileDialogOpen)
FD.Show
If FD.SelectedItems.Count <> 0 Then
FName = FD.SelectedItems(1)
Else
Exit Sub
End If

' open Word application and load doc
Set WApp = CreateObject("Word.Application")
' WApp.Visible = True
Set WDoc = WApp.Documents.Open(FName)

' go home and search
WApp.Selection.HomeKey Unit:=6
WApp.Selection.Find.ClearFormatting
WApp.Selection.Find.Execute "[EventDayMth]"

' grab and put into excel
Set WDR = WApp.Selection
ExR(1, 1) = WDR ' place at Excel cursor

'repeat
WApp.Selection.Find.ClearFormatting
WApp.Selection.Find.Execute "[EventDayMth]"

WDoc.Close
WApp.Quit

End Sub

0
I need to find a keyword in a word document title/name so that I can perform an if statement on the result

I have tried the following with a document that had the word "New" in it and this executed in the document open function:

If ActiveDocument.Name = "New" Then
MsgBox "New Found"
Else
End If

As you can guess...it didn't work out and that's why I am here!  :)
0
Hi, my 2007 Word defaults to a double space format and I want the one next to it (no spacing) to be the default.  I've looked under options and everywhere else I know to look but can't find a way to do it.  Can it be done?  Please see pic 1.  Thanks
0
Hi,

The user has an HP office jet pro 8710 printer and the laptop is Dell Latitude 7470. the HP printer driver on this laptop only prints PDF and online docs, not office apps, such as word, Excel...

Any suggestions are welcome!

May
0
Hi,
I'm still in the process of migrating from an old Win10 computer to new Win10 machine I need to copy over my CUSTOM.DIC (Word 2016); however, from what I saw in my Word options, there are two CUSTOM.DICs.

Do I need to copy over both? And if so, where would I put the roaming copy? The folder name seems rather specific.

Thanks,
Steve
0
Hello Experts,

DocumentBeforeSave, DocumentBeforeClose, DocumentChange functionality not working in .docx, but works in .dotm.

How does one make it work?  Help!

The attached file will need its extension changed from .zip to .dotm...
ECT.zip
0
A user wants to read through a document in Microsoft Word and manually determine which blocks of text should be cut and pasted into a second document. He marks the text to be removed by manually highlighting it yellow.

Would it be possible to use VBA to automatically select all text within that document which the user has previously highlighted yellow, so that he can then cut and paste it into the second doc? If so, how?
0
In Microsoft Word 2016 one of the settings is the type over, which makes it so you can press the insert key then when you type it types over the existing text.  Also increasing the zoom on the page, it opens at 100% but when I go to 125 it does not stay there when I close and re-open Word.  I have tried to save the changes to the NORMAL.DOT file but that's not making any difference.  I also tried logging in as a different user but that didn't help either.
0
Hey Experts,

I have a strange issue; the following code works in a Word .dotm but doesn't work when you open the template by double left clicking (regular .doc mode).

Private Sub txtRequestor_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ToggleCounter = 1
Counter
End Sub

'===========================================================================================

Sub Counter() 'Toggles cmdStartRequest color every one second via "ColorToggle" sub
Application.OnTime Now() + TimeValue("00:00:01"), "ColorToggle"
End Sub

'===========================================================================================

Sub ColorToggle() 'Toggles cmdStartRequest background color
If ToggleCounter = 5 Then
Exit Sub
Else
If cmdStartRequest.BackColor = 3158271 Then
cmdStartRequest.BackColor = 65280 'Green
Else
cmdStartRequest.BackColor = 3158271 'Red
End If
ToggleCounter = ToggleCounter + 1
Counter
End If
End Sub

'===========================================================================================


The ToggleCounter variable is located in a Module as a Byte.

Change the file extension to .dotm

Any thoughts?
0
Hi I’m looking to export settings and have them listed in an easy to read format. In a word doc.  The doc would look like the html report but editable

Using office 2013 2016.  Gpos are Windows 2012 r2.

I know how to do reports I just wondered if any one got a pretty way of doing it to word.

Cheers
0
I am running MS Office 365 on my new Lenovo P71 Laptop (Windows 10).  Every so often, usually in the middle of typing a long email, my Office programs freeze - my mouse moves, but I can't save, type, send or do anything.  I thought it was just an Outlook thing, but I just noticed that when I have MS Word open it is also frozen.  I don't want to lose my lengthy work product, and thought that if I shut down other programs and gave it a chance to recover it eventually would.  But it's been 20 minutes, and both Outlook and Word are still frozen.  Can you explain why this is happening, how to avoid it, and (hopefully) how to recover without losing my work?

Thanks,

Phil
0
I'm starting to write more documents in powerpoint as its easy to show to people and also as it makes me write more concisely.
But MS Word has more functionally  (such as set styles, table of contents) which helps me more quickly produce professional documents.
I there a feature, or available template, that I can use in MS Word to produce a powerpoint like type simple document that can be showed on powerpoint also as needed? Its like a 'slide' type document.
0
I am not happy. I had a 500 page document saved on my USB I was working on.in MS Word -- it froze up/not responding. I closed it via "End Task" and went to get back into it, and it only saved the first 27 pages... Please tell me there's some back door way to get this back...I've checked recover documents and it's not there...
0

# Microsoft Word

27K

Solutions

21K

Contributors

Microsoft Word is a commercial document editing program that is part of the Microsoft Office suite. It features numerous text-editing tools for creating richly formatted documents, along with tools for the use of macros in Word documents. Word's native file formats are denoted either by a .doc or .docx file extension. Plugins permitting the Windows versions of Word to read and write formats it does not natively support, such as the OpenDocument format (ODF) are available. Word can import and display images in common bitmap formats such as JPG and GIF. It can also be used to create and display simple line-art.