Sub Create DOCX

[Pinaceous]

Hi All,

I'm using this sub to create a PDF from an Excel's worksheet.

It works really great!

Now, after careful review of my posted code below, is it possible to create a DOCX in lieu of the PDF?

I've tried to rearrange, modify, adjust, change this code to fit this DOCX creation, but I cannot.

Can someone please help me to change this code to produce a DOCX not a PDF??

Sub CreatePDF()

Dim wsA As Worksheet
Dim wbA As Workbook
Dim strTime As String
Dim strName As String
Dim strPath As String
Dim strFile As String
Dim strPathFile As String
Dim myFile As Variant
On Error GoTo errHandler
Set wbA = ActiveWorkbook
Set wsA = ActiveSheet
strTime = Format(Now(), "yyyymmdd\_hhmm")
'get active workbook folder, if saved
strPath = wbA.Path
If strPath = "" Then
  strPath = Application.DefaultFilePath
End If
strPath = strPath & "\"
'replace spaces and periods in sheet name
strName = Replace(wsA.Name, " ", " ")
strName = Replace(strName, ".", "_")
'create default name for savng file
strFile = strName & "_" & strTime & ".pdf"
strPathFile = strPath & strFile
'use can enter name and
' select folder for file
myFile = Application.GetSaveAsFilename _
    (InitialFileName:=strPathFile, _
        FileFilter:="PDF Files (*.pdf), *.pdf", _
        Title:="Select Folder and FileName to save")
Select Case True
       
'export to PDF if a folder was selected
Case myFile <> "False"
    wsA.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=myFile, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
    'confirmation message with file info
    
    MsgBox "PDF file has been created: " _
      & vbCrLf _
      & myFile
      Exit Sub
            
 Case myFile <> "True"
    Application.CutCopyMode = False 'Clear Clipboard
        MsgBox "Not CREATING PDF!!"
        Exit Sub
  End Select
    Exit Sub
exitHandler:
    Exit Sub
    
errHandler:
    MsgBox "Could not create PDF file"
    Resume exitHandler
            
End Sub

Many thanks in advance.

Respectfully,
Pinaceous

 

[Macropod]

Try inserting:
.Activate
after:
.Range.PasteExcelTable LinkedToExcel:=False, WordFormatting:=False, RTF:=False

 

[Pinaceous]

Try inserting:
.Activate
after:
.Range.PasteExcelTable LinkedToExcel:=False, WordFormatting:=False, RTF:=False

Hey Macropod,

Would you have another solution to try ?

I've tried adding this and it did not work as expected; all of the time.

I'm not sure why?

Maybe, I have something operating independently that I am unaware of, which is blocking this action?

Not sure how to proceed but to work with the current code until it behaves the way that I want.

Anymore suggestions??

Thanks,
pinaceous

 

[Macropod]

It works consistently for me. Perhaps you have something else running in the background that's causing Excel to take focus. You might also try inserting:
.Activate
after:
.Visible = True
to activate Word earlier in the process, but I can't guarantee that'll stop Excel stealing focus again.

 

[Pinaceous]

Hello Macropod,

I am having difficulties integrating the code to allow Word to popup in front of the Excel window as opposed to behind it based on my workbook.

Is there anyway I can provide you my workbook, so you can take a look at it??

Please let me know.
Respectfully,
pinaceous

 

[Macropod]

If you've made all the changes I suggested, yet Word keeps reverting to the background, you evidently have some other code that keeps causing Excel to steal focus. I've done as much as is possible on the Word side; you might try moving:
xlRng.Copy
to before:
With wdApp
Other than that, if you're using anything other than the code discussed in this thread, you should look at what your other Excel code is doing.