Hello again !
Below will post the temporary/almost finished solution. It is not polished because I do not have yet the desired template for the production file, BUT here it is!
The word file has at this moment only a table with one row, and 3 cells:
- first cell a picture ContentControl as placeholder for the QR Code about to be generated -
- second cell, button to generate QR
- third cell, a bookmark ( cell bookmark ) that contains whatever anyone wants to type in ( will have paragraphs - multiple lines, in my case )

The script generates QR code with multiple lines



Option Explicit
'other technical specifications about google chart API:

Dim BmAdresa As Range
Dim QR_Value As String
Dim cc As ContentControl




Private Sub BtnQR_Click()
Set BmAdresa = ActiveDocument.Bookmarks("BmAdresa").Range


Set cc = ActiveDocument.ContentControls(1)
If cc.Type = wdContentControlPicture Then
If cc.Range.InlineShapes.Count > 0 Then
cc.Range.InlineShapes(1).Delete
End If

End If
' Had to find and replace the paragraphs with proper "end of line" - ^l
BmAdresa.Find.ClearFormatting
BmAdresa.Find.Replacement.ClearFormatting
With BmAdresa.Find
.Text = "^p"
.Replacement.Text = "^l"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
BmAdresa.Find.Execute Replace:=wdReplaceAll
With BmAdresa.Find
.Text = "^p"
.Replacement.Text = "^l"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
BmAdresa.Find.Execute Replace:=wdReplaceAll

URL_QRCode_SERIES BmAdresa.Text, cc.Range
End Sub






Function URL_QRCode_SERIES( _
ByRef QR_Value As String, _
oRng As Range, _
Optional ByVal PictureSize As Long = 150, _
Optional ByVal Updateable As Boolean = True) As Variant

Dim oPic As InlineShape
Dim vLeft As Variant, vTop As Variant
Dim sURL As String



Const sRootURL As String = "https://chart.googleapis.com/chart?"
Const sSizeParameter As String = "chs="
Const sTypeChart As String = "cht=qr"
Const sDataParameter As String = "chl="
Const sJoinCHR As String = "&"

If Updateable = False Then
URL_QRCode_SERIES = "outdated"
GoTo lbl_Exit
End If

If Len(QR_Value) = 0 Then
GoTo lbl_Exit
End If
sURL = sRootURL & _
sSizeParameter & PictureSize & "x" & PictureSize & sJoinCHR & _
sTypeChart & sJoinCHR & _
sDataParameter & UTF8_URL_Encode(VBA.Replace(QR_Value, "", "%0A"))
' Above, our "about to encode text" `s value with multiple rows is "prettyfied" for URL - ye ye, too much coffee
' Atleast my browser encoding does not display the sign for "soft enter" or how is it called

Set oPic = ActiveDocument.InlineShapes.AddPicture(sURL, False, True, oRng)
lbl_Exit:
Exit Function
End Function



Function UTF8_URL_Encode(ByVal sStr As String)

Dim i As Long
Dim a As Long
Dim res As String
Dim code As String

res = ""
For i = 1 To Len(sStr)
a = AscW(Mid(sStr, i, 1))
If a < 128 Then
code = Mid(sStr, i, 1)
ElseIf ((a > 127) And (a < 2048)) Then
code = URLEncodeByte(((a \ 64) Or 192))
code = code & URLEncodeByte(((a And 63) Or 128))
Else
code = URLEncodeByte(((a \ 144) Or 234))
code = code & URLEncodeByte((((a \ 64) And 63) Or 128))
code = code & URLEncodeByte(((a And 63) Or 128))
End If
res = res & code
Next i
UTF8_URL_Encode = res
lbl_Exit:
Exit Function
End Function


Private Function URLEncodeByte(val As Integer) As String
Dim res As String
res = "%" & Right("0" & Hex(val), 2)
URLEncodeByte = res
lbl_Exit:
Exit Function
End Function