KompУ меня есть Microsoft Word 2010, и я пытаюсь использовать его для создания PDF-документа с уловом. I do не хочу, чтобы любой из используемых шрифтов. Однако все параметры сохранения, которые я пробовал, приводят к шрифтам "встроенного подмножества". Есть ли способ сохранить как PDF без встраивания шрифтов?
Как сохранить документ Word в формате PDF *без каких-либо встроенных шрифтов?
16
задан
12.11.2022 18:18 
3176
3176
2 ответа
можно удалить все шрифты, образующие тип документа XML WordML.
<?xml version="1.0" encoding="UTF-8"?>
<?mso-application progid="Word.Document"?>
<w:wordDocument xml:space="preserve" xmlns:w="http://schemas.microsoft.com/office/word/2003/wordml">
<w:body>
<w:tbl>
<w:tblPr>
<w:tblW w:w="9570" w:type="dxa"></w:tblW>
<w:tblBorders> <w:top w:val="nil" /><w:left w:val="nil" /><w:bottom w:val="nil" /><w:right w:val="nil" />
</w:tblBorders>
</w:tblPr>
<w:tr>
<w:tc>
<w:tcPr><w:tcW w:w="4785" w:type="dxa" /></w:tcPr> <w:p></w:p> </w:tc>
<w:tc>
<w:tcPr><w:tcW w:w="4785" w:type="dxa" /></w:tcPr> <w:p></w:p> </w:tc>
</w:tr>
<w:tr>
<w:tc>
<w:tcPr><w:tcW w:w="0" w:type="auto" /></w:tcPr> <w:p><w:pPr><w:jc w:val="right" /></w:pPr>
<w:r><w:t>Company: </w:t></w:r>
</w:p>
</w:tc>
<w:tc>
<w:tcPr><w:tcW w:w="0" w:type="auto" />
<w:tcBorders> <w:top w:val="single" w:sz="2" w:color="0070C0" /> <w:left w:val="single" w:sz="2" w:color="0070C0" /> <w:bottom w:val="single" w:sz="2" w:color="0070C0" /> <w:right w:val="single" w:sz="2" w:color="0070C0" />
</w:tcBorders>
</w:tcPr>
<w:p><w:pPr><w:jc w:val="left" /></w:pPr><w:r><w:t></w:t></w:r></w:p>
</w:tc>
</w:tr>
</w:tbl>
</w:body>
</w:wordDocument>
но, даже если вы удалите все стили и шрифты исходного документа, Word назначит стиль при открытии документа по умолчанию. Кроме того, при открытии документа Acrobat в нем будет хотя бы один шрифт, как если бы вы не действовали.
офис WordML XML-файл, Word load стиль по умолчанию:
после сохранения в формате PDF в Acrobat посмотреть страницу one font
хорошим решением является выбрать хотя бы один шрифт, который все еще будет в файле pdf и использовать его.
Способ 2: удаление неиспользуемых стилей из Word
Sub DeleteUnusedStyles()
Dim oStyle As Style
For Each oStyle In ActiveDocument.Styles
‘Only check out non-built-in styles
If oStyle.BuiltIn = False Then
With ActiveDocument.Content.Find
.ClearFormatting
.Style = oStyle.NameLocal
.Execute FindText:=””, Format:=True
If .Found = False Then oStyle.Delete
End With
End If
Next oStyle
End Sub
посмотреть форматировать шрифты для текстового поля значения по умолчанию
стиль почти всегда включает шрифт и размер шрифта, используемые для определения других размеров. Абзац, строка интервал и так далее ... Если вам нужна другая механика стиля, сгенерируйте сам документ. Включая замену шрифтов. Если окончательный PDF документ, то используйте встроенный Adobe JavaScript. Или Adobe LiveCycle Designer ES и XDP XML.
использование Acrobat JavaScript в формах: импорт и экспорт данных формы
3
отвечен STTR 2022-11-14 02:06
[System.Reflection.Assembly]::LoadFrom("C:\path\to\itextsharp.dll")
#by default fonts are NOT embedded
#[iTextSharp.text.FontFactory]::DefaultEmbedding -eq false
$doc = New-Object iTextSharp.text.Document
$fileStream = New-Object IO.FileStream("C:\foo\test\allFonts2.pdf", [System.IO.FileMode]::Create)
[iTextSharp.text.pdf.PdfWriter]::GetInstance($doc, $filestream)
#iTextSharp provides a class to work with fonts, but first we have to register them:
[iTextSharp.text.FontFactory]::RegisterDirectories()
#Phrase is the smallest bit of text that will understand a newline if needed. it is a chunk[] and paragraph is a phrase[]
$phrase = new-object iTextSharp.text.Phrase
$paragraph = New-Object iTextSharp.text.Paragraph
#Different fonts for mapping tests
$fN = [iTextSharp.text.Font]::NORMAL
$fB = [iTextSharp.text.Font]::BOLD
$fI = [iTextSharp.text.Font]::ITALIC
$fBI = [iTextSharp.text.Font]::BOLDITALIC
#Sample string
$string = "The quick brown fox jumps over the lazy dog 1234567890 ?.,:;!@#$%^&*()`"'`n"
#something I know maps nicely (I love fixed width fonts!)
$consolas = [iTextSharp.text.FontFactory]::GetFont("consolas", 9)
#create all the nesting needed.
[iTextSharp.text.FontFactory]::RegisteredFamilies | %{
$chunk = new-object iTextSharp.text.Chunk("`n$_`n", $consolas)
$phrase.Add($chunk) | out-null
$a = [iTextSharp.text.FontFactory]::GetFont($_, 9, $fN)
"adding font: $_"
$chunk = new-object iTextSharp.text.Chunk($string, $a)
$phrase.Add($chunk) | out-null
$b = [iTextSharp.text.FontFactory]::GetFont($_, 9, $fB)
$chunk = new-object iTextSharp.text.Chunk($string, $b)
$phrase.Add($chunk) | out-null
$c = [iTextSharp.text.FontFactory]::GetFont($_, 9, $fI)
$chunk = new-object iTextSharp.text.Chunk($string, $c)
$phrase.Add($chunk) | out-null
$d = [iTextSharp.text.FontFactory]::GetFont($_, 9, $fBI)
$chunk = new-object iTextSharp.text.Chunk($string, $d)
$phrase.Add($chunk) | out-null
}
$paragraph.add($phrase) | out-null
$doc.Open()
$doc.add($paragraph) | out-null
$doc.close()
0
отвечен slipsec 2022-11-14 04:23
 |  |  |  |  |  |  |  |  |  |
Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]
