from spire.pdf.common import *
from spire.pdf import *

# 創(chuàng)建PDF文檔
pdf = PdfDocument()

# 添加頁面
page = pdf.Pages.Add()

# 設置初始X和Y坐標
y = 30.0
x = 10.0

# 創(chuàng)建PDF字體
font = PdfTrueTypeFont("宋體", 14.0, PdfFontStyle.Regular, True)
font1 = PdfTrueTypeFont("宋體", 14.0, PdfFontStyle.Underline, True)

# 添加簡單文本鏈接
label = "簡單鏈接： "
format = PdfStringFormat()
format.MeasureTrailingSpaces = True
page.Canvas.DrawString(label, font, PdfBrushes.get_Black(), 0.0, y, format)
x = font.MeasureString(label, format).Width
url = "https://www.e-iceblue.cn"
page.Canvas.DrawString(url, font1, PdfBrushes.get_Blue(), x, y)
y = y + 28

# 添加超文本鏈接
label = "超文本鏈接："
page.Canvas.DrawString(label, font, PdfBrushes.get_Black(), 0.0, y, format)
x = font.MeasureString(label, format).Width
webLink = PdfTextWebLink()
webLink.Text = "主頁"
webLink.Url = url
webLink.Font = font1
webLink.Brush = PdfBrushes.get_Blue()
webLink.DrawTextWebLink(page.Canvas, PointF(x, y))
y = y + 28

# 添加郵件鏈接
label = "郵件鏈接： "
page.Canvas.DrawString(label, font, PdfBrushes.get_Black(), 0.0, y, format)
x = font.MeasureString(label, format).Width
link = PdfTextWebLink()
link.Text = "聯(lián)系我們"
link.Url = "mailto:support @e-iceblue.com"
link.Font = font1
link.Brush = PdfBrushes.get_Blue()
link.DrawTextWebLink(page.Canvas, PointF(x, y))
y = y + 28

# 添加文檔鏈接
label = "文檔鏈接: "
page.Canvas.DrawString(label, font, PdfBrushes.get_Black(), 0.0, y, format)
x = font.MeasureString(label, format).Width
text = "點擊打開文件"
location = PointF(x, y)
size = font1.MeasureString(text)
linkBounds = RectangleF(location, size)
fileLink = PdfFileLinkAnnotation(linkBounds, "C:\\Users\\Administrator\\Desktop\\排名.xlsx")
fileLink.Border = PdfAnnotationBorder(0.0)
page.AnnotationsWidget.Add(fileLink)
page.Canvas.DrawString(text, font1, PdfBrushes.get_Blue(), x, y)

# 保存PDF文檔
pdf.SaveToFile("PDF超鏈接.pdf")
pdf.Close()

from spire.pdf import *
from spire.pdf.common import *

# 加載PDF文檔
pdf = PdfDocument()
pdf.LoadFromFile("PDF超鏈接.pdf")

# 遍歷文檔中的所有頁面
for j in range(pdf.Pages.Count):
    # 獲取每一頁
    page = pdf.Pages.get_Item(j)
    # 獲取每一頁上的注釋
    annotations = page.AnnotationsWidget
    # 檢查注釋是否為空
    if annotations.Count > 0:
        # 遍歷所有注釋
        i = annotations.Count - 1
        while i >=0:
            # 獲取注釋
            annotation = annotations.get_Item(i)
            # 檢查注釋是否為超鏈接
            if isinstance(annotation, PdfTextWebLinkAnnotationWidget):
                # 刪除超鏈接
                annotations.Remove(annotation)
            i -= 1

# 保存PDF文檔
pdf.SaveToFile("刪除PDF超鏈接.pdf")
pdf.Close()

# 刪除第一頁中的第一個超鏈接
page = pdf.Pages.get_Item(0)
page.AnnotationsWidget.RemoveAt(0)