String will not fully concatenate

aramaglia · #1 01-30-2017, 09:54 AM

Hello,

So I have a word document that when the user closes it out, I would like the document to save itself in its current folder as well as save as a PDF (which is already existing and should be overwritten) in a different folder. In order to reference the correct PDF when saving, I am using the text (just an 9-digit number) from a table cell in the word document and using that text as part of the folder path to the PDF file.

The problem is that when I am storing the 9-digit number as a string variable ("QN" below in the code), the variable that I am using for the file path (RefDocPath) to the PDF file will not store any text after the "QN" variable. I inserted a msgbox to see what was being stored and it shows a dot in the string after the "QN" variable. (See attached photo). I've never seen this before and I do not know what to do.

Code:

Private Sub Document_Close()

Dim RefDocPath As String
Dim QN As String
Dim Doc As Document

    Application.DisplayAlerts = False
    QN = ThisDocument.Tables(1).Cell(2, 2).Range.Text
    RefDocPath = "G:\Shared\Ref_Docs\Quality Alerts\X_X_" & QN & "_X_X_QualityAlerts.pdf"
    MsgBox RefDocPath
    
    ThisDocument.Save
    ThisDocument.SaveAs2 FileName:=(RefDocPath), AddtoRecentFiles:=False, FileFormat:=wdFormatPDF
    Application.DisplayAlerts = True
    
End Sub

dwirony · #2 01-30-2017, 10:53 AM

Did you try a message box to test for the string value of QN as well? Is it possible that it's capturing that extra dot at the end there?

aramaglia · #3 01-30-2017, 11:02 AM

Thanks dwirony, I don't know why I didn't think of that. I tried it and yes, that dot is appearing in the msgbox with the QN string variable. Why is that doing that and how do I get rid of it?

aramaglia · #4 01-30-2017, 11:05 AM

Apparently the dot at the end of the text is the character for table end, which is showing up when i call the cell text. There is another character at the end too which I'm guessing marks the end of the cell. To workaround this I used the Left() function to eliminate the last 2 characters of the string:

Code:

QN = Left(ThisDocument.Tables(1).Cell(2, 2).Range.Text, Len(ThisDocument.Tables(1).Cell(2, 2).Range.Text) - 2)

dwirony · #5 01-30-2017, 12:43 PM

Ahh there ya go. I wasn't sure if it was the table end marker or just what was populating in your table - I was going to provide a solution to eliminate that symbol all together but your solution is much more efficient!

macropod · #6 01-30-2017, 04:37 PM

Even more efficient:
QN = Split(ThisDocument.Tables(1).Cell(2, 2).Range.Text, vbCr)(0)

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to find all string within string.	PRA007	Word VBA	18	02-12-2016 08:11 PM
Format Painter must be used twice to work fully	Jim_H	Word	5	04-13-2015 04:41 PM
Way to search for a string in text file, pull out everything until another string?	omahadivision	Excel Programming	12	11-23-2013 12:10 PM
How to fully justify columns	empressive	Word	10	01-17-2012 09:17 PM
Outlook 2007 Not Fully Closing	LabanM	Outlook	1	09-28-2010 02:27 PM